DBGrid1: TDBGrid;

Panel1: TPanel;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

Label7: TLabel;

DBEdit7: TDBEdit;

Label8: TLabel;

DBEdit8: TDBEdit;

private

{ Private declarations }

public

{ Public declarations }

end;

var

ClientForm: TClientForm;

implementation

uses DMUnit;

{$R *.dfm}

end.

unit CountryUnit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids;

type

TCountryForm = class(TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DBEdit1: TDBEdit;

private

{ Private declarations }

public

{ Public declarations }

end;

var

CountryForm: TCountryForm;

implementation

uses DMUnit;

{$R *.dfm}

end.

unit DepUnit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids;

type

TOtdForm = class(TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DBEdit1: TDBEdit;

private

{ Private declarations }

public

{ Public declarations }

end;

var

OtdForm: TOtdForm;

implementation

uses DMUnit;

{$R *.dfm}

end.

unit DMUnit;

interface

uses

SysUtils, Classes, DB, ADODB, XPMan;

type

TDM = class(TDataModule)

ADOConnection1: TADOConnection;

Country: TADOTable;

XPManifest1: TXPManifest;

Clients: TADOTable;

Post: TADOTable;

Claim: TADOTable;

Depart: TADOTable;

Resort: TADOTable;

User: TADOTable;

Adm: TADOTable;

CountryDSDesigner: TAutoIncField;

CountryDSDesigner2: TWideStringField;

AdmDSDesigner: TAutoIncField;

AdmDSDesigner2: TWideStringField;

AdmDSDesigner3: TBooleanField;

AdmDSDesigner4: TBooleanField;

AdmDSDesigner5: TBooleanField;

UserDSDesigner: TAutoIncField;

UserDSDesigner2: TWideStringField;

UserDSDesigner3: TWideStringField;

UserDSDesigner4: TWideStringField;

UserDSDesigner5: TIntegerField;

UserDSDesigner6: TIntegerField;

UserDSDesigner7: TIntegerField;

DepartDSDesigner: TAutoIncField;

DepartDSDesigner2: TWideStringField;

ResortDSDesigner2: TWideStringField;

ResortDSDesigner3: TWideStringField;

ResortDSDesigner4: TIntegerField;

ResortField: TStringField;

ClientsDSDesigner: TAutoIncField;

ClientsDSDesigner2: TWideStringField;

ClientsDSDesigner3: TWideStringField;

ClientsDSDesigner4: TWideStringField;

ClientsDSDesigner5: TWideStringField;

ClientsDSDesigner6: TDateTimeField;

ClientsDSDesigner7: TWideStringField;

ClientsDSDesigner8: TWideStringField;

ClientsEmail: TWideStringField;

ClaimDSDesigner: TAutoIncField;

ClaimDSDesigner2: TWideStringField;

ClaimDSDesigner3: TSmallintField;

ClaimDSDesigner4: TSmallintField;

ClaimDSDesigner5: TDateTimeField;

ClaimDSDesigner6: TDateTimeField;

ClaimDSDesigner7: TIntegerField;

ClaimDSDesigner10: TIntegerField;

ClaimDSDesigner11: TIntegerField;

ClaimDSDesigner12: TIntegerField;

ClaimDSDesigner13: TDateTimeField;

ClaimDSDesigner14: TDateTimeField;

ClaimDSDesigner15: TDateTimeField;

PostDSDesigner: TAutoIncField;

PostDSDesigner2: TWideStringField;

UserField: TStringField;

UserField2: TStringField;

UserField3: TStringField;

ClaimStringField: TStringField;

ClaimField: TStringField;

ClaimField2: TStringField;

ClaimIntegerField2: TStringField;

DSAdm: TDataSource;

DSClaim: TDataSource;

DSClients: TDataSource;

DSCountry: TDataSource;

DSDepart: TDataSource;

DSPost: TDataSource;

DSResort: TDataSource;

DSUser: TDataSource;

ResortDSDesigner: TAutoIncField;

ClaimDSDesigner8: TIntegerField;

ClaimField3: TStringField;

procedure ClaimAfterInsert(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM: TDM;

implementation

uses MainUnit;

{$R *.dfm}

procedure TDM.ClaimAfterInsert(DataSet: TDataSet);

begin

Dm.Claim.FieldByName('Сформировал').AsInteger:=MainUnit.UserIndex;

Dm.Claim.FieldByName('ДатаФормирования').AsDateTime:=Now;

end;

end.

unit FIUnit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls;

type

TFIForm = class(TForm)

Label1: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Label2: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

Label3: TLabel;

DBEdit1: TDBEdit;

Label4: TLabel;

DBEdit2: TDBEdit;

Label5: TLabel;

DBEdit3: TDBEdit;

Label6: TLabel;

DBEdit4: TDBEdit;

Label7: TLabel;

DBEdit5: TDBEdit;

GroupBox1: TGroupBox;

Label8: TLabel;

Label9: TLabel;

DBLookupComboBox3: TDBLookupComboBox;

DBEdit6: TDBEdit;

GroupBox2: TGroupBox;

Label10: TLabel;

Label11: TLabel;

DBLookupComboBox4: TDBLookupComboBox;

DBEdit7: TDBEdit;

GroupBox3: TGroupBox;

Label12: TLabel;

Label13: TLabel;

DBLookupComboBox5: TDBLookupComboBox;

DBEdit8: TDBEdit;

private

{ Private declarations }

public

{ Public declarations }

end;

var

FIForm: TFIForm;

implementation

uses DMUnit;

{$R *.dfm}

end.

Размещено на Allbest.ru