АРМ менеджера продаж ЖД вокзала

Тип работы:
Курсовая
Предмет:
Программирование


Узнать стоимость

Детальная информация о работе

Выдержка из работы

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РК

АЛМАТИНСКИЙ УНИВЕРСИТЕТ ЭНЕРГЕТИКИ И СВЯЗИ

Кафедра Инженерной кибернетики

Курсовая работа

По дисциплине: Объектно-ориентированное программирование

На тему: «АРМ менеджера продаж ЖД вокзала»

Выполнил: Макке А. Д.

Группа: БАУу-10−01

Проверил: Омарова Г. А.

Алматы, 2011

Введение

В настоящее время ЭВМ настолько широко используется, что нет такой области, где применение ЭВМ было бы нецелесообразным. В настоящее время ЭВМ широко применяются во многих отраслях деятельности человека. Ни одна фирма не может обойтись в своей работе без применения компьютеров, которые с успехом заменяют рутинную работу, выполнявшуюся ранее в ручную, повышая эффективность работы любой фирмы. Особенно важна роль ЭВМ для развития науки, роста промышленного производства и повышения эффективности управления.

Язык программирования Delphi — это система объектно-ориентированного визуального программирования остается одной из самых популярных систем программирования в мире, которому по плечу любые задачи от создания простых программ, предназначенных для решения несложных вычислительных задач, до разработки сложнейших реляционных систем управления базами данных. Преимущества ООП по сравнению с традиционными способами программирования: 1. Эта концепция в наибольшей степени соответствует внутренней логике функционирования операционной системы Windows. Программа, состоящая из отдельных объектов, отлично приспособлена к реагированию на события, происходящие в операционной системе. 2. Большая надежность кода и возможность повторного использования отработанных объектов.

В данной курсовой работе будет приведен пример приложения работающего с автономными БД — «АРМ менеджера продаж ЖД вокзала» Приложение было разработано автором в среде Delphi 7. Данная информационно-справочная система может применяться на вокзалах, для получения информации о поездах, маршрутах и тарифах, а также дает возможность пассажиру заказать билет.

Назначение и цели создания ПО

1. Цель разработки ПО

Разработать АРМ менеджера продаж ЖД вокзала. Для разработки этого ПП используется язык программирования Delphi версии 7. 0

Информационно-справочная система — это совокупность организационных, технических, программных и информационных средств, объединенных в единую систему с целью сбора, хранения, обработки и выдачи информации.

Содержание таблицы информаций:

— Маршрут;

— номер рейса;

— время отправления (ч.м.);

— время прибытия (ч. м);

— Продолжительность;

— Периодичность;

— дата отправления;

2. Функции ПО

— возможность получить подробную информацию о маршрутах (по станции, по времени отправления (ч.м.), по дате отправления и т. д).

— возможность потенциальному пассажиру заказать билет с помощью интернета.

— формирование и редактирование списка пассажиров.

— администратор может вносить изменения в маршрутах добавлять или удалять.

— возможность поиска пассажира в списке пассажиров.

— возможность экспортировать билет на Еxcel.

3. Область применения

Данная АРМ менеджера продаж ЖД вокзала может применяться на вокзалах, для получения информации о поездах, маршрутах и тарифах, а также быстрого поиска требующегося рейса в расписании.

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

Разработка программы

Для разработки программы выбрана среда Delphi. Компоненты для работы с БД среды Delphi 7.

В качестве технологии доступа к данным была выбрана ADO.

Технология Microsoft ActiveX Data Objects обеспечивает универсальный доступ к источникам данных из приложений БД.

Выбор в пользу ADO был сделан из-за предоставляемых преимуществ:

-Простота проектирования приложения за счет концептуальной модели.

-Независимость модели данных приложения от модели базы данных

-Средства для решения проблем, возникающих из-за изменений в структуре базы данных

-Мощный и гибкий интерфейс взаимодействия.

-Средства доступа и модификации данных.

-Средства для обеспечения безопасности данных.

-Простота смены СУБД. Возможность работы с несколькими СУБД.

-Многопоточный доступ к данным.

-Средства оптимизации производительности в зависимости от конкретной задачи. Возможность работы с БД больших объемов.

