Разработка автоматизированной информационной системы на примере "МегионСофтОйл"

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

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

UDataM.DataM.WordDoc.Tables.Item(2).Cell(3,2).Range.InsertBefore(S);

S:=DBEdit5.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(4,2).Range.InsertBefore(S);

S:=DBEdit6.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(5,2).Range.InsertBefore(S);

S:=DBEdit2.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(6,2).Range.InsertBefore(S);

S:=;

For n:=0 to DBMemo1.Lines.Count-1 do

S:=S+DBMemo1.Lines.Strings[n];

UDataM.DataM.WordDoc.Tables.Item(2).Cell(2,4).Range.InsertBefore(S);

Except

begin

ShowMessage(Шаблон документа "Акт приема-передачи" не найден!);

UDataM.DataM.WordApp.Disconnect;

Application.Restore;

exit;

end;

end;

UDataM.DataM.WordApp.Disconnect;

Application.Restore;

end;

//===Наряд на ТО===TFMain.N12Click(Sender: TObject);

Name, NameS: OleVariant;

n: integer;

S: string;

IF UDataM.DataM.ADOTzakazНомерЗаказа.Value=Null Then

begin

Showmessage(Выберите заказ на проведение ТО!);

Exit;

end;

Name:=ExtractFilePath(Application.ExeName)+\documents\Наряд на проведение ТО.doc;

S:=IntToStr(UDataM.DataM.ADOTzakazНомерЗаказа.Value);

NameS:=ExtractFilePath(Application.ExeName)+\temp\Наряд на проведение ТО №+S+.doc;

UDataM.DataM.WordApp.Connect;

Try

Application.Minimize;

UDataM.DataM.WordApp.Documents.Open(Name,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);.DataM.WordDoc.ConnectTo(UDataM.DataM.WordApp.ActiveDocument);

UDataM.DataM.WordDoc.SaveAs(NameS); UDataM.DataM.WordDoc.Tables.Item(1).Cell(1,2).Range.InsertBefore(S);

S:=DateToStr(UDataM.DataM.ADOTzakazДатаЗаказа.Value);

UDataM.DataM.WordDoc.Tables.Item(1).Cell(1,4).Range.InsertBefore(S);

S:=DBEdit1.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(1,2).Range.InsertBefore(S);

S:=DBEdit3.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(2,2).Range.InsertBefore(S);

S:=DBEdit4.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(3,2).Range.InsertBefore(S);

S:=DBEdit5.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(4,2).Range.InsertBefore(S);

S:=DBEdit6.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(5,2).Range.InsertBefore(S);

S:=DBEdit2.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(6,2).Range.InsertBefore(S);

S:=DBEDate1.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(7,2).Range.InsertBefore(S);

S:=;

For n:=0 to DBMemo1.Lines.Count-1 do

S:=S+DBMemo1.Lines.Strings[n];

UDataM.DataM.WordDoc.Tables.Item(2).Cell(2,4).Range.InsertBefore(S);

n:=1;

With UDataM.DataM.ADOTrab do

begin

First;

while not EOF do

begin

S:=IntToStr(n);.DataM.WordDoc.Tables.Item(3).Cell(n+1,1).Range.InsertBefore(S);

S:=UDataM.DataM.ADOTrabУслуга.Value;.DataM.WordDoc.Tables.Item(3).Cell(n+1,2).Range.InsertBefore(S);

S:=IntToStr(UDataM.DataM.ADOTrabКоличество.Value);.DataM.WordDoc.Tables.Item(3).Cell(n+1,3).Range.InsertBefore(S);

UDataM.DataM.WordDoc.Tables.Item(3).Rows.Add(EmptyParam);

inc(n);

Next;

end;

end;

UDataM.DataM.WordDoc.Tables.Item(3).Rows.Item(n+1).Delete;

Except

begin

ShowMessage(Шаблон документа "Наряд на проведение ТО" не найден!);

UDataM.DataM.WordApp.Disconnect;

Application.Restore;

exit;

end;

end;

UDataM.DataM.WordApp.Disconnect;

Application.Restore;;

//===Дефектная ведомость===TFMain.N13Click(Sender: TObject);

Name, NameS: OleVariant;

n: integer;

S: string;

IF UDataM.DataM.ADOTzakazНомерЗаказа.Value=Null Then

begin

Showmessage(Выберите заказ на проведение ТО!);

Exit;

end;

Name:=ExtractFilePath(Application.ExeName)+\documents\Дефектная ведомость.doc;

S:=IntToStr(UDataM.DataM.ADOTzakazНомерЗаказа.Value);

NameS:=ExtractFilePath(Application.ExeName)+\temp\Дефектная ведомость №+S+.doc;

UDataM.DataM.WordApp.Connect;

Try

Application.Minimize;

UDataM.DataM.WordApp.Documents.Open(Name,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);.DataM.WordDoc.ConnectTo(UDataM.DataM.WordApp.ActiveDocument);

UDataM.DataM.WordDoc.SaveAs(NameS);

UDataM.DataM.WordDoc.Tables.Item(1).Cell(1,2).Range.InsertBefore(S);

