Проектирование и разработка информационной системы для учета ремонтных работ и обслуживания оргтехники фирмы ООО "Компьютерный мир" г. Самара
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
В°льное образование. Ростов н/Д: Феникс, 2008. 253 с.
.Архангельский А.Я. Программирование в Delphi: учебник. М.: БИНОМ, 2006. 1152 с.
.Программные продукты фирмы 1С:
.Услуги компании Компьютерный мир:
Приложение А
Рисунок А.1 - Отчет Результаты деятельности компании
Приложение Б
Рисунок Б.1 - Отчет Результаты деятельности мастера
Приложение В
Рисунок В.1 - Главная форма программы
Приложение Г
Листинг программного кода
Модуль главной формы программы (Unit1.pas)
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, Grids, DBGrids, StdCtrls, ImgList, ExtCtrls, Buttons, DBCtrls;
Form1: TForm1;Clos;Unit3, Unit2, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;
0then.ADOTabRemont.Refresh;.ADOTabRemont.Edit;DM.ADOTabRemont.Value=Falsethen.ADOTabRemont.Value:=True.ADOTabRemont.Value:=False;.ADOTabRemont.Post;.ADOTabRemont.Refresh;;;TForm1.N10Click(Sender:TObject);.Form6.N1.Visible:=True;.Form6.ShowModal;;TForm1.N11Click(Sender:TObject);MessageBox(Handle,+#10+">{$R *.dfm}Clos;.Form1.N18.Checked:=False;.Form1.N19.Checked:=False;.Form1.N20.Checked:=False;.Form1.N22.Checked:=False;.Form1.N24.Checked:=False;.Form1.BitBtn10.Caption:=ГОТОВ (откл.);.Form1.BitBtn3.Caption:=НЕ ГОТОВ (откл.);.Form1.BitBtn6.Caption:=ДАТА (откл.);.Form1.BitBtn7.Caption:=№ТЕХ. (откл.);.Form1.BitBtn9.Caption:=МАСТЕР (откл.);;TForm1.BitBtn10Click(Sender: TObject);.Click;;TForm1.BitBtn11Click(Sender: TObject);.Click;;TForm1.BitBtn12Click(Sender: TObject);.Click;;TForm1.BitBtn13Click(Sender: TObject);.Click;;TForm1.BitBtn14Click(Sender: TObject);.Click;;TForm1.BitBtn15Click(Sender: TObject);.Click;;TForm1.BitBtn16Click(Sender: TObject);.Click;;TForm1.BitBtn18Click(Sender: TObject);.Click;;TForm1.BitBtn1Click(Sender: TObject);.Click;;TForm1.BitBtn2Click(Sender: TObject);.Click;;TForm1.BitBtn3Click(Sender: TObject);.Click;;TForm1.BitBtn4Click(Sender: TObject);.Click;;TForm1.BitBtn6Click(Sender: TObject);.Click;;TForm1.BitBtn7Click(Sender: TObject);.Click;;TForm1.BitBtn9Click(Sender: TObject);.Click;;TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;: Integer; Column: TColumn; State: TGridDrawState);:TBitmap;:=TBitmap.Create;Column.FieldName=Вызов then beginDBGrid1.Canvas do begin(Rect);DM.ADOTabZakazВызов.Value=True then.GetBitmap(1,I).GetBitmap(0,I);(round((Rect.Left+Rect.Right-I.Width)/2),Rect.Top,I);;;Column.FieldName=Доставка then beginDBGrid1.Canvas do begin(Rect);DM.ADOTabZakazДоставка.Value=True then.GetBitmap(1,I).GetBitmap(0,I);(round((Rect.Left+Rect.Right-I.Width)/2),Rect.Top,I);;;Column.FieldName=Выполнен then beginDBGrid1.Canvas do begin(Rect);DM.ADOTabZakazВыполнен.Value=True then.GetBitmap(1,I).GetBitmap(0,I);(round((Rect.Left+Rect.Right-I.Width)/2),Rect.Top,I);;;;TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;: Integer; Column: TColumn; State: TGridDrawState);:TBitmap;:=TBitmap.Create;Column.FieldName=Выполнена then beginDBGrid2.Canvas do begin(Rect);DM.ADOTabRemontВыполнена.Value=True then.GetBitmap(3,I).GetBitmap(2,I);(round((Rect.Left+Rect.Right-I.Width)/2),Rect.Top,I);;;;TForm1.DBGrid2EditButtonClick(Sender: TObject);DM.ADOTabRemont.RecordCount<>0 then.ADOTabRemont.Refresh;.ADOTabRemont.Edit;DM.ADOTabRemontВыполнена.Value=False then.ADOTabRemontВыполнена.Value:=True.ADOTabRemontВыполнена.Value:=False;.ADOTabRemont.Post;.ADOTabRemont.Refresh;;;TForm1.N10Click(Sender: TObject);.Form6.N1.Visible:=True;.Form6.ShowModal;;TForm1.N11Click(Sender: TObject);MessageBox(Handle,УДАЛЕНИЕ ЗАКАЗА+#10+
Вы действительно хотите удалить заказ?+#10+
После нажатия на кнопку ДА, данные будут удалены.+#10+
Для отмены удаления нажмите на кнопку НЕТ., ВНИМАНИЕ,
MB_YesNo+MB_ICONWARNING+MB_TaskModal) = mrYes Then.ADOTabZakaz.Delete;;;TForm1.N12Click(Sender: TObject);.ADOTabZakaz.Edit;DM.ADOTabZakazВызов.Value=False then.ADOTabZakazВызов.Value:=True.ADOTabZakazВызов.Value:=False;.ADOTabZakaz.Post;.ADOTabZakaz.Refresh;;TForm1.N13Click(Sender: TObject);.ADOTabZakaz.Edit;DM.ADOTabZakazДоставка.Value=False then.ADOTabZakazДоставка.Value:=True.ADOTabZakazДоставка.Value:=False;.ADOTabZakaz.Post;.ADOTabZakaz.Refresh;;TForm1.N14Click(Sender: TObject);.ADOTabZakaz.Edit;DM.ADOTabZakazВыполнен.Value=False then.ADOTabZakazВыполнен.Value:=True;.ADOTabZakazДатаВыполнения.Value:=Date();.ADOTabZakazВыполнен.Value:=False;.ADOTabZakazДатаВыполнения.Clear;;.ADOTabZakaz.Post;.ADOTabZakaz.Refresh;;TForm1.N15Click(Sender: TObject);.ADOTabZakaz.Edit;DM.ADOTabZakazОплата.Value=нал then.ADOTabZakazОплата.Value:=безнал.ADOTabZakazОплата.Value:=нал;.ADOTabZakaz.Post;.ADOTabZakaz.Refresh;;TForm1.N18Click(Sender: TObject);;.Checked:=True;.Caption:=ГОТОВ (вкл.);.ADOTabZakaz.Filter:=Выполнен=True;.ADOTabZakaz.Filtered:=True;;TForm1.N19Click(Sender: TObject);;.Checked:=True;
BitBtn3.Caption:=НЕ ГОТОВ (вкл.);.ADOTabZakaz.Filter:=Выполнен=False;
DM.ADOTabZakaz.Filtered:=True;;TForm1.N20Click(Sender: TObject);;.Checked:=True;.Caption:=ДАТА (вкл.);.ADOTabZakaz.Filter:=ДатаЗаказа=+DateToStr(DM.ADOTabZakazДатаЗаказа.Value);.ADOTabZakaz.Filtered:=True;;TForm1.N21Click(Sender: TObject);.Form8.ShowModal;;TForm1.N22Click(Sender: TObject);;.Checked:=True;.Caption:=№ТЕХ. (вкл.); DM.ADOTabZakaz.Filter:=НомерТехники=+Chr(39)+DM.ADOTabZakazНомерТехники.Value+Chr(39);.ADOTabZakaz.Filtered:=True;;TForm1.N24Click(Sender: TObject);;.Checked:=True;.Caption:=МАСТЕР (вкл.);.ADOTabZakaz.Filter:=КодМастера=+IntToStr(DM.ADOTabZakazКодМастера.Value);.ADOTabZakaz.Filtered:=True;;TForm1.N26Click(Sender: TObject);;.ADOTabZakaz.Filtered:=False;;TForm1.N28Click(Sender: TObject);, Save: OleVariant;: string;DM.ADOTabZakazНомерЗаказа.Value=Null Then(Выберите заказ!);;;:=ExtractFilePath(Application.ExeName)+Doc1.doc;:=IntToStr(DM.ADOTabZakazНомерЗаказа.Value);:=ExtractFilePath(Application.ExeName)+Doc\Справка №+St+.doc;.WordApplication1.Connect;.Minimize;.WordApplication1.Documents.Open(N,EmptyParam,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,EmptyParam,EmptyParam);.WordDocument1.ConnectTo(DM.WordApplication1.ActiveDocument).WordDocument1.SaveAs(Save);.WordDocument1.Tables.Item(1).Cell(14,2).Range.InsertBefore(St);:=DM.ADOTabZakazКлиент.Value;.WordDocument1.Tables.Item(1).Cell(3,2).Range.InsertBefore(St);:=DM.ADOTabZakazТелефон.Value;.WordDocument1.Tables.Item(1).Cell(4,2).Range.InsertBefore(St);:=DM.ADOTabZakazФакс.Value;.WordDocument1.Tables.Item(1).Cell(5,2).Range.InsertBefore(St);:=DM.ADOTabZakazАдрес.Value;.WordDocument1.Tables.Item(1).Cell(6,2).Range.InsertBefore(St);:=DM.ADOTabZakazEmail.Value;.WordDocument1.Tables.Item(1).Cell(7,2).Range.InsertBefore(St);:=DM.ADOTabZakazНомерТехники.Value;.WordDocument1.Tables.Item(1).Cell(9,2).Range.InsertBefore(St);:=DM.ADOTabZakazТехника.Value;.WordDocument1.Tables.Item(1).Cell(10,2).Range.InsertBefore(St);:=DM.ADOTabZakazМарка.Value;.WordDocument1.Tables.Item(1).Cell(11,2).Range.InsertBefore(St);:=DM.ADOTabZakazИмяТехники.Value;.WordDocument1.Tables.Item(1).Cell(12,2).Range.InsertBefore(St);:=DateToStr(DM.ADOTabZakazДатаЗаказа.Value);.WordDocument1.Tables.Item(1).Cell(15,2).Range.InsertBefore(St);
Except(Шаблон документа не найден!);
DM.WordApplication1.Disconnect;.Restore;;;;.WordApplication1.Disconnect;.Restore;;TForm1.N29Click(Sender: TObject);, Save: OleVariant;: integer;: string;DM.ADOTabZakazНомерЗаказа.Value=Null Then(Выберите заказ!);;;:=ExtractFilePath(Application.ExeName)+Doc3.doc;:=IntToStr(DM.ADOTabZakazНомерЗаказа.Value);:=ExtractFilePath(Application.ExeName)+Doc\Акт №+St+.doc;.WordApplication1.Connect;.Minimize;.WordApplication1.Documents.Open(N,EmptyParam,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,EmptyParam,EmptyParam);.WordDocument1.ConnectTo(DM.WordApplication1.ActiveDocument).WordDocument1.SaveAs(Save);.WordDocument1.Tables.Item(1).Cell(18,2)