База Данных Государственной Инспекции Безопасности Дорожного Движения

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;