S:=DateToStr(UDataM.DataM.ADOTzakazДатаЗаказа.Value);

UDataM.DataM.WordDoc.Tables.Item(1).Cell(1,4).Range.InsertBefore(S);

S:=DBEdit1.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(1,2).Range.InsertBefore(S);

S:=DBEdit3.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(2,2).Range.InsertBefore(S);

S:=DBEdit4.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(3,2).Range.InsertBefore(S);

S:=DBEdit5.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(4,2).Range.InsertBefore(S);

S:=DBEdit6.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(5,2).Range.InsertBefore(S);

S:=DBEdit2.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(6,2).Range.InsertBefore(S);

S:=DBEDate1.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(7,2).Range.InsertBefore(S);

S:=DBEdit7.Text;

UDataM.DataM.WordDoc.Tables.Item(2).Cell(8,2).Range.InsertBefore(S);

S:=;

For n:=0 to DBMemo1.Lines.Count-1 do

S:=S+DBMemo1.Lines.Strings[n];

UDataM.DataM.WordDoc.Tables.Item(2).Cell(2,4).Range.InsertBefore(S);

n:=1;

With UDataM.DataM.ADOTrab do

begin

First;

while not EOF do

begin

S:=IntToStr(n);.DataM.WordDoc.Tables.Item(3).Cell(n+1,1).Range.InsertBefore(S);

S:=UDataM.DataM.ADOTrabУслуга.Value; UDataM.DataM.WordDoc.Tables.Item(3).Cell(n+1,2).Range.InsertBefore(S);

S:=Format(%m,[UDataM.DataM.ADOTrabЦена.Value]); UDataM.DataM.WordDoc.Tables.Item(3).Cell(n+1,3).Range.InsertBefore(S);

S:=IntToStr(UDataM.DataM.ADOTrabКоличество.Value); UDataM.DataM.WordDoc.Tables.Item(3).Cell(n+1,4).Range.InsertBefore(S);

S:=Format(%m,[UDataM.DataM.ADOTrabСумма.Value]); UDataM.DataM.WordDoc.Tables.Item(3).Cell(n+1,5).Range.InsertBefore(S);

UDataM.DataM.WordDoc.Tables.Item(3).Rows.Add(EmptyParam);

inc(n);

Next;

end;

end;

UDataM.DataM.WordDoc.Tables.Item(3).Rows.Item(n+1).Delete;

n:=1;

With UDataM.DataM.ADOTras do

begin

First;

while not EOF do

begin

S:=IntToStr(n); UDataM.DataM.WordDoc.Tables.Item(4).Cell(n+1,1).Range.InsertBefore(S);

S:=UDataM.DataM.ADOTrasУзел.Value; UDataM.DataM.WordDoc.Tables.Item(4).Cell(n+1,2).Range.InsertBefore(S);

S:=Format(%m,[UDataM.DataM.ADOTrasЦена.Value]); UDataM.DataM.WordDoc.Tables.Item(4).Cell(n+1,3).Range.InsertBefore(S);

S:=IntToStr(UDataM.DataM.ADOTrasКоличество.Value); UDataM.DataM.WordDoc.Tables.Item(4).Cell(n+1,4).Range.InsertBefore(S);

S:=Format(%m,[UDataM.DataM.ADOTrasСумма.Value]); UDataM.DataM.WordDoc.Tables.Item(4).Cell(n+1,5).Range.InsertBefore(S);

UDataM.DataM.WordDoc.Tables.Item(4).Rows.Add(EmptyParam);

inc(n);

Next;

end;

end;

UDataM.DataM.WordDoc.Tables.Item(4).Rows.Item(n+1).Delete;

S:=Format(%m,[UDataM.DataM.ADOQSumRabРаботы.Value]); UDataM.DataM.WordDoc.Tables.Item(5).Cell(1,2).Range.InsertBefore(S);

S:=Format(%m,[UDataM.DataM.ADOQSumRasУзлы.Value]); UDataM.DataM.WordDoc.Tables.Item(5).Cell(2,2).Range.InsertBefore(S);

S:=Edit2.Text; UDataM.DataM.WordDoc.Tables.Item(5).Cell(3,2).Range.InsertBefore(S);

Except

begin

ShowMessage(Шаблон документа "Дефектная ведомость" не найден!);

UDataM.DataM.WordApp.Disconnect;

Application.Restore;

exit;

end;

end;

UDataM.DataM.WordApp.Disconnect;

Application.Restore;;

//===Акт выполненных работ===TFMain.N14Click(Sender: TObject);

Name, NameS: OleVariant;

Sum: single;

n: integer;

S: string;

IF UDataM.DataM.ADOTzakazНомерЗаказа.Value=Null Then

begin

Showmessage(Выберите заказ на проведение ТО!);

Exit;

end;

Name:=ExtractFilePath(Application.ExeName)+\documents\Акт выполненных работ.doc;<

• На первую страницу
• Назад
• 7
• 8
• 9
• 10
• 11
• 12
• 13
• 14
• 15
• 16
• 17
• 18
• 19
• 20
• 21
• Далее