Главная База знаний "Allbest" Программирование, компьютеры и кибернетика Информационная система учета товарно-материальных ценностей на примере ЗАО "Дикси"

Информационная система учета товарно-материальных ценностей на примере ЗАО "Дикси"

Разработка системы учета товарно-материальных ценностей с использованием стандартных методологий функционального и информационного моделирования. Экономические параметры разработки и внедрения информационной системы. Разработка клиентской части системы.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 03.04.2013
Размер файла 1,7 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

Panel7.Visible:=False;

end;

If TabSet1.TabIndex=1 Then

begin

Panel6.Visible:=False;

Panel5.Visible:=True;

Panel7.Visible:=False;

end;

If TabSet1.TabIndex=2 Then

begin

Panel5.Visible:=False;

Panel6.Visible:=False;

Panel7.Visible:=True;

end;

end;

end.

unit UnitTovar;

interface

var

FormTovar: TFormTovar;

implementation

uses UnitDM;

{$R *.dfm}

//Поиск товаров

procedure TFormTovar.EditPoiskKChange(Sender: TObject);

begin

if EditPoiskK.Text = '' then

begin

DM.ADOTable5.Close;

DM.ADOTable5.Filtered:=False;

DM.ADOTable5.Open;

end

else

begin

DM.ADOTable5.Close;

DM.ADOTable5.Filter:='Номенклатура Like '+Chr(39)+EditPoiskK.Text+'*'+Chr(39);

DM.ADOTable5.Filtered:=True;

DM.ADOTable5.Open;

end;

end;

end.

unit UnitSotr;

interface

var

FormSotr: TFormSotr;

implementation

uses UnitDM;

{$R *.dfm}

//Поиск сотрудника

procedure TFormSotr.EditPoiskKChange(Sender: TObject);

begin

if EditPoiskK.Text = '' then

begin

DM.ADOTable4.Close;

DM.ADOTable4.Filtered:=False;

DM.ADOTable4.Open;

end

else

begin

DM.ADOTable4.Close;

DM.ADOTable4.Filter:='Имя Like '+Chr(39)+EditPoiskK.Text+'*'+Chr(39);

DM.ADOTable4.Filtered:=True;

DM.ADOTable4.Open;

end;

end;

end.

unit UnitPost;

interface

var

FormPost: TFormPost;

implementation

uses UnitDM;

{$R *.dfm}

//Поиск поставщиков

procedure TFormPost.EditPoiskKChange(Sender: TObject);

begin

if EditPoiskK.Text = '' then

begin

DM.ADOTable3.Close;

DM.ADOTable3.Filtered:=False;

DM.ADOTable3.Open;

end

else

begin

DM.ADOTable3.Close;

DM.ADOTable3.Filter:='Имя Like '+Chr(39)+EditPoiskK.Text+'*'+Chr(39);

DM.ADOTable3.Filtered:=True;

DM.ADOTable3.Open;

end;

end;

end.

unit UnitAvtor;

interface

var

FAvtor: TFAvtor;

implementation

uses UnitDM, UnitMain;

{$R *.dfm}

//Проверка пароля при входе

procedure TFAvtor.BBInputClick(Sender: TObject);

begin

if (ComboBox1.Text='Заведующий складом') and (EPasw.Text='1111') or

(ComboBox1.Text='Кладовщик') and (EPasw.Text='2222') or

(ComboBox1.Text='Логист') and (EPasw.Text='3333') then

begin

F:=1;

end;

//Отображение поля для ввода пароля

procedure TFAvtor.ComboBox1Click(Sender: TObject);

begin

if ComboBox1.Text='' then

EPasw.Enabled:=False

Else

begin

EPasw.Enabled:=True;

EPasw.SetFocus;

end;

end;

//Отображение кнопки входа

procedure TFAvtor.EPaswChange(Sender: TObject);

begin

if EPasw.Text='' then

BBInput.Enabled:=False

Else

BBInput.Enabled:=True;

end;

//Обнуляем флаг входа

procedure TFAvtor.FormActivate(Sender: TObject);

begin

F:=0;

end;

//Закрыть авторизацию

procedure TFAvtor.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if F=0 then

UnitMain.Rashod.Close;

if F=1 then

UnitMain.Rashod.AlphaBlend:=False;

end;

end.

unit UnitGRUP;

interface

var

FormGRUP: TFormGRUP;

implementation

uses UnitDM;

{$R *.dfm}

//Поиск группы товаров

procedure TFormGRUP.EditPoiskKChange(Sender: TObject);

begin

if EditPoiskK.Text = '' then

begin

DM.ADOTable1.Close;

DM.ADOTable1.Filtered:=False;

DM.ADOTable1.Open;

end

else

begin

DM.ADOTable1.Close;

DM.ADOTable1.Filter:='Имя Like '+Chr(39)+EditPoiskK.Text+'*'+Chr(39);

DM.ADOTable1.Filtered:=True;

DM.ADOTable1.Open;

end;

end;

end.

unit UnitSKlient;

interface

var

FormKlient: TFormKlient;

implementation

{$R *.dfm}

uses UnitMain, UnitDM;

//Поиск клиентов

procedure TFormKlient.EditPoiskKChange(Sender: TObject);

begin

if EditPoiskK.Text = '' then

begin

DM.ADOTable2.Close;

DM.ADOTable2.Filtered:=False;

DM.ADOTable2.Open;

end

else

begin

DM.ADOTable2.Close;

DM.ADOTable2.Filter:='Имя Like '+Chr(39)+EditPoiskK.Text+'*'+Chr(39);

DM.ADOTable2.Filtered:=True;

DM.ADOTable2.Open;

end;

end;

end.

Размещено на Allbest.ru

Страница:


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены