На нашем сайте Вы сможете найти готовые курсовые и дипломные работы по программированию
Сейчас работаем

Информационная система по продаже билетов в автовокзале 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


        
Купить 1250,00 
Сразу после оплаты Вы получите работу на электронную почту. Файлы отправляются автоматически. Исходник программ Вы сможете отредактировать, как Вам нужно.
Комментарии (2)

ramil9209

/ /

Оставить комментарий

Ты не можешь комментировать

Только зарегистрированые пользователи имеют возможность комментировать работы
Похожие работы
Другие работы автора
Тип Название Рейтинг Категория Стоимость
Исходник Информационная система "Книжная викторина" Delphi7+Access 1 Pascal/Delphi 399,00
Исходник Информационная система "Магазин Сантехники" Delphi7+Access 1 Pascal/Delphi 399,00
Исходник Информационная система "Цветочный магазин" Delphi7+Access 1 Pascal/Delphi 2 000,00
Исходник Информационная система ГИБДД Access 1 Базы данных 399,00
Исходник Информационная система Университет Delphi7+Access 1 Pascal/Delphi 750,00
Новые работы
Тип Название Рейтинг Категория Стоимость
Контрольная Театр (C#, WinForms, Access) new 0 .NET (C#) 1 500,00
Исходник Автошкола (C#, WPF, SQL Server, SQLite) new 0 .NET (C#) 2 500,00
Исходник Программа Парадокс дней рождения Python new 0 Python 700,00
Исходник ИС Налогоплательщики С# + SQL Server new 0 .NET (C#) 2 500,00
Исходник Логическая игра "Бейглз" Python new 0 Python 700,00
Купить

1250,00 

Сразу после оплаты Вы получите работу на электронную почту. Файлы отправляются автоматически. Исходник программ Вы сможете отредактировать, как Вам нужно.

Заказать через

Автовокзал.zip
16532677
Оцени работу

рейтинг

Категории
Информационная система по продаже билетов в автовокзале Delphi7+Access
Исходный проект на Делфи по теме Информационная система Автовокзал
Категория: Образование
Стоимость: 1250,00