Запустить программу в среде turbo delphi - воссоздать программу

unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, Grids, DBGrids, ToolWin, ImgList,
ExtCtrls, StdCtrls, DB, ADODB;
 
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
StatusBar1: TStatusBar;
ImageList1: TImageList;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
Panel2: TPanel;
ToolBar3: TToolBar;
ToolButton15: TToolButton;
ToolButton16: TToolButton;
ToolButton17: TToolButton;
ToolButton18: TToolButton;
ToolButton19: TToolButton;
DBGrid2: TDBGrid;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
DBGrid1: TDBGrid;
Splitter1: TSplitter;
N20: TMenuItem;
N19: TMenuItem;
N21: TMenuItem;
N23: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure DBGrid2DblClick(Sender: TObject);
procedure ToolButton17Click(Sender: TObject);
procedure ToolButton15Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure ToolButton19Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
 
 
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
procedure MaterialP();
procedure UslugaP();
 
implementation
 
uses DataUnit, SotrUnit, KlientUnit, ObjectUnit,
EditSotr, KlientEditUnit, MaterialUnit, ObjectEditUnit,
UslugaEditTableUnit, UslugaEditUnit, MaterialEditUnit, AboutUnit,
ZakazEditUnit;
 
{$R *.dfm}
procedure MaterialP();
var
PosicionUsluga:integer;
StoimostMaterialov:real;
begin
{todo -o -cPaul :услугизапрос на обновление суммы услуги = SUM((Кол-во_мтовара)*(Цена_товара))}
PosicionUsluga := datamodule2.ADOTable4KeyUsluga.AsInteger;
with FormUslugaEdit.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('SELECT Sum([UslugaMaterialS]![Kolichestvo]*[MaterialS]![CurrentMaterialEdinica])');
sql.Add('FROM MaterialS INNER JOIN UslugaMaterialS ON MaterialS.KeyMaterial = UslugaMaterialS.Material');
sql.Add('WHERE (((UslugaMaterialS.Usluga)= '+inttostr(PosicionUsluga)+' ));');
open;
end;
if datamodule2.ADOTable7.RecordCount = 0 then
StoimostMaterialov := 0;
StoimostMaterialov := FormUslugaEdit.ADOQuery1Expr1000.AsFloat;
try
with datamodule2.QueryUpdate do
begin
close;
sql.Clear;
SQL.Add('UPDATE UslugaS ');
SQL.Add('SET UslugaS.CurrentMaterial = '+ floattostr(StoimostMaterialov));
SQL.Add('WHERE UslugaS.KeyUsluga = '+inttostr(PosicionUsluga));
// showmessage(SQL.Text);
execSQL;
end;
datamodule2.ADOTable4.Refresh;
except
end;
end;
 
procedure UslugaP();
var
PosicionZakaz:integer;
StoimostUslug:real;
begin
{todo -o -cPaul :ЗАКАЗАзапрос на обновление суммы ЗАКАЗА = SUM((СТОИМОСТЬ_товара)+(СТОИМОСТЬ_ДОСТАВКИ))}
PosicionZakaz := datamodule2.ADOTable6KeyDogovorD.AsInteger;
with datamodule2.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('SELECT Sum([UslugaS]![CurrentMaterial]+[UslugaS]![StoimostRabot]) ');
sql.Add('FROM UslugaS');
sql.Add('WHERE (((UslugaS.Zakaz)= '+inttostr(PosicionZakaz)+' ));');
open;
end;
if datamodule2.ADOTable7.RecordCount = 0 then
StoimostUslug := 0;
StoimostUslug := datamodule2.ADOQuery1Expr1000.AsFloat;
try
with datamodule2.QueryUpdate do
begin
close;
sql.Clear;
SQL.Add('UPDATE DogovorORemonteU ');
SQL.Add('SET DogovorORemonteU.SumZakaza = '+ floattostr(StoimostUslug));
SQL.Add('WHERE DogovorORemonteU.KeyDogovorD = '+inttostr(PosicionZakaz));
// showmessage(SQL.Text);
execSQL;
end;
datamodule2.ADOTable6.Refresh;
except
end;
 