Каждое приложение, использующее базы данных, обычно имеет по крайней мере по одному компоненту следующих типов:

• Компоненты — наборы данных (Data set), непосредственно связывающиеся с базой данных. Для ADO это такие компоненты, как ADOTable, ADOQuery. Для других технологий имеются аналогичные компоненты наборов данных.

• Компонент — источник данных (Data source), осуществляющий обмен информацией между компонентами первого типа и компонентами визуализации и управления данными. Таким компонентом является DataSource.

• Компоненты визуализации данных и управления данными, такие, как DBGrid, DBEdit и множество других.

Связь этих компонентов друг с другом и с базой данных можно представить схемой приведенной ниже:

Схема взаимодействия компонентов Delphi с базой данных.

Построение общей модели

Построение алгоритма

Алгоритмы работы программы являются стандартными алгоритмами работы с базой данных. В основном все алгоритмы работы связаны с вводом данных от пользователя, проверке введенной информации на предмет нарушения целостности данных и занесение введенной информации в саму базу, если введенные сведения не нарушают целостности.

Алгоритмы по редактированию данных и занесению их в базу, а также алгоритмы, осуществляющие удаление информации из базы данных также являются стандартными.

Схема данных

Приблизительный алгоритм ввода данных в базу

Перечень окон программного продукта:

1. Окно Вход в программу (Скриншот окна рис. 1 Приложение В, Листинг Приложение А, Unit1) предназначен для входа в Справочную систему. Вход осуществляется посредством ввода Логина и пароля сотрудника. При вводе неверного логина и пароля выскакивает сообщение «Неверный логин или пароль». На ней находятся 3 компонента ВitButton и 2 компонента Edit. Не зарегистрированные пассажиры должны зарегистрироваться нажав кнопку «Зарегистрироваться».

2. После нажатия кнопки «Зарегистрироваться» проскакивает окно «Регистрация"(Скриншот окна рис. 2, Приложение В, Листинг Приложение А, Unit2) На ней находятся 4 компонента Edit куда пассажир вводит свой Логин, пароль, ФИО, e-mail и после нажатия кнопки «регистрация» выскакивает сообщение «Вы успешно зарегистрированы».

3. Вход в главную программу. (Скриншот окна рис. 4, Приложение В, Листинг Приложение А, Unit4) Данную форму может видеть только Администратор. На ней находятся 2 компонента ВitButton при нажатии обращающиеся к другим формам.

4. Редактирование. (Скриншот окна рис. 3, Приложение В, Листинг Приложение А, Unit6). Данную форму может видеть только администратор. На ней предоставляется возможность администратору вводить и редактировать список зарегистрированных пользователей. Окно содержит компоненты DBGrid и DBNavigator, имеющие связь с Базой данных.

5. Главная форма. (Скриншот окна рис. 5, Приложение В, Листинг программы Приложение А, Unit5). Она является основной. На ней представлен основной функционал программного продукта. На ней находятся 4 компонента BitButton и PageControl которые делятся на 6 Tabsheet. В данном окне пассажиру предоставляется возможность получить необходимую информацию о рейсах, заказать билет, экспортировать в Excel, редактировать, распечатать заказанный билет.

6. Форма заказа билета. (Скриншот окна рис. 7, Приложение В, Листинг программы Приложение А, Unit8). Данная форма предоставляет возможность пассажиру вводить свои данные, введённые данные сохраняются в Списке пассажиров. После заказа билета выскакивает сообщение «Проверьте себя в списке пассажиров»

7. Редактирование. (Скриншот окна рис. 6, Приложение В, Листинг программы Приложение А, Unit9) Данная форма предназначена для редактирования Базы данных.

8. Дата модули. (Скриншот окна рис. 8, Приложение В, Листинг программы Приложение А, Unit 3 и Unit 7). Являются не визуальными формами программы. В них находятся компоненты AdoConnection, AdoTable, DataSource, которые соединяют программу с Базой данных.

Заключение

Delphi замечательный язык программирования, который относительно прост в изучении, довольно ясен и логичен и, будучи первым изучаемым языком программирования, приучает к хорошему стилю. Delphi — гибкий и развитый в отношении типов данных язык. Привлекательны его рекурсивные возможности, а также поддержка технологии объектно-ориентрованного программирования. В результате проектирования создана система автоматизации рабочего места. Система отвечает требованиям по совместимости с существующими подсистемами форматом хранения данных.

