Образец базы данных «Автопарк» с формами и кодами
Первая форма предназначена для ввода пароля и проверки его правильности.
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;