2.2 Программная реализация базы данных «Аэропорт»
База данных «Аэропорт» очень проста в использовании. Она многофункциональна. Занесенную информацию можно редактировать, добавлять, удалять. Также в программе имеется функция поиска рейсов.
При запуске программы появляется главное окно (см. Приложение А
рис.1) в главном окне имеется кнопка «Меню». В «Меню» имеются пункты «Расписание», «О программе», «Выход».
В окне «Расписание» присутствует функция редактирования записей (добавить, изменить, удалить).
В окне «Расписание» реализован поиск по пункту «рейс».
Заключение
В результате разработки программы база данных «Аэропорт» была получена программа для просмотра, редактирования расписания «Аэропорта». Данная программа в хранит все представляющие интерес данные в одном или нескольких местах. Данное приложение может работать на любой операционной системе Windows. Со временем это приложение будет усовершенствовано. В данной курсовой работе поставленные цель и задачи выполнены и достигнуты. Приложение работает отлично, не выдаст ошибок, просто и удобно в применении.
Также при разработке программы был получен необходимый опыт работы с язык программирования Delphi.
ПРИЛОЖЕНИЕ А
Рис.1-Главное окно приложения
Рис.2 - Окно «Расписание»
Рис.4 — окно «Добавить» для занесения данных в таблицу
Рис.5 — окна «О программе»
ПРИЛОЖЕНИЕ Б
Листинг программы
unit Unitdata;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, Db, DBTables;
type
TDataModule1 = class(TDataModule)
Znach: TTable;
dbZnach: TDataSource;
MainMenu1: TMainMenu;
N1: TMenuItem;
N3: TMenuItem;
Day: TTable;
dbDay: TDataSource;
N2: TMenuItem;
N6: TMenuItem;
Prepod: TTable;
dbPrepod: TDataSource;
DayNomerday: TAutoIncField;
DayDay: TStringField;
PrepodNomerprep: TAutoIncField;
PrepodFio: TStringField;
ZnachNomerday: TFloatField;
ZnachNomerpar: TFloatField;
ZnachPredmet: TStringField;
ZnachTippred: TStringField;
ZnachNomeraud: TFloatField;
ZnachIn: TAutoIncField;
ZnachNomerprep: TFloatField;
Znachday: TStringField;
Znachfio: TStringField;
Predmet: TTable;
dbPredmet: TDataSource;
PredmetNomerpredmeta: TAutoIncField;
PredmetPredmet: TStringField;
N9: TMenuItem;
procedure n1click(Sender: TObject);
procedure n2click(Sender: TObject);
procedure n3click(Sender: TObject);
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
procedure n4Click(Sender: TObject);
procedure n5click(Sender: TObject);
procedure n6click(Sender: TObject);
procedure N9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule1: TDataModule1;
implementation
uses UnitRasp,UnitZnach, Nagr, UnitDay, UnitPrepod, UnitPredmet, Unit1;
{$R *.DFM}
procedure TDataModule1.n1click(Sender: TObject);
begin
runznach;
end;
procedure TDataModule1.n2click(Sender: TObject);
begin
runrasp;
end;
procedure TDataModule1.n3click(Sender: TObject);
begin
runday;
end;
procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
Day.Open;
Znach.open;
Prepod.open;
Predmet.Open;
Prepod.IndexName:='i_FIO';
end;
procedure TDataModule1.DataModuleDestroy(Sender: TObject);
begin
Znach.Close;
Day.Close;
Predmet.close;
Prepod.Close;
end;
procedure TDataModule1.n4Click(Sender: TObject);
begin
formglavn.close;
end;
procedure TDataModule1.n5click(Sender: TObject);
begin
runPrepod;
end;
procedure TDataModule1.n6click(Sender: TObject);
begin
runpredmet;
end;
procedure TDataModule1.N9Click(Sender: TObject);
begin
Form1.ShowModal;
end;
end.
unit UnitZnach;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, DBCtrls, DB, jpeg, ComCtrls,
DBTables;
type
TFormZnach = class(TForm)
BitBtn1: TBitBtn;
DBGrid1: TDBGrid;
btnFilter: TButton;
ComboBox2: TComboBox;
Image1: TImage;
DBNavigator1: TDBNavigator;
Panel1: TPanel;
Panel2: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure btnFilterClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
procedure FillComboBox2;
public
{ Public declarations }
end;
var
FormZnach: TFormZnach;
Procedure runznach;
implementation
uses Unitdata, UnitEditZnach, UnitPrepod, UnitDay, UnitPredmet;
{$R *.DFM}
procedure runznach;
begin
Application.CreateForm(TFormZnach, FormZnach);
FormZnach.Showmodal;
FormZnach.Release;
end;
procedure TFormZnach.Button4Click(Sender: TObject);
begin
FormPrepod.ShowModal;
end;
procedure TFormZnach.Button1Click(Sender: TObject);
begin
AddZnach;
FillComboBox2;
end;
procedure TFormZnach.Button2Click(Sender: TObject);
begin
EditZnach;
FillComboBox2;
end;
procedure TFormZnach.Button3Click(Sender: TObject);
begin
if MessageDlg('Вы хотите удалить запись '+DataModule1.Znachfio.AsString+ '?',
mtConfirmation,[mbOk,mbCancel],0) = mrOk
then
DataModule1.Znach.Delete;
end;
procedure TFormZnach.btnFilterClick(Sender: TObject);
begin
with DataModule1, Znach do
if Filtered
then
begin
Filtered:=False;
btnFilter.Caption:='Фильтровать'
end
else
begin
Filter:='([predmet]='+#39+ComboBox2.Text+#39+')';
Filtered:=True;
btnFilter.Caption:='Сброс'
end;
end;
procedure TFormZnach.FormShow(Sender: TObject);
begin
FillComboBox2;
end;
procedure TFormZnach.FillComboBox2;
var i:Integer;
B:TBookmark;
begin
ComboBox2.Items.Clear;
with DataModule1, Znach do
begin
B:=GetBookmark;
DisableControls;
First;
while not Eof do
begin
ComboBox2.Items.Add(ZnachPredmet.AsString);
Next;
end;
GotoBookmark(B);
FreeBookmark(B);
EnableControls;
end;
with ComboBox2.Items do
begin
i:=0;
while i<(Count-1) do
if Strings[i]=Strings[i+1]
then
Delete(i+1)
else
i:=i+1;
end;
end;
procedure TFormZnach.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataModule1.Znach.Filtered:=False;
end;
procedure TFormZnach.Button5Click(Sender: TObject);
begin
FormDay.ShowModal;
end;
procedure TFormZnach.Button6Click(Sender: TObject);
begin
FormPredmet.ShowModal;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, jpeg;
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Image1: TImage;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.