end;
procedure TForm1.N2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
FormSotr.ShowModal;
end;
 
procedure TForm1.N9Click(Sender: TObject);
begin
FormKlient.ShowModal;
end;
 
procedure TForm1.N8Click(Sender: TObject);
begin
FormObject.ShowModal;
end;
 
procedure TForm1.N7Click(Sender: TObject);
begin
FormUslugaEdit.Caption := 'Услуга на заказ № '+datamodule2.ADOTable6NumberD.AsString+' - '+datamodule2.ADOTable4NameUsluga.AsString;
FormUslugaEdit.showmodal;
end;
 
procedure TForm1.N10Click(Sender: TObject);
begin
FormMaterial.ShowModal;
end;
 
 
procedure TForm1.DBGrid2DblClick(Sender: TObject);
begin
FormUslugaEdit.Caption := 'Услуга на заказ № '+datamodule2.ADOTable6NumberD.AsString+' - '+datamodule2.ADOTable4NameUsluga.AsString;
FormUslugaEdit.showmodal;
end;
 
procedure TForm1.ToolButton17Click(Sender: TObject);
begin
FormUslugaEdit.Caption := 'Услуга на заказ № '+datamodule2.ADOTable6NumberD.AsString+' - '+datamodule2.ADOTable4NameUsluga.AsString;
FormUslugaEdit.showmodal;
end;
 
procedure TForm1.ToolButton15Click(Sender: TObject);
begin
datamodule2.ADOTable4.Insert;
FormUslugaEdit.Caption := 'Услуга на заказ № '+datamodule2.ADOTable6NumberD.AsString+' - НОВАЯ *';
FormUslugaEdit.showmodal;
end;
 
procedure TForm1.N21Click(Sender: TObject);
begin
case application.MessageBox('Вы действительно хотите удалить выбранную услугу?','Подтверждение удаления',MB_YESNO+mb_IconExclamation) of
idYes : datamodule2.ADOTable4.Delete;
idNo : exit;
end;
end;
 
procedure TForm1.N19Click(Sender: TObject);
begin
datamodule2.ADOTable4.Insert;
FormUslugaEdit.Caption := 'Услуга на заказ № '+datamodule2.ADOTable6NumberD.AsString+' - НОВАЯ *';
FormUslugaEdit.showmodal;
end;
 
procedure TForm1.ToolButton19Click(Sender: TObject);
begin
case application.MessageBox('Вы действительно хотите удалить выбранную услугу?','Подтверждение удаления',MB_YESNO+mb_IconExclamation) of
idYes : datamodule2.ADOTable4.Delete;
idNo : exit;
end;
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
aboutbox.ShowModal;
end;
 
procedure TForm1.N14Click(Sender: TObject);
begin
FormZakazEdit.Caption := 'Заказ - НОВЫЙ *';
datamodule2.ADOTable6.Insert;
FormZakazEdit.ShowModal;
end;
 
procedure TForm1.N15Click(Sender: TObject);
begin
FormZakazEdit.Caption := 'Заказ № '+datamodule2.ADOTable6NumberD.AsString;
FormZakazEdit.showmodal;
end;
 
procedure TForm1.N16Click(Sender: TObject);
begin
case application.MessageBox('Вы действительно хотите удалить выбранный заказ?','Подтверждение удаления',MB_YESNO+mb_IconExclamation) of
idYes : datamodule2.ADOTable6.Delete;
idNo : exit;
end;
end;
 
procedure TForm1.ToolButton7Click(Sender: TObject);
begin
FormZakazEdit.Caption := 'Заказ - НОВЫЙ *';
datamodule2.ADOTable6.Insert;
FormZakazEdit.ShowModal;
end;
 
