Приложение

Приложение А

unit UnitMain;

interface

uses

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

Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, DBCtrls, Menus,ActiveX,ComObj;

type

TFormMain = class (TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

Label6: TLabel;

DBText3: TDBText;

Label8: TLabel;

DBText1: TDBText;

DBText12: TDBText;

Label1: TLabel;

Label2: TLabel;

DBText5: TDBText;

Label11: TLabel;

DBText9: TDBText;

DBText2: TDBText;

Label5: TLabel;

DBText6: TDBText;

Label9: TLabel;

DBText8: TDBText;

Label3: TLabel;

Label4: TLabel;

DBText11: TDBText;

GroupBox3: TGroupBox;

Label10: TLabel;

DBText7: TDBText;

Label7: TLabel;

DBText4: TDBText;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

DBGrid2: TDBGrid;

Button3: TButton;

GroupBox4: TGroupBox;

DBText10: TDBText;

Label12: TLabel;

Label14: TLabel;

DBText14: TDBText;

DBText15: TDBText;

Label16: TLabel;

DBText16: TDBText;

Label15: TLabel;

Label17: TLabel;

DBText17: TDBText;

Label20: TLabel;

DBText19: TDBText;

GroupBox5: TGroupBox;

Label18: TLabel;

DBText18: TDBText;

Label13: TLabel;

DBText13: TDBText;

Label21: TLabel;

DBText21: TDBText;

DBText20: TDBText;

Label19: TLabel;

Button4: TButton;

Button5: TButton;

Button6: TButton;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

Button7: TButton;

Button8: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure N6Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure PageControl1Change (Sender: TObject);

procedure N12Click (Sender: TObject);

procedure N13Click (Sender: TObject);

procedure Button7Click (Sender: TObject);

procedure Button8Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormMain: TFormMain;

var

wss: WideString;

ExcelApp: Variant;

implementation

uses UnitDataModule, UnitDobV, UnitDobTS, UnitEditV, UnitAbout, UnitPoiskFIO,

UnitEditTS, UnitRezOsm;

{$R *. dfm}

procedure TFormMain. Button1Click (Sender: TObject);

begin

formdobv. showmodal;

end;

procedure TFormMain. Button2Click (Sender: TObject);

begin

if MessageDlg ('Удалить? ',mtConfirmation, [mbYes,mbNo],0) =mrYes then

DBGrid1. DataSource. DataSet. Delete;

end;

procedure TFormMain. Button3Click (Sender: TObject);

begin

formdobts. showmodal;

end;

procedure TFormMain. Button4Click (Sender: TObject);

begin

if MessageDlg ('Удалить? ',mtConfirmation, [mbYes,mbNo],0) =mrYes then

DBGrid2. DataSource. DataSet. Delete;

end;

procedure TFormMain. Button5Click (Sender: TObject);

begin

FormEditV. showmodal;

end;

procedure TFormMain. Button6Click (Sender: TObject);

begin

formeditts. showmodal;

end;

procedure TFormMain. Button7Click (Sender: TObject);

begin

FormRez. showmodal;

end;

procedure TFormMain. Button8Click (Sender: TObject);

begin

ExcelApp: = CreateOleObject ('Excel. Application'); // открываем Excel

ExcelApp. Application. EnableEvents: = false; // так будет быстрее

ExcelApp. Workbooks. Open (ExtractFilePath (Application. ExeName) +'1. xls');

ExcelApp. cells [3,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('znak'). AsString;

ExcelApp. cells [5,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('marka'). AsString;

ExcelApp. cells [6,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('TipTS'). AsString;

ExcelApp. cells [7,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('Izgotovitel'). AsString;

ExcelApp. cells [8,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('Kategor'). AsString;

ExcelApp. cells [9,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('GodV'). AsString;

ExcelApp. cells [10,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('NDvig'). AsString;

ExcelApp. cells [11,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('NShassi'). AsString;

ExcelApp. cells [12,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('nkuzov'). AsString;

ExcelApp. cells [13,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('cvet'). AsString;

ExcelApp. cells [14,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('mosch'). AsString;

ExcelApp. cells [15,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('rmassa'). AsString;

ExcelApp. cells [16,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('massa'). AsString;

ExcelApp. cells [17,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('passts'). AsString;

ExcelApp. cells [18,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('datavyd'). AsString;

ExcelApp. cells [19,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('regdoc'). AsString;

ExcelApp. cells [20,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('datavydr'). AsString;

ExcelApp. Visible: =true;

end;

procedure TFormMain. FormShow (Sender: TObject);

begin

FormDataModule. ADOQueryTS. Active: =true;

FormDataModule. ADOQueryV. Active: =true;

formmain. PageControl1. ActivePageIndex: =0;

end;

procedure TFormMain. N10Click (Sender: TObject);

begin

formsearchVFIO. showmodal;

end;

procedure TFormMain. N11Click (Sender: TObject);

begin

formeditts. showmodal;

end;

procedure TFormMain. N12Click (Sender: TObject);

begin

ExcelApp: = CreateOleObject ('Excel. Application'); // открываем Excel

ExcelApp. Application. EnableEvents: = false; // так будет быстрее

ExcelApp. Workbooks. Open (ExtractFilePath (Application. ExeName) +'1. xls');

ExcelApp. cells [3,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('znak'). AsString;

ExcelApp. cells [5,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('marka'). AsString;

ExcelApp. cells [6,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('TipTS'). AsString;

ExcelApp. cells [7,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('Izgotovitel'). AsString;

ExcelApp. cells [8,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('Kategor'). AsString;

ExcelApp. cells [9,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('GodV'). AsString;

ExcelApp. cells [10,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('NDvig'). AsString;

ExcelApp. cells [11,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('NShassi'). AsString;

ExcelApp. cells [12,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('nkuzov'). AsString;

ExcelApp. cells [13,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('cvet'). AsString;

ExcelApp. cells [14,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('mosch'). AsString;

ExcelApp. cells [15,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('rmassa'). AsString;

ExcelApp. cells [16,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('massa'). AsString;

ExcelApp. cells [17,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('passts'). AsString;

ExcelApp. cells [18,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('datavyd'). AsString;

ExcelApp. cells [19,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('regdoc'). AsString;

ExcelApp. cells [20,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('datavydr'). AsString;

ExcelApp. Visible: =true;

end;

procedure TFormMain. N13Click (Sender: TObject);

begin

FormRez. showmodal;

end;

procedure TFormMain. N3Click (Sender: TObject);

begin

formdobv. showmodal;

end;

procedure TFormMain. N4Click (Sender: TObject);

begin

formdobts. showmodal;

end;

procedure TFormMain. N5Click (Sender: TObject);

begin

FormEditV. showmodal;

end;

procedure TFormMain. N6Click (Sender: TObject);

begin

close;

end;

procedure TFormMain. N8Click (Sender: TObject);

begin

FormAbout. showmodal;

end;

procedure TFormMain. PageControl1Change (Sender: TObject);

begin

if PageControl1. ActivePageIndex=1 then

begin

with FormDataModule. ADOQueryTS do

begin

sql. clear;

sql. add ('select * from ts where keyv='+

DBGrid1. DataSource. DataSet. FieldByName ('idv'). AsString);

Active: =true;

end;

Caption: =DBGrid1. DataSource. DataSet. FieldByName ('fam'). AsString+' '+

DBGrid1. DataSource. DataSet. FieldByName ('ima'). AsString+' '+

DBGrid1. DataSource. DataSet. FieldByName ('otch'). AsString;

end else

Caption: ='ГИБДД';

end;

end.

unit UnitRezOsm;

interface

uses

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

Dialogs, StdCtrls,ComObj;

type

TFormRez = class (TForm)

Button1: TButton;

Button2: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormRez: TFormRez; ExcelApp: Variant;

implementation

uses UnitMain;

{$R *. dfm}

procedure TFormRez. Button1Click (Sender: TObject);

begin

with formmain do begin

ExcelApp: = CreateOleObject ('Excel. Application'); // открываем Excel

ExcelApp. Application. EnableEvents: = false; // так будет быстрее

ExcelApp. Workbooks. Open (ExtractFilePath (Application. ExeName) +'2. xls');

ExcelApp. cells [6,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('znak'). AsString;

ExcelApp. cells [10,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('marka'). AsString;

ExcelApp. cells [11,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('Izgotovitel'). AsString;

ExcelApp. cells [12,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('Kategor'). AsString;

ExcelApp. cells [13,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('GodV'). AsString;

ExcelApp. cells [15,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('NDvig'). AsString;

ExcelApp. cells [16,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('NShassi'). AsString;

ExcelApp. cells [17,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('nkuzov'). AsString;

ExcelApp. cells [18,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('cvet'). AsString;

ExcelApp. cells [19,5]. value: ='Исправен';

ExcelApp. Visible: =true;

end;

end;

procedure TFormRez. Button2Click (Sender: TObject);

begin

with formmain do begin

ExcelApp: = CreateOleObject ('Excel. Application'); // открываем Excel

ExcelApp. Application. EnableEvents: = false; // так будет быстрее

ExcelApp. Workbooks. Open (ExtractFilePath (Application. ExeName) +'2. xls');

ExcelApp. cells [6,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('znak'). AsString;

ExcelApp. cells [10,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('marka'). AsString;

ExcelApp. cells [11,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('Izgotovitel'). AsString;

ExcelApp. cells [12,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('Kategor'). AsString;

ExcelApp. cells [13,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('GodV'). AsString;

ExcelApp. cells [15,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('NDvig'). AsString;

ExcelApp. cells [16,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('NShassi'). AsString;

ExcelApp. cells [17,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('nkuzov'). AsString;

ExcelApp. cells [18,5]. value: =

DBGrid2. DataSource. DataSet. FieldByName ('cvet'). AsString;

ExcelApp. cells [19,5]. value: ='Не исправен';

ExcelApp. Visible: =true;

end;

end;

end.

unit UnitPoiskFIO;

interface

uses

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

Dialogs, StdCtrls;

type

TformsearchVFIO = class (TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

formsearchVFIO: TformsearchVFIO;

implementation

uses UnitDataModule, UnitMain;

{$R *. dfm}

procedure TformsearchVFIO. Button1Click (Sender: TObject);

begin

with formdatamodule. ADOQueryV do

begin

sql. Clear;

sql. Add ('select * from vladelec where fam like '+

QuotedStr ('%'+edit1. Text+'%') +

' or ima like '+QuotedStr ('%'+edit2. Text+'%') +

' or otch like '+QuotedStr ('%'+edit3. Text+'%'));

active: =true;

end;

formmain. PageControl1. ActivePageIndex: =0;

close;

end;

end.

unit UnitAbout;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TFormAbout = class (TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormAbout: TFormAbout;

implementation

{$R *. dfm}

end.

unit UnitDataModule;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TFormDataModule = class (TDataModule)

ADOConnection: TADOConnection;

ADOQueryTS: TADOQuery;

ADOQueryV: TADOQuery;

ADOQueryZap: TADOQuery;

DataSourceTS: TDataSource;

DataSourceV: TDataSource;

DataSourceZap: TDataSource;

ADOQueryTSidTS: TAutoIncField;

ADOQueryTSZnak: TWideStringField;

ADOQueryTSMarka: TWideStringField;

ADOQueryTSTipTS: TWideStringField;

ADOQueryTSIzgotovitel: TWideStringField;

ADOQueryTSKategor: TWideStringField;

ADOQueryTSGodV: TDateTimeField;

ADOQueryTSNdvig: TIntegerField;

ADOQueryTSNshassi: TIntegerField;

ADOQueryTSNkuzov: TIntegerField;

ADOQueryTSCvet: TWideStringField;

ADOQueryTSMosch: TWideStringField;

ADOQueryTSRMassa: TIntegerField;

ADOQueryTSMassa: TIntegerField;

ADOQueryTSPassTS: TWideStringField;

ADOQueryTSDataVyd: TDateTimeField;

ADOQueryTSRegDoc: TWideStringField;

ADOQueryTSDataVydR: TDateTimeField;

ADOQueryTSKeyV: TIntegerField;

ADOQueryVidV: TAutoIncField;

ADOQueryVIma: TWideStringField;

ADOQueryVOtch: TWideStringField;

ADOQueryVDR: TDateTimeField;

ADOQueryVDocUL: TWideStringField;

ADOQueryVSerNom: TWideStringField;

ADOQueryVDataVyd: TDateTimeField;

ADOQueryVKray: TWideStringField;

ADOQueryVRaion: TWideStringField;

ADOQueryVPunkt: TWideStringField;

ADOQueryVUl: TWideStringField;

ADOQueryVDom: TIntegerField;

ADOQueryVKv: TWideStringField;

ADOQueryVTel: TWideStringField;

ADOQueryVFam: TWideStringField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormDataModule: TFormDataModule;

implementation

{$R *. dfm}

end.

unit UnitDobTS;

interface

uses

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

Dialogs, StdCtrls, Mask;

type

TFormDobTS = class (TForm)

MaskEditZnak: TMaskEdit;

EditMarka: TEdit;

ComboBoxTipTS: TComboBox;

EditIzgotovitel: TEdit;

ComboBoxCategor: TComboBox;

MaskEditGodV: TMaskEdit;

MaskEditNdvig: TMaskEdit;

MaskEditNkuzov: TMaskEdit;

EditCvet: TEdit;

MaskEditMosch: TMaskEdit;

MaskEditRMassa: TMaskEdit;

MaskEditMassa: TMaskEdit;

MaskEditPassTS: TMaskEdit;

MaskEditDataVyp: TMaskEdit;

MaskEditRegDoc: TMaskEdit;

MaskEditDataVydR: TMaskEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Button1: TButton;

MaskEditNShssi: TMaskEdit;

Label17: TLabel;

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormDobTS: TFormDobTS;

implementation

uses UnitDataModule;

{$R *. dfm}

procedure TFormDobTS. Button1Click (Sender: TObject);

var

I: Integer;

begin

for I: = 0 to ComponentCount-1 do

if (Components [i]. ClassType=tedit) then

if (tedit (Components [i]). Text='') then

begin

ShowMessage ('Заполните все поля!!! ');

Exit;

end;

with formdatamodule. adoqueryzap do

begin

sql. Clear;

sql. Add ('insert into ts'+

(znak,marka,tipts, izgotovitel,kategor,godv,ndvig,nshassi,nkuzov,cvet,mosch,rmassa,massa,passts,datavyd,regdoc,keyv,datavydr) values ('+

QuotedStr (MaskEditZnak. Text) +','+

QuotedStr (EditMarka. Text) +','+

QuotedStr (ComboBoxTipTS. Text) +','+

QuotedStr (EditIzgotovitel. Text) +','+

QuotedStr (ComboBoxCategor. Text) +','+

QuotedStr (MaskEditGodV. Text) +','+

  • (MaskEditNdvig. Text) +','+
  • (MaskEditNShssi. Text) +','+
  • (MaskEditNkuzov. Text) +','+

QuotedStr (EditCvet. Text) +','+

  • (MaskEditMosch. Text) +','+
  • (MaskEditRMassa. Text) +','+
  • (MaskEditMassa. Text) +','+
  • (MaskEditPassTS. Text) +','+

QuotedStr (MaskEditDataVyp. Text) +','+

QuotedStr (MaskEditRegDoc. Text) +','+

(FormDataModule. ADOQueryV. FieldByName ('idv'). AsString) +','+

QuotedStr (MaskEditDataVydR. Text) +') '

);

execsql;

end;

with formdatamodule. ADOQueryTS do

begin

Active: =false;

Active: =true;

end;

close;

end;

end.

unit UnitDobV;

interface

uses

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

Dialogs, StdCtrls, Mask;

type

TFormDobV = class (TForm)

Button1: TButton;

MaskEditDR: TMaskEdit;

MaskEditSerNom: TMaskEdit;

MaskEditDataVyd: TMaskEdit;

MaskEditTel: TMaskEdit;

MaskEditDom: TMaskEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

EditFam: TEdit;

EditIma: TEdit;

EditOtch: TEdit;

EditDocUL: TEdit;

EditKray: TEdit;

EditRayon: TEdit;

EditPunkt: TEdit;

EditUl: TEdit;

EditKV: TEdit;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormDobV: TFormDobV;

implementation

uses UnitDataModule;

{$R *. dfm}

procedure TFormDobV. Button1Click (Sender: TObject);

var

I: Integer;

begin

for I: = 0 to ComponentCount-1 do

if (Components [i]. ClassType=tedit) then

if (tedit (Components [i]). Text='') then

begin

ShowMessage ('Заполните все поля!!! ');

Exit;

end;

with formdatamodule. adoqueryzap do

begin

sql. Clear;

sql. Add ('insert into vladelec'+

' (fam, ima,otch,dr,docul,sernom,datavyd,kray,raion,punkt,ul,dom,kv,tel) values ('+

QuotedStr (EditFam. Text) +','+

QuotedStr (EditIma. Text) +','+

QuotedStr (EditOtch. Text) +','+

QuotedStr (MaskEditDR. Text) +','+

QuotedStr (EditDocUL. Text) +','+

QuotedStr (MaskEditSerNom. Text) +','+

QuotedStr (MaskEditDataVyd. Text) +','+

QuotedStr (EditKray. Text) +','+

QuotedStr (EditRayon. Text) +','+

QuotedStr (EditPunkt. Text) +','+

QuotedStr (EditUl. Text) +','+

QuotedStr (MaskEditDom. Text) +','+

QuotedStr (EditKV. Text) +','+

QuotedStr (MaskEditTel. Text) +') '

);

execsql;

end;

with formdatamodule. ADOQueryV do

begin

Active: =false;

Active: =true;

end;

close;

end;

end.

unit UnitEditTS;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls;

type

TFormEditTS = class (TForm)

Label13: TLabel;

Label19: TLabel;

Label21: TLabel;

Label18: TLabel;

Label15: TLabel;

Label17: TLabel;

Label20: TLabel;

Label16: TLabel;

Label14: TLabel;

Label12: TLabel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

DBEdit15: TDBEdit;

Button1: TButton;

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormEditTS: TFormEditTS;

implementation

uses UnitDataModule;

{$R *. dfm}

procedure TFormEditTS. Button1Click (Sender: TObject);

begin

formdatamodule. ADOQueryTS. Edit;

formdatamodule. ADOQueryTS. post;

close;

end;

end.

unit UnitEditV;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls;

type

TFormEditV = class (TForm)

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormEditV: TFormEditV;

implementation

uses UnitDataModule;

{$R *. dfm}

procedure TFormEditV. Button1Click (Sender: TObject);

begin

formdatamodule. ADOQueryV. Edit;

formdatamodule. ADOQueryV. post;

close;

end;

end.

Приложение Б

Модульная схема

Приложение В (Выходные документы)
 
< Пред   СОДЕРЖАНИЕ   Загрузить