• Дисциплины
• Виды работ

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

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

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

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

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

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

MB_YesNo+MB_ICONWARNING+MB_TaskModal) = mrYes Then

UDataM.DataM.ADOTuslugi.Delete;;

end.

Модуль формы справочника Оргтехника (Utex)

unit Utex;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Mask, DBCtrls, ExtCtrls, StdCtrls, DBCGrids, Menus;

Ftex: TFtex;UMain, UDataM;

{$R *.dfm}

//===Переход по записям===

procedure TFtex.FormClick(Sender: TObject);

N1.Enabled:=True;

N3.Enabled:=True;

N4.Enabled:=False;

N5.Enabled:=True;;

//===Добавить===TFtex.N1Click(Sender: TObject);

UDataM.DataM.ADOTtex.Insert;;

//===Отменить===TFtex.N2Click(Sender: TObject);

UDataM.DataM.ADOTtex.Cancel;;

//===Изменить===TFtex.N3Click(Sender: TObject);

UDataM.DataM.ADOTtex.Edit;;

//===Сохранить===TFtex.N4Click(Sender: TObject);

UDataM.DataM.ADOTtex.Post;;

//===Удалить===TFtex.N5Click(Sender: TObject);

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

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

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

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

MB_YesNo+MB_ICONWARNING+MB_TaskModal) = mrYes Then

UDataM.DataM.ADOTtex.Delete;;

end.

Модуль формы справочника Марки оргтехники (Umarka)

unit Umarka;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DBCtrls, StdCtrls, Mask, ExtCtrls, DBCGrids, Menus;

Fmarka: TFmarka;UMain, UDataM;

{$R *.dfm}

//===Переход по записям===

procedure TFmarka.DBCtrlGrid1Click(Sender: TObject);

N1.Enabled:=True;

N3.Enabled:=True;

N4.Enabled:=False;

N5.Enabled:=True;;

//===Добавить===TFmarka.N1Click(Sender: TObject);

UDataM.DataM.ADOTmarki.Insert;;

//===Отменить===TFmarka.N2Click(Sender: TObject);

UDataM.DataM.ADOTmarki.Cancel;;

//===Изменить===TFmarka.N3Click(Sender: TObject);

UDataM.DataM.ADOTmarki.Edit;;

//===Сохранить===TFmarka.N4Click(Sender: TObject);

UDataM.DataM.ADOTmarki.Post;;

//===Удалить===TFmarka.N5Click(Sender: TObject);

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

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

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

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

MB_YesNo+MB_ICONWARNING+MB_TaskModal) = mrYes Then

UDataM.DataM.ADOTmarki.Delete;;.

Модуль формы (UReport)UReport;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DBCtrls, StdCtrls, Buttons, ComCtrls;

FReport: TFReport;UMain, UDataM;

{$R *.dfm}

//===Отчеты ТО и ПО

procedure TFReport.SBreportClick(Sender: TObject);

Name, NameS: OleVariant;

Sum, SumVZ, SumNVZ: single;

n: integer;

S: string;FReport.Caption=Отчет ТО Then

begin

Name:=ExtractFilePath(Application.ExeName)+\documents\Отчет ТО.doc;

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

S:=DateToStr(DateTimePicker1.Date);

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

S:=DateToStr(DateTimePicker2.Date);

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

UDataM.DataM.ADOQReportTO.Close;.DataM.ADOQReportTO.Parameters.ParamValues[D1]:=DateTimePicker1.Date; UDataM.DataM.ADOQReportTO.Parameters.ParamValues[D2]:=DateTimePicker2.Date;

UDataM.DataM.ADOQReportTO.Open;

n:=1; SumVZ:=0; SumNVZ:=0;

With UDataM.DataM.ADOQReportTO do

begin

First;

while not EOF do

begin

S:=IntToStr(n); UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,1).Range.InsertBefore(S);:=IntToStr(UDataM.DataM.ADOQReportTOЗАКАЗЫНомерЗаказа.Value); UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,2).Range.InsertBefore(S);

S:=DateToStr(UDataM.DataM.ADOQReportTOДатаЗаказа.Value); UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,3).Range.InsertBefore(S);

S:=UDataM.DataM.ADOQReportTOКлиент.Value; UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,4).Range.InsertBefore(S);

S:=DateToStr(UDataM.DataM.ADOQReportTOДатаРемонта.Value); UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,5).Range.InsertBefore(S);

S:=DateToStr(UDataM.DataM.ADOQReportTOДатаЗавершения.Value); UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,6).Range.InsertBefore(S);

S:=UDataM.DataM.ADOQReportTOСтатус.Value; UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,7).Range.InsertBefore(S);

UDataM.DataM.ADOQSumRabR.Close; UDataM.DataM.ADOQSumRabR.Parameters.ParamValues[N]:=UDataM.DataM.ADOQReportTOЗАКАЗЫНомерЗаказа.Value;

UDataM.DataM.ADOQSumRabR.Open;

UDataM.DataM.ADOQSumRasR.Close; UDataM.DataM.ADOQSumRasR.Parameters.ParamValues[N]:=UDataM.DataM.ADOQReportTOЗАКАЗЫНомерЗаказа.Value;

UDataM.DataM.ADOQSumRasR.Open; S:=Format(%m,[UDataM.DataM.ADOQSumRabRРаботы.Value+UDataM.DataM.ADOQSumRasRУзлы.Value]); UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,8).Range.InsertBefore(S);

S:=IntToStr(UDataM.DataM.ADOQReportTOСкидка.Value); UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,9).Range.InsertBefore(S); Sum:=UDataM.DataM.ADOQSumRabRРаботы.Value+UDataM.DataM.ADOQSumRasRУзлы.Value;

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

S:=Format(%m,[Sum]); UDataM.DataM.WordDoc.Tables.Item(2).Cell(n+1,10).Range.InsertBefore(S) UDataM.DataM.WordDoc.Tables.Item(2).Rows.Add(EmptyParam);

if UDataM.DataM.ADOQReportTOСтатус.Value=завершен then

SumVZ:=SumVZ+Sum;

if UDataM.DataM.ADOQReportTOСтатус.Value=на выполнении then

SumNVZ:=SumNVZ+Sum;

inc(n);

Next;

end;

end;

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

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

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

S:=Format(%m,[SumVZ+SumNVZ]); UDataM.DataM.WordDoc.Tables.Item(3).Cell(3,2).Range.InsertBefore(S);

Except

begin

ShowMessage(Шаблон документа "Отчет ТО" не найден!);

UDataM.DataM.WordApp.Disconnect;

Application.Restore;

exit;

end;

end;

UDataM.DataM.WordApp.Disconnect;

Application.Restore;

end;FReport.Caption=Отчет ПО Then

begin

Name:=ExtractFilePath(Application.ExeName)+\documents\Отчет ПО.doc;

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

S:=DateToStr(DateTimePicker1.Date); UDataM.DataM.WordDoc.Tables.Item(1).Cell(2,2).Range.InsertBefore(S);

S:=DateToStr(DateTimePicker2.Date); UDataM.DataM.WordDoc.Tables.Item(1).Cell(3,2).Range.InsertBefore(S);

UDataM.DataM.ADOQReportPO.Close; UDataM.DataM.ADOQReportPO.Parameters.ParamValues[D1]:=DateTimePicker1.Date; UDataM.DataM.ADOQReportPO.Parameters.ParamValues[D2]:=DateTimePicker2.Date;

UDataM.DataM.ADOQReportPO.Open;

n:=1; SumVZ:=0; SumNVZ:=0;

With UDataM.DataM.ADOQReportPO do

begin

First;

while not EOF do

begin

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

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