Разработка автоматизированной информационной системы на примере "МегионСофтОйл"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
.N4.Enabled:=True;
Utex.Ftex.N5.Enabled:=False;
end;
//===После сохранения записи в справочник "Оргтехника"===
procedure TDataM.ADOTtexAfterPost(DataSet: TDataSet);
Utex.Ftex.N1.Enabled:=True;
Utex.Ftex.N3.Enabled:=True;
Utex.Ftex.N4.Enabled:=False;
Utex.Ftex.N5.Enabled:=True;
ADOTklient.Refresh;;
//===После отмены в справочнике "Услуги компании"===
procedure TDataM.ADOTuslugiAfterCancel(DataSet: TDataSet);
Uuslugi.Fuslugi.N1.Enabled:=True;
Uuslugi.Fuslugi.N3.Enabled:=True;
Uuslugi.Fuslugi.N4.Enabled:=False;
Uuslugi.Fuslugi.N5.Enabled:=True;
end;
//===После удаления записи в справочнике "Услуги компании"===
procedure TDataM.ADOTuslugiAfterDelete(DataSet: TDataSet);
Uuslugi.Fuslugi.N1.Enabled:=True;
Uuslugi.Fuslugi.N3.Enabled:=True;
Uuslugi.Fuslugi.N4.Enabled:=False;
Uuslugi.Fuslugi.N5.Enabled:=True;
end;
//===После изменения записи в справочнике "Услуги компании"===
procedure TDataM.ADOTuslugiAfterEdit(DataSet: TDataSet);
Uuslugi.Fuslugi.N1.Enabled:=False;
Uuslugi.Fuslugi.N3.Enabled:=False;
Uuslugi.Fuslugi.N4.Enabled:=True;
Uuslugi.Fuslugi.N5.Enabled:=False;
end;
//===После добавление записи в справочник "Услуги компании"===
procedure TDataM.ADOTuslugiAfterInsert(DataSet: TDataSet);
Uuslugi.Fuslugi.N1.Enabled:=False;
Uuslugi.Fuslugi.N3.Enabled:=False;
Uuslugi.Fuslugi.N4.Enabled:=True;
Uuslugi.Fuslugi.N5.Enabled:=False;
end;
//===После сохранения записи в справочник "Услуги компании"===
procedure TDataM.ADOTuslugiAfterPost(DataSet: TDataSet);
Uuslugi.Fuslugi.N1.Enabled:=True;
Uuslugi.Fuslugi.N3.Enabled:=True;
Uuslugi.Fuslugi.N4.Enabled:=False;
Uuslugi.Fuslugi.N5.Enabled:=True;
ADOTklient.Refresh;;
//===После отмены в справочнике "Узлы оргтехники"===
procedure TDataM.ADOTuzelAfterCancel(DataSet: TDataSet);
Uuzel.Fuzel.N1.Enabled:=True;
Uuzel.Fuzel.N3.Enabled:=True;
Uuzel.Fuzel.N4.Enabled:=False;
Uuzel.Fuzel.N5.Enabled:=True;
end;
//===После удаления записи в справочнике "Узлы оргтехники"===
procedure TDataM.ADOTuzelAfterDelete(DataSet: TDataSet);
Uuzel.Fuzel.N1.Enabled:=True;
Uuzel.Fuzel.N3.Enabled:=True;
Uuzel.Fuzel.N4.Enabled:=False;
Uuzel.Fuzel.N5.Enabled:=True;
end;
//===После изменения записи в справочнике "Узлы оргтехники"===
procedure TDataM.ADOTuzelAfterEdit(DataSet: TDataSet);
Uuzel.Fuzel.N1.Enabled:=False;
Uuzel.Fuzel.N3.Enabled:=False;
Uuzel.Fuzel.N4.Enabled:=True;
Uuzel.Fuzel.N5.Enabled:=False;
end;
//===После добавление записи в справочник "Узлы оргтехники"===
procedure TDataM.ADOTuzelAfterInsert(DataSet: TDataSet);
Uuzel.Fuzel.N1.Enabled:=False;
Uuzel.Fuzel.N3.Enabled:=False;
Uuzel.Fuzel.N4.Enabled:=True;
Uuzel.Fuzel.N5.Enabled:=False;
end;
//===После сохранения записи в справочник "Узлы оргтехники"===
procedure TDataM.ADOTuzelAfterPost(DataSet: TDataSet);
Uuzel.Fuzel.N1.Enabled:=True;
Uuzel.Fuzel.N3.Enabled:=True;
Uuzel.Fuzel.N4.Enabled:=False;
Uuzel.Fuzel.N5.Enabled:=True;
ADOTklient.Refresh;;
//===Отображение суммы заказа===
procedure TDataM.DSremontDataChange(Sender: TObject; Field: TField);
ADOQSumRab.Close;
ADOQSumRab.Parameters.ParamValues[N]:=ADOTremontНомерЗаказа.Value;
ADOQSumRab.Open;
ADOQSumRas.Close;.Parameters.ParamValues[N]:=ADOTremontНомерЗаказа.Value;
ADOQSumRas.Open;.FMain.Edit2.Text:=Format(%m,[ADOQSumRasУзлы.Value+ADOQSumRabРаботы.Value]);
end;
//===Переход по записям таблицы заказов===
procedure TDataM.DSzakazDataChange(Sender: TObject; Field: TField);
if UDataM.DataM.ADOTzakazВидЗаказа.Value=Проведение ТО then
begin
UMain.FMain.Panel4.Visible:=False;
UMain.FMain.Panel3.Visible:=True;
UMain.FMain.GroupBox13.Visible:=True;
UMain.FMain.GroupBox10.Visible:=False;
end;
if UDataM.DataM.ADOTzakazВидЗаказа.Value=Разработка ПО then
begin
UMain.FMain.Panel3.Visible:=False;
UMain.FMain.Panel4.Visible:=True;
UMain.FMain.GroupBox13.Visible:=False;
UMain.FMain.GroupBox10.Visible:=True;
end;;.
Модуль главной формы (UMain)UMain;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Menus, ExtCtrls, DBCtrls, StdCtrls, Grids, DBGrids, Mask, ComCtrls, Buttons;
FMain: TFMain;UDataM, Uklient, Uuslugi, Uuzel, Utex, Umarka, UReport, Uspr;
{$R *.dfm}
//===Поиск заказа===TFMain.BitBtn1Click(Sender: TObject);
UDataM.DataM.ADOTzakaz.Filter:=НомерЗаказа=+Edit3.Text;
UDataM.DataM.ADOTzakaz.Filtered:=True;
RadioGroup1.ItemIndex:=-1;;
//===Добавить дату этапа===TFMain.MonthCalendar1DblClick(Sender: TObject);
If DBGrid5.SelectedIndex=2 Then
begin
UDataM.DataM.ADOTgraf.Edit; UDataM.DataM.ADOTgraf.FieldValues[ДатаЭтапа]:=DateToStr(MonthCalendar1.Date);
UDataM.DataM.ADOTgraf.Post;
end;
If DBGrid5.SelectedIndex=3 Then
begin
UDataM.DataM.ADOTgraf.Edit; UDataM.DataM.ADOTgraf.FieldValues[ДатаЗавершенияЭтапа]:=DateToStr(MonthCalendar1.Date);
UDataM.DataM.ADOTgraf.Post;
end;;
//===Справочник "Узлы оргтехники"===TFMain.N8Click(Sender: TObject);
Uuzel.Fuzel.ShowModal;;
//===Справочник "Оргтехника"===TFMain.N6Click(Sender: TObject);
Utex.Ftex.ShowModal;;
//===Справочник "Услуги марки оргтехники"===TFMain.N7Click(Sender: TObject);
Umarka.Fmarka.ShowModal;;
//===Справочник "Услуги компании"===TFMain.N9Click(Sender: TObject);
Uuslugi.Fuslugi.ShowModal;;
//===Фильтр заказов===TFMain.RadioGroup1Click(Sender: TObject);
if RadioGroup1.ItemIndex=0 then
begin
UDataM.DataM.ADOTzakaz.Filtered:=False;
end;
if RadioGroup1.ItemIndex=1 then
begin
UDataM.DataM.ADOTzakaz.Filter:=ВидЗаказа=+Chr(39) +Проведение ТО+Chr(39);
UDataM.DataM.ADOTzakaz.Filtered:=True;
end;
if RadioGroup1.ItemIndex=2 then
begin
UDataM.DataM.ADOTzakaz.Filter:=ВидЗаказа=+Chr(39) +Разработка ПО+Chr(39);
UDataM.DataM.ADOTzakaz.Filtered:=True;
end;;
//===Справочник "Клиенты компании"===
procedure TFMain.N10Click(Sender: TObject);
Uklient.Fklient.ShowModal;;
//===Акт приема-передачи===TFMain.N11Click(Sender: TObject);
Name, NameS: OleVariant;
n: integer;
S: string;
IF UDataM.DataM.ADOTzakazНомерЗаказа.Value=Null Then
begin
Showmessage(Выберите заказ на проведение ТО!);
Exit;
end;
n:=1;
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;