Данная АРМ менеджера продаж ЖД вокзала может применяться на вокзалах, для получения информации о поездах, маршрутах и тарифах, для заказа билета используя интернет, а также быстрого поиска требующегося рейса в расписании.

Список литературы

1. Материалы сайта http: //www. delphiexpert. ru

2. Материалы сайта http: //www. delphisources. ru/

3. Культин Н. Б. «Delphi в задачах и примерах», Изд. БХВ-Петербург, Санкт-Петербург 2004 г.

4. Соломон Д. и Руссинович М. Внутреннее устройство Microsoft Windows 2000. Мастер-класс / Пер. с англ. -- СПб.: Питер; М.: Издательско-торговый дом «Русская Редакция». 2004. -- 746 стр.: ил.

5. Меняев М. Ф. Информатика и основы программирования: учеб. пособие по специальности «Менеджмент организации» — 3-е изд., стер. — Москва: Омега-Л, 2007. — 458 с.

6. Л. М Климова. Delphi 7. Основы программирования. Решения типовых задач. Самоучитель. 2005. -480с.

Приложение А

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

unit Unit1; // Вход в программу

interface

uses

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

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, mmsystem;

type

TForm1 = class (TForm)

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Image1: TImage;

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

procedure BitBtn1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BitBtn2MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BitBtn3MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1; k, i: integer;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *. dfm}

procedure TForm1. BitBtn1Click (Sender: TObject);

label 1,2;

begin

if ((Edit1. Text='Админ') or (edit1. Text='админ') or

(Edit1. Text='admin') or (edit1. text='Admin')) and

(edit2. Text=form4. dbedit5. Text) then begin application. MessageBox ('Добро пожаловать!','Авторизация!');

form6. show; form5. bitbtn3. Visible:=true; goto 1;

end;

dat. adotable2. first;

k: =0;

for i: =0 to dat. adotable2. recordcount-1

do begin dat. ADOTable2. Edit;

if (edit1. Text=form4. DBEdit1. Text) and (edit2. Text=form4. DBEdit2. Text) then begin

k: =1; goto 2;

end; dat. adotable2. next; end; 2: if k=1 then begin

animatewindow (form5. Handle, 2000, aw_center); PlaySound ('D:1. wav', 0, SND_ASYNC); form5. show; end else application. MessageBox ('Неверный пароль или логин','Ошибка!');

1:

end;

procedure TForm1. BitBtn2Click (Sender: TObject);

begin

form2. show;

dat. adotable2. insert;

end;

procedure TForm1. BitBtn3Click (Sender: TObject);

begin

Form1. Close;

end;

procedure TForm1. BitBtn1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

bitbtn1. Font. Size:=11;

end;

procedure TForm1. Image1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Bitbtn1. Font. Size:=10;

Bitbtn2. Font. Size:=10;Bitbtn3. Font. Size:=10;end;

procedure TForm1. BitBtn2MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

bitbtn2. Font. Size:=11;

end;

procedure TForm1. BitBtn3MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

bitbtn3. Font. Size:=11;

end;

end.

unit Unit2; // Регистрация

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls, Buttons;

type

