Проектирование и разработка информационной системы для учета ремонтных работ и обслуживания оргтехники фирмы ООО "Компьютерный мир" г. Самара

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

unit Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DBCtrls, ExtCtrls, StdCtrls, Grids, DBGrids, Menus;: TForm6;Unit1, Unit3, Unit7;

{$R *.dfm}TForm6.FormActivate(Sender: TObject);N1.Visible=True then

ShowMessage(Выберите технику клиента для ремонта и нажмите на кнопку "Добавить заказ"!);

end;TForm6.FormClose(Sender: TObject; var Action: TCloseAction);.ADOTabZakaz.Cancel;.Visible:=False;;TForm6.N1Click(Sender: TObject);.ADOTabZakaz.Insert;.ADOTabZakazНомерТехники.Value:=DM.ADOTabTexnikaНомерТехники.Value;.Close;.Form7.N1.Visible:=True;.Form7.ShowModal;;.

Модуль формы Сотрудники (Unit7.pas)

unit Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DBCtrls, ExtCtrls, StdCtrls, Menus;: TForm7;Unit1, Unit3;

{$R *.dfm}TForm7.FormActivate(Sender: TObject);N1.Visible=True then

ShowMessage(Выберите мастера для ремонта техники и нажмите на кнопку "Добавить заказ"!);

end;TForm7.FormClose(Sender: TObject; var Action: TCloseAction);.ADOTabZakaz.Cancel;.Visible:=False;;TForm7.N1Click(Sender: TObject);.ADOTabZakazКодМастера.Value:=DM.ADOTabMasterКодМастера.Value;.ADOTabZakazДатаЗаказа.Value:=Date();.ADOTabZakaz.Post;.Close;;.

Модуль формы Период отчетности (Unit9.pas)

unit Unit9;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, StdCtrls, Buttons, ComCtrls, DBCtrls;: TForm9;Unit1, Unit3;

=+St1+AND=+St1+ AND ДатаЗаказа<=+St2;.ADOTabZakaz.Filtered:=True;:=1; Sum:=0; SumN:=0; SumBN:=0;DM.ADOTabZakaz do;not EOF do:=IntToStr(i);.WordDocument1.Tables.Item(2).Cell(2+i,1).Range.InsertBefore(St1);:=DateToStr(DM.ADOTabZakazДатаЗаказа.Value);.WordDocument1.Tables.Item(2).Cell(2+i,2).Range.InsertBefore(St1);:=DM.ADOTabZakazТехника.Value;.WordDocument1.Tables.Item(2).Cell(2+i,3).Range.InsertBefore(St1);:=DM.ADOTabZakazНомерТехники.Value;.WordDocument1.Tables.Item(2).Cell(2+i,4).Range.InsertBefore(St1);:=DM.ADOTabZakazКлиент.Value;.WordDocument1.Tables.Item(2).Cell(2+i,5).Range.InsertBefore(St1);DM.ADOTabZakazВызов.Value=True then.WordDocument1.Tables.Item(2).Cell(2+i,6).Range.InsertBefore(ДА).WordDocument1.Tables.Item(2).Cell(2+i,6).Range.InsertBefore(НЕТ):=DM.ADOTabZakazМастер.Value;.WordDocument1.Tables.Item(2).Cell(2+i,7).Range.InsertBefore(St1);:=DateToStr(DM.ADOTabZakazДатаВыполнения.Value);.WordDocument1.Tables.Item(2).Cell(2+i,8).Range.InsertBefore(St1);:=DM.ADOTabZakazОплата.Value;.WordDocument1.Tables.Item(2).Cell(2+i,9).Range.InsertBefore(St1);DM.ADOTabZakazДоставка.Value=True then.WordDocument1.Tables.Item(2).Cell(2+i,10).Range.InsertBefore(ДА).WordDocument1.Tables.Item(2).Cell(2+i,10).Range.InsertBefore(НЕТ);:=Format(%m,[DM.ADOTabZakazСумма.Value]);.WordDocument1.Tables.Item(2).Cell(2+i,11).Range.InsertBefore(St1);:=Sum+DM.ADOTabZakazСумма.Value;DM.ADOTabZakazОплата.Value=нал then:=SumN+DM.ADOTabZakazСумма.Value;DM.ADOTabZakazОплата.Value=безнал then:=SumBN+DM.ADOTabZakazСумма.Value;.WordDocument1.Tables.Item(2).Rows.Add(EmptyParam);(i);;;;.WordDocument1.Tables.Item(2).Rows.Item(2+i).Delete;:=Format(%m,[SumN]);.WordDocument1.Tables.Item(3).Cell(1,2).Range.InsertBefore(St1);:=Format(%m,[SumBN]);.WordDocument1.Tables.Item(3).Cell(2,2).Range.InsertBefore(St1);:=Format(%m,[Sum]);.WordDocument1.Tables.Item(3).Cell(3,2).Range.InsertBefore(St1);

Except(Шаблон документа не найден!);

=+St1+AND<=+St2+AND=+IntToStr(DM.ADOTabMaster.Value);.ADOTabZakaz.Filtered:=True;:=DM.ADOTabZakaz.Value;.WordDocument1.Tables.Item(1).Cell(5,2).Range.InsertBefore(St1);:=1;Sum:=0;DM.ADOTabZakazdo;notEOFdo:=IntToStr(i);.WordDocument1.Tables.Item(2).Cell(2+i,1).Range.InsertBefore(St1);:=DateToStr(DM.ADOTabZakaz.Value);.WordDocument1.Tables.Item(2).Cell(2+i,2).Range.InsertBefore(St1);:=DM.ADOTabZakaz.Value;.WordDocument1.Tables.Item(2).Cell(2+i,3).Range.InsertBefore(St1);:=DM.ADOTabZakaz.Value;.WordDocument1.Tables.Item(2).Cell(2+i,4).Range.InsertBefore(St1);:=DM.ADOTabZakaz.Value;.WordDocument1.Tables.Item(2).Cell(2+i,5).Range.InsertBefore(St1);DM.ADOTabZakaz.Value=Truethen.WordDocument1.Tables.Item(2).Cell(2+i,6).Range.InsertBefore().WordDocument1.Tables.Item(2).Cell(2+i,6).Range.InsertBefore():=DM.ADOTabZakaz.Value;.WordDocument1.Tables.Item(2).Cell(2+i,7).Range.InsertBefore(St1);:=DateToStr(DM.ADOTabZakaz.Value);.WordDocument1.Tables.Item(2).Cell(2+i,8).Range.InsertBefore(St1);:=DM.ADOTabZakaz.Value;.WordDocument1.Tables.Item(2).Cell(2+i,9).Range.InsertBefore(St1);DM.ADOTabZakaz.Value=Truethen.WordDocument1.Tables.Item(2).Cell(2+i,10).Range.InsertBefore().WordDocument1.Tables.Item(2).Cell(2+i,10).Range.InsertBefore();:=Format(%m,[DM.ADOTabZakaz.Value]);.WordDocument1.Tables.Item(2).Cell(2+i,11).Range.InsertBefore(St1);:=Sum+DM.ADOTabZakaz.Value;.WordDocument1.Tables.Item(2).Rows.Add(EmptyParam);(i);;;;.WordDocument1.Tables.Item(2).Rows.Item(2+i).Delete;:=Format(%m,[Sum]);.WordDocument1.Tables.Item(3).Cell(1,2).Range.InsertBefore(St1);">DM.

Blog

Проектирование и разработка информационной системы для учета ремонтных работ и обслуживания оргтехники фирмы ООО "Компьютерный мир" г. Самара

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование