методика разработки базы данных на примере базы данных управление пассажиро-перевозками

Содержание
ВВЕДЕНИЕ
1. Описание предметной области
2. Создание таблиц базы данных и схемы данных
3. Выбор средств разработки
4. Формы приложения
5. Отчеты
ЗАКЛЮЧЕНИЕ
ЛИТЕРАТУРА
ПРИЛОЖЕНИЕ

unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Buttons, RpCon, RpConDS, RpBase, RpSystem, RpDefine, RpRave, DB, ADODB;type TForm4 = class(TForm) BitBtn1: TBitBtn; ADOQuery1: TADOQuery; RvProject1: TRvProject; RvSystem1: TRvSystem; RvDataSetConnection1: TRvDataSetConnection; BitBtn2: TBitBtn; BitBtn3: TBitBtn; ADOQuery2: TADOQuery; RvProject2: TRvProject; RvSystem2: TRvSystem; RvDataSetConnection2: TRvDataSetConnection; BitBtn4: TBitBtn; ADOQuery3: TADOQuery; RvProject3: TRvProject; RvSystem3: TRvSystem; RvDataSetConnection3: TRvDataSetConnection; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form4: TForm4;implementationuses Unit1;{$R *.dfm}procedure TForm4.BitBtn1Click(Sender: TObject);begin Form4.Close; Form1.Visible:=true;end;procedure TForm4.BitBtn2Click(Sender: TObject);begin RvProject1.SelectReport('Report1',true); RvProject1.Open; RvSystem1.DefaultDest:=rdPreview; RvProject1.Execute;end;procedure TForm4.BitBtn3Click(Sender: TObject);begin RvProject2.SelectReport('Report1',true); RvProject2.Open; RvSystem2.DefaultDest:=rdPreview; RvProject2.Execute;end;procedure TForm4.BitBtn4Click(Sender: TObject);begin RvProject3.SelectReport('Report1',true); RvProject3.Open; RvSystem3.DefaultDest:=rdPreview; RvProject3.Execute;end;end.unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids;type TForm5 = class(TForm) PageControl1: TPageControl; BitBtn1: TBitBtn; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; Edit1: TEdit; Label1: TLabel; BitBtn2: TBitBtn; DBGrid1: TDBGrid; ADOQuery1: TADOQuery; DataSource1: TDataSource; Label2: TLabel; Edit2: TEdit; Label3: TLabel; Edit3: TEdit; BitBtn3: TBitBtn; DBGrid2: TDBGrid; TabSheet4: TTabSheet; Label4: TLabel; Edit4: TEdit; BitBtn4: TBitBtn; DBGrid3: TDBGrid; Label5: TLabel; Edit5: TEdit; BitBtn5: TBitBtn; DBGrid4: TDBGrid; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure TabSheet2Show(Sender: TObject); procedure TabSheet1Show(Sender: TObject); procedure TabSheet3Show(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure TabSheet4Show(Sender: TObject); procedure BitBtn5Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form5: TForm5;implementationuses Unit1;{$R *.dfm}procedure TForm5.TabSheet1Show(Sender: TObject);begin ADOQuery1.Active:=False; Edit1.Text:='';end;procedure TForm5.TabSheet2Show(Sender: TObject);begin ADOQuery1.Active:=False; Edit3.Text:='';end;procedure TForm5.TabSheet3Show(Sender: TObject);begin ADOQuery1.Active:=False; Edit4.Text:='';end;procedure TForm5.TabSheet4Show(Sender: TObject);begin ADOQuery1.Active:=False; Edit5.Text:='';end;procedure TForm5.BitBtn2Click(Sender: TObject);begin//поиск пассажиропоток на маршруте ADOQuery1.Active:=False; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT маршрут.[Код маршрута], нагрузка.[Количество тс], нагрузка.Пассажиропоток FROM маршрут'); ADOQuery1.SQL.Add('INNER JOIN нагрузка ON маршрут.[Код маршрута] = нагрузка.[код маршрута]'); ADOQuery1.SQL.Add('WHERE маршрут.[Код маршрута]='+Edit1.Text+';'); ADOQuery1.Active:=true; ADOQuery1.First;end;procedure TForm5.BitBtn3Click(Sender: TObject);begin //поиск пассажиропоток по времени на маршруте ADOQuery1.Active:=False; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT время.[время начала], время.[время окончания], нагрузка.Пассажиропоток, маршрут.[Код маршрута] FROM маршрут'); ADOQuery1.SQL.Add('INNER JOIN (время INNER JOIN нагрузка ON время.[Код промежутка] = нагрузка.[Код промежутка]) ON маршрут.[Код маршрута] = нагрузка.[код маршрута]'); ADOQuery1.SQL.Add('WHERE время.[время начала]='+chr(39)+Edit2.Text+chr(39)+'AND маршрут.[Код маршрута]='+Edit3.Text+';'); ADOQuery1.Active:=true; ADOQuery1.First;end;procedure TForm5.BitBtn1Click(Sender: TObject);begin Form5.Close; Form1.Visible:=true;end;procedure TForm5.BitBtn4Click(Sender: TObject);begin //поиск ТС ADOQuery1.Active:=False; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT [транспортное средство].Наименование, [Тип ТС].класс, [Тип ТС].вместимость, [транспортное средство].характеристики FROM [Тип ТС]'); ADOQuery1.SQL.Add('INNER JOIN [транспортное средство] ON [Тип ТС].[Код типа] = [транспортное средство].[Код типа]'); ADOQuery1.SQL.Add('WHERE [транспортное средство].Наименование='+chr(39)+Edit4.Text+chr(39)+';'); ADOQuery1.Active:=true; ADOQuery1.First;end;procedure TForm5.BitBtn5Click(Sender: TObject);begin //поиск ТС на маршруте ADOQuery1.Active:=False; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT маршрут.[Код маршрута], маршрут.наименование AS [маршрут], [транспортное средство].Наименование AS [ТС], нагрузка.[Количество тс], [Тип ТС].класс, [Тип ТС].вместимость, время.[время начала], время.[время окончания]'); ADOQuery1.SQL.Add('FROM время INNER JOIN (([Тип ТС] INNER JOIN [транспортное средство] ON [Тип ТС].[Код типа] = [транспортное средство].[Код типа]) '); ADOQuery1.SQL.Add('INNER JOIN (маршрут INNER JOIN нагрузка ON маршрут.[Код маршрута] = нагрузка.[код маршрута]) ON [транспортное средство].[Код ТС] = нагрузка.[Код ТС]) ON время.[Код промежутка] = нагрузка.[Код промежутка]'); ADOQuery1.SQL.Add('WHERE маршрут.[Код маршрута]='+Edit5.Text+';'); ADOQuery1.Active:=true; ADOQuery1.First;end;end.