Geum.ru


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

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

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



/a>

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); UDataM.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); UDataM.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);

S:=IntToStr(UDataM.DataM.ADOTzakazСкидка.Value); UDataM.DataM.WordDoc.Tables.Item(5).Cell(4,2).Range.InsertBefore(S); Sum:=UDataM.DataM.ADOQSumRasУзлы.Value+DataM.ADOQSumRabРаботы.Value;

Sum:=Sum-(Sum*UDataM.DataM.ADOTzakazСкидка.Value/100);

S:=Format(%m,[Sum]); UDataM.DataM.WordDoc.Tables.Item(5).Cell(5,2).Range.InsertBefore(S);

Except

begin

ShowMessage(Шаблон документа "Акт выполненных работ" не найден!);

UDataM.DataM.WordApp.Disconnect;

Application.Restore;

exit;

end;

end;

UDataM.DataM.WordApp.Disconnect;

Application.Restore;;

//===Отчет ТО===TFMain.N15Click(Sender: TObject);

Ureport.FReport.Caption:=Отчет ТО;

Ureport.FReport.ShowModal;;

//===Отчет ПО===TFMain.N16Click(Sender: TObject);

Ureport.FReport.Caption:=Отчет ПО;

Ureport.FReport.ShowModal;;

//===Выход===TFMain.N17Click(Sender: TObject);

FMain.Close;;

//===Справка===TFMain.N5Click(Sender: TObject);

Uspr.Fspr.ShowModal;;

//===Добавить заказ на проведение ТО===

procedure TFMain.SBAddClick(Sender: TObject);

Panel4.Visible:=False;

Panel3.Visible:=True;

UDataM.DataM.ADOTzakaz.Insert;

DBLookupComboBox3.Visible:=True;

DBLookupComboBox2.Visible:=True;

DBLookupComboBox4.Visible:=True;

DateTimePicker1.Enabled:=True;

DateTimePicker1.Date:=Date();

DateTimePicker2.Enabled:=True;

DateTimePicker2.Date:=Date();

DBMemo1.Visible:=False;

DBComboBox1.ReadOnly:=True;

Memo1.Visible:=True;

Memo1.Clear;

Edit1.Visible:=True;

Edit1.Clear;

DBEdit2.Visible:=False;

DBEDate1.Visible:=False;

DBEdit7.Visible:=False;

DBEdit1.Visible:=False;

DBEdit5.Visible:=False;

DBEdit6.Visible:=False;

SBAdd.Enabled:=False;

SBSave.Enabled:=True;

SBdelet.Enabled:=False;;

//===Добавить заказ на разработку ПО===

procedure TFMain.SBAddPOClick(Sender: TObject);

Panel3.Visible:=False;

Panel4.Visible:=True;

UDataM.DataM.ADOTzakaz.Insert;

DBLookupComboBox7.Visible:=True;

DBComboBox2.ReadOnly:=True;

DBMemo2.Visible:=False;

Memo2.Visible:=True;

Memo2.Clear;

Edit5.Visible:=True;

Edit5.Clear;

DBEdit13.Visible:=False;

DBEdit11.Visible:=False;

Edit4.Visible:=True;

Edit4.Clear;

DBEdit12.Visible:=False;

SBAddPO.Enabled:=False;

SBSavePO.Enabled:=True;

SBdeletPO.Enabled:=False;

end;

//===Отменить заказ на проведение ТО===

procedure TFMain.SBcancelClick(Sender: TObject);

UDataM.DataM.ADOTzakaz.Cancel;

UDataM.DataM.ADOTremont.Cancel;

DateTimePicker1.Enabled:=False;

DateTimePicker2.Enabled:=False;

DBComboBox1.ReadOnly:=False;

DBMemo1.Visible:=True;

Memo1.Visible:=False;

DBLookupComboBox3.Visible:=False;

DBLookupComboBox2.Visible:=False;

DBLookupComboBox4.Visible:=False;

Edit1.Visible:=False;

DBEDate1.Visible:=True;

DBEdit7.Visible:=True;

DBEdit2.Visible:=True;

DBEdit1.Visible:=True;

DBEdit5.Visible:=True;

DBEdit6.Visible:=True;

SBAdd.Enabled:=True;

SBSave.Enabled:=False;

SBdelet.Enabled:=True;;

//===Отменить заказ на разработку ПО===

procedure TFMain.SBcancelPOClick(Sender: TObject);

UDataM.DataM.ADOTzakaz.Cancel;

UDataM.DataM.ADOTprog.Cancel;

DBLookupComboBox7.Visible:=False;

DBComboBox2.ReadOnly:=False;

DBMemo2.Visible:=True;

Memo2.Visible:=False;

Edit5.Visible:=False;

DBEdit13.Visible:=True;

DBEdit11.Visible:=True;

Edit4.Visible:=False;

DBEdit12.Visible:=True;

SBAddPO.Enabled:=True;

SBSavePO.Enabled:=False;

SBdeletPO.Enabled:=True;;

//===Удалить заказ на проведение ТО===

procedure TFMain.SBdeletClick(Sender: TObject);

IF MessageBox(Handle, УДАЛЕНИЕ ЗАПИСИ!!!+#10+#10+

Вы действительно хотите удалить запись?+#10+#10+

После нажатия на кнопку ДА, данные будут удалены.+#10+

Для отмены удаления нажмите на кнопку НЕТ., ВНИМАНИЕ!!!,

MB_YesNo+MB_ICONWARNING+MB_TaskModal) = mrYes Then

UDataM.DataM.ADOTzakaz.Delete;;

//===Удалить заказ на разработку ПО===

procedure TFMain.SBdeletPOClick(Sender: TObject);

IF MessageBox(Handle, УДАЛЕНИЕ ЗАПИСИ!!!+#10+#10+

Вы действительно хотите удалить запись?+#10+#10+

После нажатия на кнопку ДА, данные будут удалены.+#10+

&#