Автоматизация ломбарда

Автор работы: Пользователь скрыл имя, 11 Июня 2014 в 20:57, курсовая работа

Краткое описание

В настоящем проекте делается попытка проектирования такой АИС, которая бы способствовала повышению эффективности управления объектом, автоматизации труда работников, повышению их производительности, сокращению затрат на производственные расходы, и, как следствие этого, повышение прибыли, увеличение размеров уставного фонда, то есть достижение главных целей, которые предприятие ставит перед собой.

Скачать полностью (548.09 Кб) Сколько стоит заказать работу?
Прикрепленные файлы: 1 файл

дима ломбард ВТ.doc

— 1.00 Мб (Скачать документ)

    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);

    procedure Edit1Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  frmKlients: TfrmKlients;

 

implementation

 

uses Main, EditKlients;

 

{$R *.dfm}

 

procedure TfrmKlients.ToolButton1Click(Sender: TObject);

begin

frmMain.tblKlients.Append;

Application.CreateForm(TfrmEditKlients, frmEditKlients);

frmEditKlients.ShowModal;

end;

 

procedure TfrmKlients.ToolButton2Click(Sender: TObject);

begin

frmMain.tblKlients.Edit;

Application.CreateForm(TfrmEditKlients, frmEditKlients);

frmEditKlients.ShowModal;

end;

 

procedure TfrmKlients.ToolButton3Click(Sender: TObject);

begin

//

end;

 

procedure TfrmKlients.tbAddKlientsClick(Sender: TObject);

begin

frmMain.tblZalogFIO.AsInteger := frmMain.tblKlientsKOD.AsInteger;

Close;

end;

 

procedure TfrmKlients.ApplicationEvents1Idle(Sender: TObject;

  var Done: Boolean);

begin

tbAddKlients.Enabled := frmKlients.Tag = 1;

end;

 

procedure TfrmKlients.Edit1Change(Sender: TObject);

begin

if Edit1.Text <> '' then

  frmMain.tblKlients.Locate('NAME', Edit1.Text, [loCaseInsensitive, loPartialKey]);

end;

 

end.

 

 

 


 



Информация о работе Автоматизация ломбарда