Информационная система по продаже билетов в автовокзале Delphi7+Access

Задание

Разработать аис по продаже билетов в автовокзале

Функционал программы

В системе предусмотрены несколько ролей: кассир и администратор.

• Авторизация в систему.
• Продажа билетов.
• Набор справочников: рейсы, водители, автомобили и т.д.

Фрагмент программного кода

unit users;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Grids, Vcl.DBGrids,
  Vcl.DBCtrls, Vcl.ExtCtrls, Data.Win.ADODB, Vcl.StdCtrls, sButton, sEdit,
  sLabel;

type
  TForm11 = class(TForm)
    Panel3: TPanel;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery1Код: TAutoIncField;
    ADOQuery1Логин: TWideStringField;
    ADOQuery1Пароль: TWideStringField;
    ADOQuery1Роль: TIntegerField;
    ADOQuery1Фамилия: TWideStringField;
    ADOQuery1Имя: TWideStringField;
    ADOQuery1Отчество: TWideStringField;
    ADOQuery1Датарождения: TDateTimeField;
    ADOQuery1Адрес: TWideStringField;
    ADOQuery1Телефон: TWideStringField;
    ADOQuery1Дататрудоустройства: TDateTimeField;
    ADOQuery2: TADOQuery;
    ADOQuery1Рольпользователя: TStringField;
    GroupBox1: TGroupBox;
    sLabel1: TsLabel;
    sEdit1: TsEdit;
    sLabel2: TsLabel;
    sEdit2: TsEdit;
    sLabel3: TsLabel;
    sEdit3: TsEdit;
    sButton1: TsButton;
    sButton2: TsButton;
    procedure sButton1Click(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.sButton1Click(Sender: TObject);
var
str : String;
begin
str := 'Select * from Пользователи Where (1=1) ';
if Length(sEdit1.Text) > 0 then
 str := str + ' and  (Фамилия = ' + QuotedStr (sEdit1.Text) + ')';
if Length(sEdit2.Text) > 0 then
 str := str  + ' and (Имя =' + QuotedStr(sEdit2.Text) + ')';
if Length(sEdit3.Text) > 0 then
 str := str  + ' and (Отчество =' + QuotedStr(sEdit3.Text) + ')';
ADOQuery1.SQL.Text := str;
ADOQuery1.Active := false;
ADOQuery1.Active := true;

end;

procedure TForm11.sButton2Click(Sender: TObject);
var
str : String;
begin
str := 'Select * from Пользователи Where (1=1) ';
ADOQuery1.SQL.Text := str;
ADOQuery1.Active := false;
ADOQuery1.Active := true;
end;

end.

Скриншот архива с проектом

Пояснения по запуску программы

• Установить Аксес 2010 и выше
• Запустить файл Project2.exe