Проектирование и разработка информационной системы для учета ремонтных работ и обслуживания оргтехники фирмы ООО "Компьютерный мир" г. Самара
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
.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);:=DM.ADOTabZakazМастер.Value;.WordDocument1.Tables.Item(1).Cell(14,2).Range.InsertBefore(St);:=DM.ADOTabZakazТелМастер.Value;.WordDocument1.Tables.Item(1).Cell(15,2).Range.InsertBefore(St);:=DM.ADOTabZakazСертификат.Value;.WordDocument1.Tables.Item(1).Cell(16,2).Range.InsertBefore(St);:=DateToStr(DM.ADOTabZakazДатаЗаказа.Value);.WordDocument1.Tables.Item(1).Cell(19,2).Range.InsertBefore(St);:=DateToStr(DM.ADOTabZakazДатаВыполнения.Value);.WordDocument1.Tables.Item(1).Cell(20,2).Range.InsertBefore(St);DM.ADOTabZakazВызов.Value=True then.WordDocument1.Tables.Item(1).Cell(21,2).Range.InsertBefore(ДА).WordDocument1.Tables.Item(1).Cell(21,2).Range.InsertBefore(НЕТ);DM.ADOTabZakazДоставка.Value=True then.WordDocument1.Tables.Item(1).Cell(22,2).Range.InsertBefore(ДА).WordDocument1.Tables.Item(1).Cell(22,2).Range.InsertBefore(НЕТ);:=Format(%m,[DM.ADOTabZakazСумма.Value]);.WordDocument1.Tables.Item(1).Cell(23,2).Range.InsertBefore(St);:=1;DM.ADOTabRemont do;not EOF do:=IntToStr(i);.WordDocument1.Tables.Item(2).Cell(2+i,1).Range.InsertBefore(St);:=DM.ADOTabRemontРабота.Value;.WordDocument1.Tables.Item(2).Cell(2+i,2).Range.InsertBefore(St);:=Format(%m,[DM.ADOTabRemontЦена.Value]);.WordDocument1.Tables.Item(2).Cell(2+i,3).Range.InsertBefore(St);.WordDocument1.Tables.Item(2).Rows.Add(EmptyParam);(i);;;;.WordDocument1.Tables.Item(2).Rows.Item(2+i).Delete;:=1;DM.ADOTabRashod do;not EOF do:=IntToStr(i);.WordDocument1.Tables.Item(3).Cell(2+i,1).Range.InsertBefore(St);:=DM.ADOTabRashodКатегория.Value;.WordDocument1.Tables.Item(3).Cell(2+i,2).Range.InsertBefore(St);:=DM.ADOTabRashodМатериал.Value;.WordDocument1.Tables.Item(3).Cell(2+i,3).Range.InsertBefore(St);:=Format(%m,[DM.ADOTabRashodЦена.Value]);.WordDocument1.Tables.Item(3).Cell(2+i,4).Range.InsertBefore(St);:=IntToStr(DM.ADOTabRashodКоличество.Value);.WordDocument1.Tables.Item(3).Cell(2+i,5).Range.InsertBefore(St);:=Format(%m,[DM.ADOTabRashodСумма.Value]);.WordDocument1.Tables.Item(3).Cell(2+i,6).Range.InsertBefore(St);.WordDocument1.Tables.Item(3).Rows.Add(EmptyParam);(i);;;;.WordDocument1.Tables.Item(3).Rows.Item(2+i).Delete;
Except(Шаблон документа не найден!);
DM.WordApplication1.Disconnect;.Restore;;;;.WordApplication1.Disconnect;.Restore;;TForm1.N30Click(Sender: TObject);, Save: OleVariant;: string;DM.ADOTabZakazНомерЗаказа.Value=Null Then(Выберите заказ!);;;:=ExtractFilePath(Application.ExeName)+Doc2.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(12,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(7,2).Range.InsertBefore(St);:=DM.ADOTabZakazТехника.Value;.WordDocument1.Tables.Item(1).Cell(8,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);:=DateToStr(DM.ADOTabZakazДатаЗаказа.Value);.WordDocument1.Tables.Item(1).Cell(13,2).Range.InsertBefore(St);
Except(Шаблон документа не найден!);
DM.WordApplication1.Disconnect;.Restore;;;;.WordApplication1.Disconnect;.Restore;;TForm1.N31Click(Sender: TObject);.Form9.Panel3.Visible:=True;.Form9.ShowModal;;TForm1.N4Click(Sender: TObject);.Form9.Panel3.Visible:=False;.Form9.ShowModal;;TForm1.N5Click(Sender: TObject);.Form2.ShowModal;;TForm1.N6Click(Sender: TObject);.Form4.ShowModal;;TForm1.N7Click(Sender: TObject);.Form5.ShowModal;;TForm1.N8Click(Sender: TObject);.Form6.ShowModal;;TForm1.N9Click(Sender: TObject);.Form7.ShowModal;;.
Модуль данных (Unit3.pas)
unit Unit3;, Classes, DB, ADODB, Variants,, WordXP, OleServer;: TDM;Unit1, Unit2;
{$R *.dfm}TDM.ADOQSumRashodCalcFields(DataSet: TDataSet);Сумма.Value:=ADOQSumRashodSumцена.Value;;TDM.ADOQSumRemontCalcFields(DataSet: TDataSet);Цена.Value:=ADOQSumRemontSumЦенаРаботы.Value;;TDM.ADOTabMatAfterInsert(DataSet: TDataSet);ADOTabKatКодКатегории.Value = Null then
begin(Выберите категорию материала!);.Cancel;;;КодКатегории.Value:=ADOTabKatКодКатегории.Value;
end;TDM.ADOTabRashodAfterInsert(DataSet: TDataSet);ADOTabZakazНомерЗаказа.Value = Null then(Выберите заказ!);.Cancel;;;НомерЗаказа.Value:=ADOTabZakazНомерЗаказа.Value;.Form2.N1.Visible:=True;.Form2.ShowModal;;TDM.ADOTabRashodCalcFields(DataSet: TDataSet);ADOTabRashodСумма.Value:=ADOTabRashodЦена.Value*ADOTabRashodКоличество.Value;;TDM.ADOTabRashodRecordChangeComplete(DataSet: TCustomADODataSet;Reason: TEventReason; const RecordCount: Integer; const Error: Error;EventStatus: TEventStatus);.ADOQSumRashod.Close;.ADOQSumRashod.Filter:=НомерЗаказа=+IntToStr(ADOTabZakazНомерЗаказа.Value);.ADOQSumRashod.Filtered:=True;.ADOQSumRashod.Open;;TDM.ADOTabRemontAfterInsert(DataSet: TDataSet);ADOTabZakazНомерЗаказа.Value = Null then(Выберите заказ!);.Cancel;;;НомерЗаказа.Value:=ADOTabZakazНомерЗаказа.Value;;TDM.ADOTabTexnikaAfterInsert(DataSet: TDataSet);ADOTabKlientКодКлиента.Value = Null then(Выберите клиента!);.Cancel;;;КодКлиента.Value:=ADOTabKlientКодКлиента.Value;;TDM.ADOTabZakazCalcFields(DataSet: TDataSet);.ADOQSumRemont.Close;.ADOQSumRemont.Filter:=НомерЗаказа=+IntToStr(ADOTabZakazНомерЗаказа.Value);.ADOQSumRemont.Filtered:=True;.ADOQSumRemont.Open;.ADOQSumRashod.Close;.ADOQSumRashod.Filter:=НомерЗаказа=+IntToStr(ADOTabZakazНомерЗаказа.Value);.ADOQSumRashod.Filtered:=True;.ADOQSumRashod.Open; ADOTabZakazСумма.Value:=ADOQSumRemontSumЦенаРаботы.Value+ADOQSumRashodSumцена.Value;;TDM.DSZakazDataChange(Sender: TObject; Field: TField);ADOTabZakazВызов.Value=True then.Form1.BitBtn14.Caption:=ВЫЗОВ (откл.).Form1.BitBtn14.Caption:=ВЫЗОВ (вкл.);ADOTabZakazДоставка.Value=True then.Form1.BitBtn15.Caption:=ДОСТАВКА (откл.).Form1.BitBtn15.Caption:=ДОСТАВКА (вкл.);ADOTabZakazВыполнен.Value=True then.Form1.BitBtn2.Caption:=ГОТОВ (откл.).Form1.BitBtn2.Caption:=ГОТОВ (вкл.);ADOTabZakazОплата.Value=нал then.Form1.BitBtn16.Caption:=БЕЗНАЛ (вкл.);.Form1.N15.Caption:=Наличный раiет;.Form1.BitBtn16.Caption:=НАЛ (вкл.);.Form1.N15.Caption:=Безналичный раiет;;.ADOQSumRemont.Close;.ADOQSumRemont.Filter:=НомерЗаказа=+IntToStr(ADOTabZakazНомерЗаказа.Value);.ADOQSumRemont.Filtered:=True;.ADOQSumRemont.Open;.ADOQSumRashod.Close;.ADOQSumRashod.Filter:=НомерЗаказа=+IntToStr(ADOTabZakazНомерЗаказа.Value);.ADOQSumRashod.Filtered:=True;.ADOQSumRashod.Open;
end;.
Модуль формы Расходные материалы (Unit2.pas)
unit Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DBCtrls, Grids, DBGrids, DBCGrids, Mask, ExtCtrls, Menus;: TForm2;Unit1, Unit3;
{$R *.dfm}TForm2.FormActivate(Sender: TObject);N1.Visible=True then
ShowMessage(Выберите расходные материалы для ремонта и нажмите на кнопку "Добавить расход"!);
end;TForm2.FormClose(Sender: TObject; var Action: TCloseAction);.ADOTabRashod.Cancel;.Visible:=False;;TForm2.N1Click(Sender: TObject);.ADOTabRashodКодМатериала.Value:=DM.ADOTabMatКодМатериала.Value;.ADOTabRashodКоличество.Value:=1;.ADOTabRashod.Post;.Close;;.
Модуль формы Клиенты (Unit6.pas)
Copyright © 2008-2014 geum.ru рубрикатор по предметам рубрикатор по типам работ пользовательское соглашение