Руководство пользователя. Рисунок 1 – .exeфайл

На рабочем столе открываем папку “База данных” и выбираем Project1.exeфайл

 

Рисунок 1 –.exeфайл

 

Программа после открытия выглядит так

 

Рисунок 2 – Интерфейс программы

 

Для того чтобы посмотреть инструкцию по применению программы нужно нажать кнопку “Справка”

Рисунок 3 – Справка программы

Листинг программы

 

unit Unit1;

 

interface

 

uses

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

Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB, ComCtrls;

 

type

TForm1 = class(TForm)

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

StatusBar1: TStatusBar;

Button1: TButton;

Button2: TButton;

Button3: TButton;

BitBtn4: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

fs:string;

 

implementation

 

uses Unit2, Unit3, Unit4, Unit5;

 

{$R *.dfm}

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Form2.show;

adoquery1.Insert;

end;

 

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Adoquery1.Delete

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Form2.show;

end;

 

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin

fs:=fs+key;

dbgrid1.datasource.dataset.locate('№ Бензина',fs,[lopartialkey]);

statusbar1.Panels.Items[0].Text:='Ищем:'+fs;

 

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Form3.show;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

form4.show;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

Form5.show;

end;

 

end.

 

unit Unit2;

 

interface

 

uses

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

Dialogs, StdCtrls, Buttons, Mask, DBCtrls;

 

type

TForm2 = class(TForm)

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form2: TForm2;

 

implementation

 

uses Unit1;

 

{$R *.dfm}

 

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Form1.ADOQuery1.Post;

close;

end;

 

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

close;

end;

 

end.

 

unit Unit3;

 

interface

 

uses

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

Dialogs, StdCtrls;

 

type

TForm3 = class(TForm)

Label1: TLabel;

Label2: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form3: TForm3;

 

implementation

 

{$R *.dfm}

 

end.