Разработка автоматизированной информационной системы на примере "МегионСофтОйл"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
39;Для отмены удаления нажмите на кнопку НЕТ., ВНИМАНИЕ!!!,
MB_YesNo+MB_ICONWARNING+MB_TaskModal) = mrYes Then
UDataM.DataM.ADOTzakaz.Delete;;
//===Сохранить заказ на проведение ТО===
procedure TFMain.SBSaveClick(Sender: TObject);
M: String;
i: integer;
if DBLookupComboBox3.Text= then
begin
Showmessage(Выберите клиента!);
Exit;
end;
if DBLookupComboBox2.Text= then
begin
Showmessage(Выберите технику!);
Exit;
end;
if DBLookupComboBox4.Text= then
begin
Showmessage(Выберите марку техники!);
Exit;
end;
if Edit1.Text= then
begin
Showmessage(Введите серийный номер техники!);
Exit;
end; UDataM.DataM.ADOTzakazКодКлиента.Value:=UDataM.DataM.ADOTklientКодКлиента.Value;
UDataM.DataM.ADOTzakazДатаЗаказа.Value:=Date();
UDataM.DataM.ADOTzakazВидЗаказа.Value:=Проведение ТО;
UDataM.DataM.ADOTzakaz.Post;
UDataM.DataM.ADOTzakaz.Refresh;
UDataM.DataM.ADOTremont.Insert; UDataM.DataM.ADOTremontНомерЗаказа.Value:=UDataM.DataM.ADOTzakazНомерЗаказа.Value; UDataM.DataM.ADOTremontКодТехники.Value:=UDataM.DataM.ADOTtexКодТехники.Value; UDataM.DataM.ADOTremontКодМарки.Value:=UDataM.DataM.ADOTmarkiКодМарки.Value;
UDataM.DataM.ADOTremontСтатус.Value:=на выполнении; UDataM.DataM.ADOTremont.FieldValues[ДатаРемонта]:=DateToStr(DateTimePicker1.Date); UDataM.DataM.ADOTremont.FieldValues[ДатаЗавершения]:=DateToStr(DateTimePicker2.Date);
UDataM.DataM.ADOTremontСерийныйНомер.Value:=Edit1.Text;
For i:=0 to Memo1.Lines.Count-1 do
M:=M+Memo1.Lines.Strings[i];
UDataM.DataM.ADOTremontОписание.Value:=M;
UDataM.DataM.ADOTremont.Post;
UDataM.DataM.ADOTremont.Refresh;
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;
end;
//===Сохранить заказ на разработку ПО===
procedure TFMain.SBSavePOClick(Sender: TObject);
M: String;
i: integer;
if DBLookupComboBox7.Text= then
begin
Showmessage(Выберите клиента!);
Exit;
end;
if Edit5.Text= then
begin
Showmessage(Введите имя программного обеспечения!);
Exit;
end;
if Edit4.Text= then
begin
Showmessage(Введите цену программного обеспечения!);
Exit;
end; UDataM.DataM.ADOTzakazКодКлиента.Value:=UDataM.DataM.ADOTklientКодКлиента.Value;
UDataM.DataM.ADOTzakazДатаЗаказа.Value:=Date();
UDataM.DataM.ADOTzakazВидЗаказа.Value:=Разработка ПО;
UDataM.DataM.ADOTzakaz.Post;
UDataM.DataM.ADOTzakaz.Refresh;
UDataM.DataM.ADOTprog.Insert; UDataM.DataM.ADOTprogНомерЗаказа.Value:=UDataM.DataM.ADOTzakazНомерЗаказа.Value;
UDataM.DataM.ADOTprogИмяПО.Value:=Edit5.Text;
UDataM.DataM.ADOTprogЦена.Value:=StrToFloat(Edit4.Text);
UDataM.DataM.ADOTprogСтатус.Value:=на выполнении;
For i:=0 to Memo2.Lines.Count-1 do
M:=M+Memo2.Lines.Strings[i];
UDataM.DataM.ADOTprogОписание.Value:=M;
UDataM.DataM.ADOTprog.Post;
UDataM.DataM.ADOTprog.Refresh;
UDataM.DataM.ADOTgraf.Insert; UDataM.DataM.ADOTgrafНомерЗаказа.Value:=UDataM.DataM.ADOTzakazНомерЗаказа.Value;
UDataM.DataM.ADOTgrafЭтап.Value:=1;
UDataM.DataM.ADOTgrafНаименование.Value:=Проектирование;
UDataM.DataM.ADOTgrafСтатусЭтапа.Value:=в разработке;
UDataM.DataM.ADOTgraf.Post;
UDataM.DataM.ADOTgraf.Refresh;
UDataM.DataM.ADOTgraf.Insert; UDataM.DataM.ADOTgrafНомерЗаказа.Value:=UDataM.DataM.ADOTzakazНомерЗаказа.Value;
UDataM.DataM.ADOTgrafЭтап.Value:=2;
UDataM.DataM.ADOTgrafНаименование.Value:=Разработка;
UDataM.DataM.ADOTgrafСтатусЭтапа.Value:=в разработке;
UDataM.DataM.ADOTgraf.Post;
UDataM.DataM.ADOTgraf.Refresh;
UDataM.DataM.ADOTgraf.Insert; UDataM.DataM.ADOTgrafНомерЗаказа.Value:=UDataM.DataM.ADOTzakazНомерЗаказа.Value;
UDataM.DataM.ADOTgrafЭтап.Value:=3;
UDataM.DataM.ADOTgrafНаименование.Value:=Тестирование;
UDataM.DataM.ADOTgrafСтатусЭтапа.Value:=в разработке;
UDataM.DataM.ADOTgraf.Post;
UDataM.DataM.ADOTgraf.Refresh;
UDataM.DataM.ADOTgraf.Insert; UDataM.DataM.ADOTgrafНомерЗаказа.Value:=UDataM.DataM.ADOTzakazНомерЗаказа.Value;
UDataM.DataM.ADOTgrafЭтап.Value:=4;
UDataM.DataM.ADOTgrafНаименование.Value:=Внедрение;
UDataM.DataM.ADOTgrafСтатусЭтапа.Value:=в разработке;
UDataM.DataM.ADOTgraf.Post;
UDataM.DataM.ADOTgraf.Refresh;
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;
end;.
Модуль формы справочника Клиенты компании (Uklient)
unit Uklient;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Menus, Grids, DBGrids, StdCtrls, Buttons, DBCtrls;
Fklient: TFklient;UMain, UDataM;
{$R *.dfm}
//===Переход по записям===
procedure TFklient.DBGrid1ColumnMoved(Sender: TObject; FromIndex,
ToIndex: Integer);
N1.Enabled:=True;
N3.Enabled:=True;
N4.Enabled:=False;
N5.Enabled:=True;;
//===Добавить===TFklient.N1Click(Sender: TObject);
UDataM.DataM.ADOTklient.Insert;;
//===Отменить===TFklient.N2Click(Sender: TObject);
UDataM.DataM.ADOTklient.Cancel;;
//===Изменить===TFklient.N3Click(Sender: TObject);
UDataM.DataM.ADOTklient.Edit;;
//===Сохранить===TFklient.N4Click(Sender: TObject);
UDataM.DataM.ADOTklient.Post;;
//===Удалить===TFklient.N5Click(Sender: TObject);
IF MessageBox(Handle, УДАЛЕНИЕ ЗАПИСИ!!!+#10+#10+
Вы действительно хотите удалить запись?+#10+#10+
После нажатия на кнопку ДА, данные будут удалены.+#10+
Для отмены удаления нажмите на кнопку НЕТ., ВНИМАНИЕ!!!,
MB_YesNo+MB_ICONWARNING+MB_TaskModal) = mrYes Then
UDataM.DataM.ADOTklient.Delete;;
end.
Модуль формы справочника Услуги компании (Uuslugi)
unit Uuslugi;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Grids, DBGrids, Menus, DBCtrls, StdCtrls;
Fuslugi: TFuslugi;UMain, UDataM;
{$R *.dfm}
//===Переход по записям===
procedure TFuslugi.DBGrid1ColumnMoved(Sender: TObject; FromIndex,
ToIndex: Integer);
N1.Enabled:=True;
N3.Enabled:=True;
N4.Enabled:=False;
N5.Enabled:=True;;
//===Добавить===TFuslugi.N1Click(Sender: TObject);
UDataM.DataM.ADOTuslugi.Insert;;
//===Отменить===TFuslugi.N2Click(Sender: TObject);
UDataM.DataM.ADOTuslugi.Cancel;;
//===Изменить===TFuslugi.N3Click(Sender: TObject);
UDataM.DataM.ADOTuslugi.Edit;;
//===Сохранить===TFuslugi.N4Click(Sender: TObject);
UDataM.DataM.ADOTuslugi.Post;;
//===Удалить===TFuslugi.N5Click(Sender: TObject);
IF MessageBox(Handle, УДАЛЕНИЕ ЗАПИСИ!!!+#10+#10+
Вы дейст