TForm2 = class (TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBEdit1: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Image1: TImage;

BitBtn1: TBitBtn;

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit3;

{$R *. dfm}

procedure TForm2. BitBtn1Click (Sender: TObject);

begin

dat. adotable2. post;

application. MessageBox ('Вы успешно зарегистрированы!','Внимание!', mb_ok+mb_iconinformation);

form2. Close;

end;

procedure TForm2. BitBtn1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

bitbtn1. Font. Size:=11;

end;

procedure TForm2. Image1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

bitbtn1. Font. Size:=10;

end;

end.

unit Unit3; // Дата Модуль

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDat = class (TDataModule)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOTable2: TADOTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Dat: TDat;

implementation

{$R *. dfm}

end.

unit Unit4; // Редактирование

interface

uses

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

Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask, jpeg, Buttons;

type

TForm4 = class (TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

Image1: TImage;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure Image1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BitBtn2MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit3;

{$R *. dfm}

procedure TForm4. Image1Click (Sender: TObject);

begin

dat. adotable1. post;

end;

procedure TForm4. BitBtn2Click (Sender: TObject);

begin

Form4. Close;

end;

procedure TForm4. BitBtn1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

bitbtn1. Font. Size:=11;

end;

procedure TForm4. BitBtn2MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

bitbtn2. Font. Size:=11;

end;

procedure TForm4. Image1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

bitbtn1. Font. Size:=10;

bitbtn2. Font. Size:=10;

end;

end.

unit Unit5; // Программа

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, Buttons, Mask, DBCtrls,

jpeg, ExtCtrls, ImgList, comobj, MPlayer;

type

TForm5 = class (TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

DBGrid1: TDBGrid;

Label1: TLabel;

Label2: TLabel;

DBGrid2: TDBGrid;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

BitBtn1: TBitBtn;

StatusBar1: TStatusBar;

Edit1: TEdit;

Timer1: TTimer;

ImageList1: TImageList;

Image2: TImage;

Image3: TImage;

BitBtn2: TBitBtn;

StringGrid1: TStringGrid;

TabSheet5: TTabSheet;

Timer2: TTimer;

Image1: TImage;

Image4: TImage;

TabSheet6: TTabSheet;

Panel1: TPanel;

MediaPlayer1: TMediaPlayer;

BitBtn3: TBitBtn;

Image5: TImage;

BitBtn4: TBitBtn;

Label3: TLabel;

procedure Timer1Timer (Sender: TObject);

procedure TabSheet2Show (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure Edit1Change (Sender: TObject);

procedure Timer2Timer (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

procedure BitBtn4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5; var x, s, c: variant; i, index: integer; workbookname: string;

implementation

uses Unit8, Unit3, Unit7, Unit9;

{$R *. dfm}

procedure TForm5. BitBtn1Click (Sender: TObject);

begin

WorkbookName := GetCurrentDir + '' + '1. xlsx';

x: =createoleobject ('excel. application');

x. visible:=true;

{x. workbooks. add (-4167); }

x. Workbooks. Open (WorkbookName);

x. workbooks[1]. worksheets[1]. name:='Datebase12';

s: =x. workbooks[1]. worksheets['Datebase12'];

s. cells[1,2]:=' БИЛЕТ ';

s. cells[2,2]:='ФИО';

s. cells[3,2]:='Адрес';

s. cells[4,2]:='№ул. лич';

s. cells[5,2]:='Маршрут';

s. cells[6,2]:='Дата отправления';

s. cells[7,2]:='Цена';

s. cells[8,2]:='тип вагона';

s. cells[11,2]:='продолжительность';

s. cells[10,2]:='время прибытия';

s. cells[9,2]:='время отправления';

c: =x. workbooks[1]. worksheets['Datebase12']. columns;

c. columns[2]. columnwidth:=17;

c. columns[3]. columnwidth:=17;

c. columns[4]. columnwidth:=9;

c. columns[5]. columnwidth:=19;

c. columns[6]. columnwidth:=9;

c. columns[7]. columnwidth:=5;

c. columns[8]. columnwidth:=10;

c. columns[9]. columnwidth:=9;

c. columns[10]. columnwidth:=11;

c. columns[11]. columnwidth:=11;

index: =3;

data. ADOQuery1. First;

for I := 0 to data. ADOQuery1. RecordCount-1 do begin

s. cells[2,index]:=data. ADOQuery1. Fields. Fields[0]. asstring;

s. cells[3,index]:=data. ADOQuery1. Fields. Fields[1]. asstring;

s. cells[4,index]:=data. ADOQuery1. Fields. Fields[2]. asstring;

s. cells[5,index]:=data. ADOQuery1. Fields. Fields[3]. asstring;

s. cells[6,index]:=data. ADOQuery1. Fields. Fields[4]. asstring;

s. cells[7,index]:=data. ADOQuery1. Fields. Fields[5]. asstring;

s. cells[8,index]:=data. ADOQuery1. Fields. Fields[6]. asstring;

s. cells[9,index]:=data. ADOQuery1. Fields. Fields[7]. asstring;

s. cells[10,index]:=data. ADOQuery1. Fields. Fields[8]. asstring;

s. cells[11,index]:=data. ADOQuery1. Fields. Fields[9]. asstring;

inc (index); data. ADOQuery1. Next; end;

end;

procedure TForm5. Timer1Timer (Sender: TObject);

var

txt: string;

begin

txt: =label1. Caption;

label1. Caption:=copy (txt, 2, length (txt)-1)+copy (txt, 1,1);

end;

procedure TForm5. TabSheet2Show (Sender: TObject);

begin

stringgrid1. Cells[0,0]:=' №';

stringgrid1. Cells[1,0]:=' Маршрут';

stringgrid1. Cells[2,0]:=' Дата отправления';

stringgrid1. Cells[3,0]:='Время отправления (ч/мин)';

stringgrid1. Cells[4,0]:=' Время прибытия (ч/мин)';

stringgrid1. Cells[5,0]:='Продолжительность (ч/мин)';

stringgrid1. Cells[6,0]:=' Периодичность';

stringgrid1. Cells[1,1]:=' Алматы-Астана'; //города

stringgrid1. Cells[1,2]:=' Алматы-Шымкент';

stringgrid1. Cells[1,3]:=' Алматы -Атырау';

stringgrid1. Cells[1,4]:=' Алматы -Кокшетау';

stringgrid1. Cells[1,5]:=' Алматы -Орал';

stringgrid1. Cells[1,6]:=' Алматы -Актау';

stringgrid1. Cells[1,7]:=' Алматы -Актобе';

stringgrid1. Cells[1,8]:=' Алматы -Оскемен';

stringgrid1. Cells[1,9]:=' Алматы -Павлодар';

stringgrid1. Cells[1,10]:=' Алматы -Петропавловск';

stringgrid1. Cells[1,11]:=' Алматы -Караганды';

stringgrid1. Cells[0,1]:=' 12'; stringgrid1. Cells[0,2]:=' 11';

stringgrid1. Cells[0,3]:=' 41'; stringgrid1. Cells[0,4]:=' 21';

stringgrid1. Cells[0,5]:=' 32'; stringgrid1. Cells[0,6]:=' 46';

stringgrid1. Cells[0,7]:=' 15'; stringgrid1. Cells[0,8]:=' 52';

stringgrid1. Cells[0,8]:=' 45'; stringgrid1. Cells[0,9]:=' 9';

stringgrid1. Cells[0,10]:=' 71'; stringgrid1. Cells[0,11]:=' 39';

stringgrid1. Cells[0,11]:=' 16';

stringgrid1. Cells[2,1]:=' 26. 11. 2011';

stringgrid1. Cells[2,2]:=' 25. 11. 2011';

stringgrid1. Cells[2,3]:=' 24. 11. 2011';

stringgrid1. Cells[2,4]:=' 23. 11. 2011';

stringgrid1. Cells[2,5]:=' 27. 11. 2011';

stringgrid1. Cells[2,6]:=' 23. 11. 2011';

stringgrid1. Cells[2,7]:=' 24. 11. 2011';

stringgrid1. Cells[2,8]:=' 26. 11. 2011';

stringgrid1. Cells[2,9]:=' 27. 11. 2011';

stringgrid1. Cells[2,10]:=' 22. 11. 2011';

stringgrid1. Cells[2,11]:=' 21. 11. 2011';

stringgrid1. Cells[3,1]:=' 12. 30'; stringgrid1. Cells[4,1]:=' 08. 00';

stringgrid1. Cells[3,2]:=' 13. 30'; stringgrid1. Cells[4,2]:=' 07. 00';

stringgrid1. Cells[3,3]:=' 14. 30'; stringgrid1. Cells[4,3]:=' 16. 30';

stringgrid1. Cells[3,4]:=' 16. 00'; stringgrid1. Cells[4,4]:=' 09. 00';

stringgrid1. Cells[3,5]:=' 09. 00'; stringgrid1. Cells[4,5]:=' 15. 00';

stringgrid1. Cells[3,6]:=' 13. 00'; stringgrid1. Cells[4,6]:=' 18. 00';

stringgrid1. Cells[3,7]:=' 16. 30'; stringgrid1. Cells[4,7]:=' 16. 30';

stringgrid1. Cells[3,8]:=' 10. 20'; stringgrid1. Cells[4,8]:=' 15. 00';

stringgrid1. Cells[3,9]:=' 12. 30'; stringgrid1. Cells[4,9]:=' 09. 00';

stringgrid1. Cells[3,10]:=' 14. 30'; stringgrid1. Cells[4,10]:=' 20. 00';

stringgrid1. Cells[3,11]:=' 11. 30'; stringgrid1. Cells[4,11]:=' 11. 00';

stringgrid1. Cells[5,1]:=' 20,30';

stringgrid1. Cells[5,2]:=' 18,30';

stringgrid1. Cells[5,3]:=' 50';

stringgrid1. Cells[5,4]:=' 29';

stringgrid1. Cells[5,5]:=' 54';

stringgrid1. Cells[5,6]:=' 53';

stringgrid1. Cells[5,7]:=' 48';

stringgrid1. Cells[5,8]:=' 29';

stringgrid1. Cells[5,9]:=' 32,30';

stringgrid1. Cells[5,10]:=' 29,30';

stringgrid1. Cells[5,11]:=' 11,30';

stringgrid1. Cells[6,1]:=' 3 раза в неделю';

stringgrid1. Cells[6,2]:=' ежедневно';

stringgrid1. Cells[6,3]:=' ежедневно ';

stringgrid1. Cells[6,4]:=' ежедневно ';

stringgrid1. Cells[6,5]:=' ежедневно ';

stringgrid1. Cells[6,6]:=' ежедневно ';

stringgrid1. Cells[6,7]:=' раз в неделю';

stringgrid1. Cells[6,8]:=' ежедневно ';

stringgrid1. Cells[6,9]:=' ежедневно ';

stringgrid1. Cells[6,10]:=' ежедневно ';

stringgrid1. Cells[6,11]:=' 2 раза в неделю';

end;

procedure TForm5. BitBtn2Click (Sender: TObject);

begin

form8. Show;

end;

procedure TForm5. FormCreate (Sender: TObject);

var g: integer;

begin

statusbar1. Panels[2]. Text:=datetostr (now);

statusbar1. Panels[0]. Text:=timetostr (now);

g: =dayofweek (now);

case g of

1: statusbar1. Panels[1]. Text:='Воскресенье ';

2: statusbar1. Panels[1]. Text:='Понедельник';

3: statusbar1. Panels[1]. Text:='Вторник';

4: statusbar1. Panels[1]. Text:='Среда';

5: statusbar1. Panels[1]. Text:='Четверг';

6: statusbar1. Panels[1]. Text:='Пятница';

7: statusbar1. Panels[1]. Text:='Суббота';

end;

end;

procedure TForm5. Edit1Change (Sender: TObject);

begin

if radiobutton1. Checked then begin

data. adoquery1. active:=false;

data. adoquery1. sql. clear;

data. adoquery1. sql. add ('SELECT *');

data. adoquery1. sql. add ('FROM общий');

data. adoquery1. sql. add ('where ФИО like ('+#39+edit1. text+'%'+#39+')');

data. adoquery1. Active:=true; end;

if radiobutton2. Checked then begin

data. adoquery1. active:=false;

data. adoquery1. sql. clear;

data. adoquery1. sql. add ('SELECT *');

data. adoquery1. sql. add ('FROM общий');

data. adoquery1. sql. add ('where ном_удов like ('+#39+edit1. text+'%'+#39+')');

data. adoquery1. Active:=true; end;

if radiobutton3. Checked then begin

data. adoquery1. active:=false;

data. adoquery1. sql. clear;

data. adoquery1. sql. add ('SELECT *');

data. adoquery1. sql. add ('FROM общий');

data. adoquery1. sql. add ('where маршрут. название like ('+#39+edit1. text+'%'+#39+')');

data. adoquery1. Active:=true;

end;

end;

procedure TForm5. Timer2Timer (Sender: TObject);

var i, c1: integer;

begin

Randomize;

i: =Random (7)+1;

case i of

1: Form5. Image1. Picture. LoadFromFile ('7. jpg');

2: Form5. Image1. Picture. LoadFromFile ('1. jpg');

3: Form5. Image1. Picture. LoadFromFile ('2. jpg');

4: Form5. Image1. Picture. LoadFromFile ('3. jpg');

5: Form5. Image1. Picture. LoadFromFile ('4. jpg');

6: Form5. Image1. Picture. LoadFromFile ('5. jpg');

7: Form5. Image1. Picture. LoadFromFile ('6. jpg');

end;

Randomize;

c1: =(random (10)+1)*10+random (7);

end;

procedure TForm5. BitBtn3Click (Sender: TObject);

begin

Form9. show;

end;

procedure TForm5. BitBtn4Click (Sender: TObject);

begin

form5. Close;

end;

end.

unit Unit6; // Вход

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Buttons, jpeg, mmsystem;

type

TForm6 = class (TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Image1: TImage;

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn2MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BitBtn1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit4, Unit5;

{$R *. dfm}

procedure TForm6. BitBtn1Click (Sender: TObject);

begin

form4. show;

end;

procedure TForm6. BitBtn2Click (Sender: TObject);

begin

animatewindow (form5. Handle, 2000, aw_center); form5. show;

PlaySound ('D:1. wav', 0, SND_ASYNC);

end;

procedure TForm6. BitBtn2MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

bitbtn2. Font. Size:=20;

end;

procedure TForm6. Image1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

bitbtn1. Font. Size:=18;

bitbtn2. Font. Size:=18;

end;

procedure TForm6. BitBtn1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

bitbtn1. Font. Size:=20;

end; end.

unit Unit7; // Дата модуль

interface

uses

SysUtils, Classes, DB, ADODB;

type

TData = class (TDataModule)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable; ADOTable2: TADOTable;

ADOTable3: TADOTable; ADOTable4: TADOTable;

ADOTable5: TADOTable; ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

DataSource5: TDataSource;

DataSource6: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Data: TData;

implementation

{$R *. dfm}

end.

unit Unit8; // Заказ билета

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, ComCtrls, jpeg, Buttons;

type

TForm8 = class (TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBLookupComboBox1: TDBLookupComboBox;

DBEdit4: TDBEdit;

DBLookupComboBox2: TDBLookupComboBox;

DBLookupComboBox3: TDBLookupComboBox;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBNavigator1: TDBNavigator;

Image1: TImage;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

StatusBar1: TStatusBar;

BitBtn1: TBitBtn;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure FormCreate (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit7;

{$R *. dfm}

procedure TForm8. FormClose (Sender: TObject; var Action: TCloseAction);

begin

data. adotable5. active:=false;

data. adotable5. active:=true;

end;

procedure TForm8. FormCreate (Sender: TObject);

var g: integer;

begin

statusbar1. Panels[2]. Text:=datetostr (now);

statusbar1. Panels[0]. Text:=timetostr (now);

g: =dayofweek (now);

case g of

1: statusbar1. Panels[1]. Text:='Воскресенье ';

2: statusbar1. Panels[1]. Text:='Понедельник';

3: statusbar1. Panels[1]. Text:='Вторник';

4: statusbar1. Panels[1]. Text:='Среда';

5: statusbar1. Panels[1]. Text:='Четверг';

6: statusbar1. Panels[1]. Text:='Пятница';

7: statusbar1. Panels[1]. Text:='Суббота';

end;

end;

procedure TForm8. BitBtn1Click (Sender: TObject);

begin

application. MessageBox ('Проверьте себя в списке пассажиров!','Ваш заказ принят!', mb_ok+mb_iconinformation);

form8. Close; end; end.

unit Unit9; //Редактирование

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons, jpeg;

type

TForm9 = class (TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

DBGrid4: TDBGrid;

DBNavigator4: TDBNavigator;

BitBtn1: TBitBtn;

Image1: TImage;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

Implementation {$R *. dfm} end.

Приложение В

Скриншоты

Рис. 1. Вход в программу

Рис. 2. Регистрация

Рис. 3. Редактирование

программирование delphi база данных

Рис. 4. Вход в главную программу

Рис. 5. Главная форма программы

Рис. 6. Редактирование БД

Рис. 7. Форма заказа билета

Рис. 8. Дата модули

ПоказатьСвернуть
Заполнить форму текущей работой