Образец базы данных «Автопарк» с формами и кодами

Первая форма предназначена для ввода пароля и проверки его правильности.

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

Edit1: TEdit;

Label1: TLabel;

Button1: TButton;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); // пароль

begin

if form1.edit1.Text=IntToStr(8688) then

Form2.Show;

end;

2 форма предназначена для ввода данных в таблицы БД, причем каждая таблица располагается на отдельной закладке, а навигатор у них – общий.

unit Unit2;

interface

type

TForm2 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet5: TTabSheet;

DBGridVoditeli: TDBGrid;

DBNavigator2: TDBNavigator;

DBGridStatus: TDBGrid;

TableStatus: TTable;

DataSourceStatus: TDataSource;

DataSourceSotr: TDataSource;

TableSotr: TTable;

DBGridSotr: TDBGrid;

DBNavigator3: TDBNavigator;

DBGridDolzh: TDBGrid;

DBNavigator4: TDBNavigator;

TableDolzh: TTable;

DataSourceDolzh: TDataSource;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure PageControl1Change(Sender: TObject);

procedure TForm2.Button1Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Form4.Show;

end;

Третья форма разработана для выборки данных – запросов . Для этого на форме устанавливается компонент TQuery,который осуществляет отбор данных с помощью языка запросов - языка SQL.

Конструктор формы с компонентами для запросов и отчетов.

unit Unit3;

interface

uses

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

Dialogs, Unit2, StdCtrls, DB, DBTables, Grids, DBGrids, ComCtrls,

ExtCtrls, DBCtrls, RpCon, RpConDS, RpConBDE, RpDefine, RpRave, Menus;

type

TForm3 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Button2: TButton;

DataSource1: TDataSource;

Query2: TQuery;

DataSource2: TDataSource;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

Query1: TQuery;

TabSheet3: TTabSheet;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

DataSource3: TDataSource;

DBGrid3: TDBGrid;

Query3: TQuery;

DBNavigator3: TDBNavigator;

DBNavigator1: TDBNavigator;

RvProject1: TRvProject;

RvQueryConnection1: TRvQueryConnection;

procedure Button2Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;n:string;

implementation

{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);

begin

Form3.Close;

Form2.Show;

end;

procedure TForm3.N2Click(Sender: TObject); // выбор авто с датой ремонта

begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add ('SELECT Марка, Номер, Дата_последнего_ремонта

FROM "Автомобили.db"');

Query1.Open;

end;

procedure TForm3.N3Click(Sender: TObject);

var n:string[70];

begin

n:=InputBox('Запрос по фамилии водителя','Введите фамилию,имя и отчество

водителя (в апострофах)','');

Query2.Close;

Query2.SQL.Clear;

Query2.SQL.Add('SELECT Код_водителя,ФИО,Адрес,Телефон,Паспорт,Дата_рождения

FROM "Водители.db"');

Query2.SQL.Add('WHERE ФИО='+n”);

Query2.Open;

end;