procedure TForm1.ToolButton8Click(Sender: TObject);
begin
FormZakazEdit.Caption := 'Заказ № '+datamodule2.ADOTable6NumberD.AsString;
FormZakazEdit.showmodal;
end;
 
procedure TForm1.ToolButton9Click(Sender: TObject);
begin
case application.MessageBox('Вы действительно хотите удалить выбранный заказ?','Подтверждение удаления',MB_YESNO+mb_IconExclamation) of
idYes : datamodule2.ADOTable6.Delete;
idNo : exit;
end;
end;
 
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
FormZakazEdit.Caption := 'Заказ № '+datamodule2.ADOTable6NumberD.AsString;
FormZakazEdit.showmodal;
end;
 
end.
unit Inform;
 
interface
 
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;
 
type
TAboutBox = class(TForm)
Panel1: TPanel;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
Comments: TLabel;
OKButton: TButton;
 
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
AboutBox: TAboutBox;
 
implementation
 
{$R *.dfm}
 
end.
unit DataUnit;
 
interface
 
uses
SysUtils, Classes, Menus, DB, ADODB;
 
type
TDataModule2 = class(TDataModule)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
ADOTable3: TADOTable;
ADOTable4: TADOTable;
ADOTable5: TADOTable;
DataSource1: TDataSource;
DataSource2: TDataSource;
DataSource3: TDataSource;
DataSource4: TDataSource;
DataSource5: TDataSource;
ADOTable6: TADOTable;
DataSource6: TDataSource;
ADOTable6KeyDogovorD: TAutoIncField;
ADOTable6DateZakazaD: TDateTimeField;
ADOTable6DateBeginD: TDateTimeField;
ADOTable6DateEndD: TDateTimeField;
ADOTable6SotrudnikD: TIntegerField;
ADOTable6KlientD: TIntegerField;
ADOTable6ObjectD: TIntegerField;
ADOTable6Sotr: TStringField;
ADOTable6Klie: TStringField;
ADOTable6Obj: TStringField;
ADOTable6NumberD: TWideStringField;
ADOTable1KeySotrudnik: TAutoIncField;
ADOTable1NameSotrudnik: TWideStringField;
ADOTable1FamoliaSotrudnik: TWideStringField;
ADOTable1VaterSotrudnik: TWideStringField;
ADOTable1BirthDay: TDateTimeField;
ADOTable2KeyClient: TAutoIncField;
ADOTable2Name: TWideStringField;
ADOTable2Phone: TWideStringField;
ADOTable2Adress: TWideStringField;
ADOTable3KeyObject: TAutoIncField;
ADOTable3NameObject: TWideStringField;
ADOTable3AdressObject: TWideStringField;
ADOTable3Description: TWideStringField;
ADOTable7: TADOTable;
DataSource7: TDataSource;
ADOTable4KeyUsluga: TAutoIncField;
ADOTable4NameUsluga: TWideStringField;
ADOTable4CurrentMaterial: TFloatField;
ADOTable4StoimostRabot: TFloatField;
ADOTable4Description: TWideStringField;
ADOTable4Days: TSmallintField;
ADOTable4AllSumma: TCurrencyField;
ADOTable7KeyUslugaMaterial: TAutoIncField;
ADOTable7Usluga: TIntegerField;
ADOTable7Material: TIntegerField;
ADOTable7Kolichestvo: TSmallintField;
ADOTable7Description: TWideStringField;
ADOTable7Mater: TStringField;
ADOTable7Cena: TCurrencyField;
ADOTable7Summa: TCurrencyField;
ADOTable5KeyMaterial: TAutoIncField;
ADOTable5NameMaterial: TWideStringField;
ADOTable5CurrentMaterialEdinica: TFloatField;
ADOTable5Description: TWideStringField;
ADOTable4Zakaz: TIntegerField;
ADOTable6SumZakaza: TFloatField;
ADOQuery1: TADOQuery;
ADOQuery1Expr1000: TFloatField;
QueryUpdate: TADOQuery;
ADOTable8Reports: TADOTable;
ADOTable8ReportsNumberD: TWideStringField;
ADOTable8ReportsDateZakazaD: TDateTimeField;
ADOTable8ReportsDateBeginD: TDateTimeField;
ADOTable8ReportsDateEndD: TDateTimeField;
ADOTable8ReportsName: TWideStringField;
ADOTable8ReportsNameObject: TWideStringField;
ADOTable8ReportsFamoliaSotrudnik: TWideStringField;
ADOTable8ReportsSumZakaza: TFloatField;
DataSource8Reports: TDataSource;
procedure ADOTable4CalcFields(DataSet: TDataSet);
procedure ADOTable7CalcFields(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
DataModule2: TDataModule2;
 
implementation
 
uses EditSotr, KlientEditUnit, KlientUnit, ObjectEditUnit, ObjectUnit,
SotrUnit, Unit1;
 
{$R *.dfm}
 
procedure TDataModule2.ADOTable4CalcFields(DataSet: TDataSet);
begin
//
DataModule2.ADOTable4AllSumma.AsCurrency := DataModule2.ADOTable4CurrentMaterial.AsCurrency + DataModule2.ADOTable4StoimostRabot.AsCurrency;
end;
 
procedure TDataModule2.ADOTable7CalcFields(DataSet: TDataSet);
begin
DataModule2.ADOTable7Summa.AsCurrency := DataModule2.ADOTable7Cena.AsCurrency * DataModule2.ADOTable7Kolichestvo.AsInteger;
end;
 
end.
unit EditSotr;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Buttons;
 
type
TFormSotrEdit = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Bevel1: TBevel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
FormSotrEdit: TFormSotrEdit;
 
implementation
 
uses DataUnit, SotrUnit, Unit1;
 
{$R *.dfm}
 
procedure TFormSotrEdit.BitBtn1Click(Sender: TObject);
begin
if datamodule2.ADOTable1.Modified
then datamodule2.ADOTable1.Post;
end;
 
procedure TFormSotrEdit.BitBtn2Click(Sender: TObject);
begin
if datamodule2.ADOTable1.Modified
then datamodule2.ADOTable1.Cancel;
end;
 
 
end.
unit KlientRed;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls;
 
type
TFormKlientEdit = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn2: TBitBtn;
BitBtn1: TBitBtn;
Bevel1: TBevel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
FormKlientEdit: TFormKlientEdit;
 
implementation
 
uses DataUnit, EditSotr, KlientUnit, SotrUnit, Unit1;
 
{$R *.dfm}
 
procedure TFormKlientEdit.BitBtn1Click(Sender: TObject);
begin
if datamodule2.ADOTable2.Modified
then datamodule2.ADOTable2.Post;
end;
 
procedure TFormKlientEdit.BitBtn2Click(Sender: TObject);
begin
if datamodule2.ADOTable2.Modified
then datamodule2.ADOTable2.Cancel;
end;
 
end.
nit KlientUnit;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, Grids, DBGrids;
 
type
TFormKlient = class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
DBGrid1: TDBGrid;
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
FormKlient: TFormKlient;
 
implementation
 
uses DataUnit, EditSotr, SotrUnit, Unit1, KlientEditUnit;
 
{$R *.dfm}
 
procedure TFormKlient.ToolButton1Click(Sender: TObject);
begin
datamodule2.ADOTable2.Insert;
FormKlientEdit.ShowModal;
end;
 
procedure TFormKlient.ToolButton3Click(Sender: TObject);
begin
FormKlientEdit.ShowModal;
end;
 
procedure TFormKlient.ToolButton5Click(Sender: TObject);
begin
case application.MessageBox('Вы действительно хотите удалить выбранного клиента?','Подтверждение удаления',MB_YESNO+mb_IconExclamation) of
idYes : datamodule2.ADOTable2.Delete;
idNo : exit;
end;
end;
 
procedure TFormKlient.DBGrid1DblClick(Sender: TObject);
begin
FormKlientEdit.ShowModal;
end;
 
end.
unit TovarEditUnit;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Buttons;
 
type
TFormMaterialEdit = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Bevel1: TBevel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
FormMaterialEdit: TFormMaterialEdit;
 
implementation
 
uses DataUnit, EditSotr, KlientEditUnit, KlientUnit, MaterialUnit,
ObjectEditUnit, ObjectUnit, SotrUnit, Unit1,
UslugaEditTableUnit, UslugaEditUnit;
 
{$R *.dfm}
 
procedure TFormMaterialEdit.BitBtn1Click(Sender: TObject);
begin
if datamodule2.ADOTable5.Modified
then datamodule2.ADOTable5.Post;
end;
 
procedure TFormMaterialEdit.BitBtn2Click(Sender: TObject);
begin
if datamodule2.ADOTable5.Modified
then datamodule2.ADOTable5.Cancel;
end;
 
end.
unit TovarUnit;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ComCtrls, ToolWin;
 
type
TFormMaterial = class(TForm)
DBGrid1: TDBGrid;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
FormMaterial: TFormMaterial;
 
implementation
 
uses DataUnit, EditSotr, KlientEditUnit, KlientUnit, ObjectEditUnit,
ObjectUnit, SotrUnit, Unit1, UslugaEditTableUnit,
UslugaEditUnit, MaterialEditUnit;
 
{$R *.dfm}
 
procedure TFormMaterial.ToolButton1Click(Sender: TObject);
begin
datamodule2.ADOTable5.Insert;
FormMaterialEdit.ShowModal;
end;
 
procedure TFormMaterial.ToolButton3Click(Sender: TObject);
begin
datamodule2.ADOTable5.Edit;
FormMaterialEdit.ShowModal;
end;
 
procedure TFormMaterial.ToolButton5Click(Sender: TObject);
begin
case application.MessageBox('Вы действительно хотите удалить выбранный товар?','Подтверждение удаления',MB_YESNO+mb_IconExclamation) of
idYes : datamodule2.ADOTable5.Delete;
idNo : exit;
end;
end;
 
procedure TFormMaterial.DBGrid1DblClick(Sender: TObject);
begin
FormMaterialEdit.ShowModal;
end;
end.
unit ObjRedUnit;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Buttons;
 
type
TFormObjectEdit = class(TForm)
Label1: TLabel;
Label2: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Bevel1: TBevel;
BitBtn2: TBitBtn;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
FormObjectEdit: TFormObjectEdit;
 
implementation
 
uses DataUnit, EditSotr, KlientEditUnit, KlientUnit, ObjectUnit,
SotrUnit, Unit1;
 
{$R *.dfm}
 
procedure TFormObjectEdit.BitBtn1Click(Sender: TObject);
begin
if datamodule2.ADOTable3.Modified
then datamodule2.ADOTable3.Post;
end;
 
procedure TFormObjectEdit.BitBtn2Click(Sender: TObject);
begin
if datamodule2.ADOTable3.Modified
then datamodule2.ADOTable3.Cancel;
end;
end.
 
unit ObjUnit;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ComCtrls, ToolWin;
 
type
TFormObject = class(TForm)
DBGrid1: TDBGrid;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
FormObject: TFormObject;
 
implementation
 
uses DataUnit, EditSotr, KlientEditUnit, KlientUnit, 
SotrUnit, Unit1, ObjectEditUnit;
 
{$R *.dfm}
 
procedure TFormObject.ToolButton1Click(Sender: TObject);
begin
datamodule2.ADOTable3.Insert;
FormObjectEdit.ShowModal;
end;
 
procedure TFormObject.ToolButton3Click(Sender: TObject);
begin
FormObjectEdit.ShowModal;
end;
 
procedure TFormObject.ToolButton5Click(Sender: TObject);
begin
case application.MessageBox('Вы действительно хотите удалить выбранный объект?','Подтверждение удаления',MB_YESNO+mb_IconExclamation) of
idYes : datamodule2.ADOTable3.Delete;
idNo : exit;
end;
end;
 
procedure TFormObject.DBGrid1DblClick(Sender: TObject);
begin
FormObjectEdit.ShowModal;
end;
 
end.
unit SotrUnit;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, Grids, DBGrids;
 
type
TFormSotr = class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
DBGrid1: TDBGrid;
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
FormSotr: TFormSotr;
 
implementation
 
uses DataUnit, Unit1, EditSotr;
 
{$R *.dfm}
 
procedure TFormSotr.ToolButton1Click(Sender: TObject);
begin
datamodule2.ADOTable1.Insert;
FormSotrEdit.ShowModal;
end;
 
procedure TFormSotr.ToolButton3Click(Sender: TObject);
begin
FormSotrEdit.ShowModal;
end;
 
procedure TFormSotr.ToolButton5Click(Sender: TObject);
begin
case application.MessageBox('Вы действительно хотите удалить выбранного сотрудника?','Подтверждение удаления',MB_YESNO+mb_IconExclamation) of
idYes : datamodule2.ADOTable1.Delete;
idNo : exit;
end;
end;
 
procedure TFormSotr.DBGrid1DblClick(Sender: TObject);
begin
FormSotrEdit.ShowModal;
end;
 
end.
unit UslygaTablRed;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, Mask, ExtCtrls, Buttons;
 
type
TFormUslugaEditTable = class(TForm)
DBEdit3: TDBEdit;
DBText1: TDBText;
DBEdit4: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Bevel1: TBevel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBText2: TDBText;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
FormUslugaEditTable: TFormUslugaEditTable;
 
implementation
 
uses DataUnit, EditSotr, KlientEditUnit, KlientUnit, ObjectEditUnit,
ObjectUnit, SotrUnit, Unit1, UslugaEditUnit;
 
{$R *.dfm}
 
procedure TFormUslugaEditTable.BitBtn1Click(Sender: TObject);
begin
if datamodule2.ADOTable7.Modified then 
datamodule2.ADOTable7.Post;
end;
 
procedure TFormUslugaEditTable.BitBtn2Click(Sender: TObject);
begin
datamodule2.ADOTable7.Cancel;
end;
 
end.
unit UslygaRed;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, ComCtrls, ToolWin, Grids, DBGrids,
ExtCtrls, Buttons, DB, ADODB;
 
type
TFormUslugaEdit = class(TForm)
Panel1: TPanel;
DBGrid2: TDBGrid;
ToolBar2: TToolBar;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
Button1: TButton;
Panel2: TPanel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBText1: TDBText;
DBEdit3: TDBEdit;
DBText2: TDBText;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBEdit4: TDBEdit;
ADOQuery1: TADOQuery;
ADOQuery1Expr1000: TFloatField;
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure DBGrid2DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
FormUslugaEdit: TFormUslugaEdit;
 
implementation
 
uses DataUnit, EditSotr, KlientEditUnit, KlientUnit, ObjectEditUnit,
ObjectUnit, SotrUnit, Unit1, 
UslugaEditTableUnit;
 
{$R *.dfm}
 
procedure TFormUslugaEdit.Button1Click(Sender: TObject);
begin
//AutoMaterial();
end;
 
procedure TFormUslugaEdit.BitBtn1Click(Sender: TObject);
begin
if datamodule2.ADOTable4.Modified then
datamodule2.ADOTable4.Post;
MaterialP();
UslugaP();
end;
 
procedure TFormUslugaEdit.BitBtn2Click(Sender: TObject);
begin
datamodule2.ADOTable4.Cancel;
end;
 
procedure TFormUslugaEdit.ToolButton6Click(Sender: TObject);
begin
if datamodule2.ADOTable4.Modified then
datamodule2.ADOTable4.Post;
datamodule2.ADOTable7.Insert;
datamodule2.ADOTable7.Edit;
FormUslugaEditTable.ShowModal;
end;
 
procedure TFormUslugaEdit.ToolButton8Click(Sender: TObject);
begin
datamodule2.ADOTable7.edit;
FormUslugaEditTable.ShowModal;
end;
 
procedure TFormUslugaEdit.ToolButton10Click(Sender: TObject);
begin
case application.MessageBox('Вы действительно хотите удалить выбранный товар?','Подтверждение удаления',MB_YESNO+mb_IconExclamation) of
idYes : datamodule2.ADOTable7.Delete;
idNo : exit;
end;
end;
 
procedure TFormUslugaEdit.DBGrid2DblClick(Sender: TObject);
begin
datamodule2.ADOTable7.edit;
FormUslugaEditTable.ShowModal;
end;
 
end.
unit ZakazRed;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, Mask, ExtCtrls, Grids, DBGrids, ComCtrls,
ToolWin, Buttons;
 
type
TFormZakazEdit = class(TForm)
Panel1: TPanel;
Label4: TLabel;
Label3: TLabel;
Label2: TLabel;
Label1: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Label8: TLabel;
Label7: TLabel;
Label6: TLabel;
Label5: TLabel;
DBText1: TDBText;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBLookupComboBox3: TDBLookupComboBox;
Panel2: TPanel;
ToolBar3: TToolBar;
ToolButton15: TToolButton;
ToolButton16: TToolButton;
ToolButton17: TToolButton;
ToolButton18: TToolButton;
ToolButton19: TToolButton;
ToolButton13: TToolButton;
Button1: TButton;
DBGrid2: TDBGrid;
Bevel1: TBevel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure ToolButton15Click(Sender: TObject);
procedure ToolButton17Click(Sender: TObject);
procedure ToolButton19Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure DBGrid2DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
FormZakazEdit: TFormZakazEdit;
 
implementation
 
uses DataUnit, Unit1, UslugaEditUnit;
 
{$R *.dfm}
 
procedure TFormZakazEdit.Button1Click(Sender: TObject);
begin
//AutoZakaz();
end;
 
procedure TFormZakazEdit.ToolButton15Click(Sender: TObject);
begin
if datamodule2.ADOTable6.Modified then
begin
datamodule2.ADOTable6.Post;
datamodule2.ADOTable6.Edit;
end;
datamodule2.ADOTable4.Insert;
FormUslugaEdit.Caption := 'Услуга на заказ № '+datamodule2.ADOTable6NumberD.AsString+' - НОВАЯ *';
FormUslugaEdit.showmodal;
end;
 
procedure TFormZakazEdit.ToolButton17Click(Sender: TObject);
begin
FormUslugaEdit.Caption := 'Услуга на заказ № '+datamodule2.ADOTable6NumberD.AsString+' - '+datamodule2.ADOTable4NameUsluga.AsString;
FormUslugaEdit.showmodal;
end;
 
procedure TFormZakazEdit.ToolButton19Click(Sender: TObject);
begin
case application.MessageBox('Вы действительно хотите удалить выбранную услугу?','Подтверждение удаления',MB_YESNO+mb_IconExclamation) of
idYes : datamodule2.ADOTable4.Delete;
idNo : exit;
end;
end;
 
procedure TFormZakazEdit.BitBtn1Click(Sender: TObject);
begin
// AutoZakaz();
if datamodule2.ADOTable6.Modified then
datamodule2.ADOTable6.Post;
UslugaP();
end;
 
procedure TFormZakazEdit.BitBtn2Click(Sender: TObject);
begin
datamodule2.ADOTable6.Cancel;
end;
 
procedure TFormZakazEdit.DBGrid2DblClick(Sender: TObject);
begin
FormUslugaEdit.Caption := 'Услуга на заказ № '+datamodule2.ADOTable6NumberD.AsString+' - '+datamodule2.ADOTable4NameUsluga.AsString;
FormUslugaEdit.showmodal;
end;
 
end.