Организация информационной работы автовокзала
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
L
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
/****** Object: Table [dbo].[Tikets] Script Date: 22.01.2008 2:22:40 ******/TABLE [dbo].[Tikets] (
[ID] [int] IDENTITY (1, 1) NOT FOR REPLICATION NOT NULL ,
[Plase] [int] NULL ,
[Tsena] [real] NULL ,
[Bagage] [bit] NULL ,
[Reys] [int] NOT NULL ,
[Zakaz] [int] NULL
) ON [PRIMARY]
/****** Object: Table [dbo].[Zakaz] Script Date: 22.01.2008 2:22:40 ******/TABLE [dbo].[Zakaz] (
[ID] [int] IDENTITY (1, 1) NOT FOR REPLICATION NOT NULL ,
[Date] [datetime] NULL ,
[Reys] [int] NULL ,
[FIO] [nchar] (50) COLLATE Cyrillic_General_CI_AS NULL ,
[TelephoneNumber] [nchar] (10) COLLATE Cyrillic_General_CI_AS NULL
) ON [PRIMARY]TABLE [dbo].[AutoPark] WITH NOCHECK ADD[PK_AutoPark] PRIMARY KEY CLUSTERED
(
[ID]
) ON [PRIMARY]TABLE [dbo].[AutoVokzal] WITH NOCHECK ADD[PK_AutoVokzal] PRIMARY KEY CLUSTERED
(
[ID]
) ON [PRIMARY]TABLE [dbo].[Personal] WITH NOCHECK ADD[PK_Personal] PRIMARY KEY CLUSTERED
(
[Id]
) ON [PRIMARY]TABLE [dbo].[Reysi] WITH NOCHECK ADD[PK_Reysi] PRIMARY KEY CLUSTERED
(
[ID]
) ON [PRIMARY]TABLE [dbo].[Sity] WITH NOCHECK ADD[PK_Sity] PRIMARY KEY CLUSTERED
(
[ID]
) ON [PRIMARY]TABLE [dbo].[Tikets] WITH NOCHECK ADD[PK_Tikets] PRIMARY KEY CLUSTERED
(
[ID]
) ON [PRIMARY]TABLE [dbo].[Zakaz] WITH NOCHECK ADD[PK_Zakaz] PRIMARY KEY CLUSTERED
(
[ID]
) ON [PRIMARY]TABLE [dbo].[AutoPark] ADD[FK_AutoPark_AutoVokzal] FOREIGN KEY
(
[AutoVokzal]
) REFERENCES [dbo].[AutoVokzal] (
[ID]
)TABLE [dbo].[Personal] ADD[FK_Personal_AutoVokzal] FOREIGN KEY
(
[AvtoVokzal]
) REFERENCES [dbo].[AutoVokzal] (
[ID]
)
TABLE [dbo].[Reysi] ADD[FK_Reysi_AutoPark] FOREIGN KEY
(
[Avto]
) REFERENCES [dbo].[AutoPark] (
[ID]
),[FK_Reysi_AutoVokzal] FOREIGN KEY
(
[AutoVokzal]
) REFERENCES [dbo].[AutoVokzal] (
[ID]
),[FK_Reysi_Personal] FOREIGN KEY
(
[Driver]
) REFERENCES [dbo].[Personal] (
[Id]
),[FK_Reysi_Personal1] FOREIGN KEY
(
[SecondDriver]
) REFERENCES [dbo].[Personal] (
[Id]
),[FK_Reysi_Personal2] FOREIGN KEY
(
[Kontroler]
) REFERENCES [dbo].[Personal] (
[Id]
),[FK_Reysi_Sity] FOREIGN KEY
(
[PunktOtpravlenia]
) REFERENCES [dbo].[Sity] (
[ID]
),[FK_Reysi_Sity1] FOREIGN KEY
(
[PunktNaznachenia]
) REFERENCES [dbo].[Sity] (
[ID]
)TABLE [dbo].[Tikets] ADD[FK_Tikets_Reysi] FOREIGN KEY
(
[Reys]
) REFERENCES [dbo].[Reysi] (
[ID]
),[FK_Tikets_Zakaz] FOREIGN KEY
(
[Zakaz]
) REFERENCES [dbo].[Zakaz] (
[ID]
)TABLE [dbo].[Zakaz] ADD[FK_Zakaz_Reysi] FOREIGN KEY
(
[Reys]
) REFERENCES [dbo].[Reysi] (
[ID]
)QUOTED_IDENTIFIER OFFANSI_NULLS ON
/****** Object: Trigger dbo.DEL_reys Script Date: 22.01.2008 2:22:40 ******/trigger DEL_reys on dbo.Reysiof delete@@ROWCOUNT=1@y INT@y=IDdeletedfrom Tikets where Reys=@yfrom Zakaz where Reys=@yQUOTED_IDENTIFIER OFFANSI_NULLS ON
GO
Приложение 2 - Листинг программы
program Mdiapp;,in 'MAIN.PAS' {MainForm},in 'about.pas' {AboutBox},in 'DataModule.pas' {DataModule1: TDataModule},in 'USity.pas' {FSity},in 'UAutovokzaly.pas' {FAutovokzaly},in 'UEditAutovokzal.pas' {FEditAutovokzal},in 'UAutoPark.pas' {FAutoPark},in 'UEditAutopark.pas' {FEditAutopark},in 'UPersonal.pas' {FPersonal},in 'UEditPersonal.pas' {FEditPersonal},in 'UReisy.pas' {Freisy},in 'UEditReys.pas' {FEditReis},in 'UEditSity.pas' {FEditSity};
{$R *.RES}.Initialize;
Application.Title := 'Курсовая работа "Автовокзалы"';
Application.CreateForm(TDataModule1, DataModule1);.CreateForm(TMainForm, MainForm);.CreateForm(TAboutBox, AboutBox);.Run;.MAIN;Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,, ToolWin, ImgList, DBActns, DBClientActns, dxExEdtr, dxCntner,, dxDBCtrl, dxDBGrid, dxDBTL, ShellApi;= class(TForm)HelpAbout1Execute(Sender: TObject);FileExit1Execute(Sender: TObject);SityExecute(Sender: TObject);AutovokzalysExecute(Sender: TObject);AutoparkExecute(Sender: TObject);PersonalExecute(Sender: TObject);ReisyExecute(Sender: TObject);SaveExcelExecute(Sender: TObject);FormCreate(Sender: TObject);
{ Private declarations }
{ Public declarations };: TMainForm;
{$R *.dfm}about, USity, UAutovokzaly, UAutoPark, UPersonal, UReisy, DataModule;TMainForm.HelpAbout1Execute(Sender: TObject);.ShowModal;;TMainForm.FileExit1Execute(Sender: TObject);;;TMainForm.SityExecute(Sender: TObject);.CreateForm(TFSity,FSity);.Show;TMainForm.AutovokzalysExecute(Sender: TObject);.CreateForm(TFAutovokzaly,FAutovokzaly);.Show;TMainForm.AutoparkExecute(Sender: TObject);.CreateForm(TFAutoPark,FAutoPark);.Show;TMainForm.PersonalExecute(Sender: TObject);.CreateForm(TFPersonal,FPersonal);.Show;TMainForm.ReisyExecute(Sender: TObject);.CreateForm(TFreisy,Freisy);.Show;TMainForm.SaveExcelExecute(Sender: TObject);FName:String;:String;
// with Sender as TdxDBGrid, TdxDBTreeList do begin
// MessageDlg(FName, mtInformation, [mbOk], 0);Screen.ActiveForm.ActiveControl <> nil then begin:= Screen.ActiveForm.ActiveControl.ClassName;(AObject = 'TdxDBTreeList') or (AObject = 'TdxDBGrid') then beginSaveDialog1.Execute then begin:= SaveDialog1.FileName;AObject = 'TdxDBGrid' thenScreen.ActiveForm.ActiveControl as TdxDBGrid do(FName, False)Screen.ActiveForm.ActiveControl as TdxDBTreeList do(FName);ShellExecute
(Handle, 'open', @FName[1], nil, nil, SW_SHOWNORMAL)<32 then('Не буду !', mtInformation, [mbOk], 0)('Создан файл '+FName, mtInformation, [mbOk], 0);;
// WinExec() CreateProcess();;;TMainForm.FormCreate(Sender: TObject);.MSConnection1.Connect;.DataModule;, Classes, DBAccess, SdacVcl, DB, MSAccess, MemDS;AutovokzalyAfterInsert(DataSet: TDataSet);AutoParkAfterInsert(DataSet: TDataSet);PersonalAfterInsert(DataSet: TDataSet);ReisyAfterInsert(DataSet: TDataSet);
{ Private declarations }
{ Public declarations };: TDataModule1;UEditAutovokzal, UEditAutopark, UEditPersonal, UEditReys, UReisy;
{$R *.dfm}TDataModule1.AutovokzalyAfterInsert(DataSet: TDataSet);.ShowModal;TDataModule1.AutoParkAfterInsert(DataSet: TDataSet);.ShowModal;TDataModule1.PersonalAfterInsert(DataSet: TDataSet);.ShowModal;TDataModule1.ReisyAfterInsert(DataSet: TDataSet);.ShowModal;;.