Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Описание программы

Читайте также:
  1. CoolEdit - встроенный редактор программы Midnight Commander
  2. II. Описание соматоневрологического состояния в дневнике.
  3. III. Аналитический отчет о выполнении программы развития ДОУ за 2014-2015 учебный год.
  4. III. Описание терапии.
  5. Актуальность программы.
  6. Аннотация — это краткое, обобщенное описание (характеристика) текста книги, статьи.
  7. Архивация данных. Алгоритмы сжатия данных. Программы архивации данных.

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


Заключение

В данном курсовом проекте были успешно реализованы все поставленные задачи, были подробно рассмотрены: задача курсового проекта, а также порядок выполнения задания.

Разработанная база данных и программа–приложение может использоваться в автовокзалах.

Программа–приложение имеет интуитивно понятный интерфейс, что способствует быстрому внедрению программы.

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

Ещё как интеграция информационных систем во все сферы жизни увеличивается с каждым днем, то актуально становится разработка подобных баз данных. При этом разработчик должен учитывать то, что наиболее простые БД могут быть подвержены избыточности, но при этом нельзя и увлекаться делением БД на много составных таблиц. Также современные средства дружественного интерфейса позволяют разработать интуитивно понятные приложения, что является одним из основных требований заказчика. При создании БД необходимо принять во внимание область, для которой разрабатывается база данных. Например, при формировании БД для магазина, разработчик должен ориентировать её в первую очередь на продажу.


Список использованной литературы

  1. В.В. Фаронов “C 6: Учебный Курс”, Москва, Knowledge, 2001
  2. М.В. Сухарев “Основы C#”, издательство “Наука и техника”, 2003
  3. Г.В. Галисеев, “Компоненты в Delphi 6: профессиональная работа”, издательство “Диалектика”, 2004
  4. В.И. Ключко “Методическое указание к выполнению курсовой работы”, Краснодар, Издательство КубГТУ, 1997
  5. М.П. Малыхина “Базы данных: основы, проектирование, использование”
  6. Т.М. Карпова “Базы данных: модели, разработка, реализация”, издательство “Питер”, 2001
  7. Кандзюба С. П. “Delphi 6/7. Базы данных и приложения. Лекции и упражнения”. – СПб.: ООО «ДиаСофтЮП», 2002. – 576.

Приложение 1 – Листинг БД скрипта

/****** Object: Database Autovokzaly Script Date: 22.01.2008 2:22:39 ******/

CREATE DATABASE [Autovokzaly] ON (NAME = N'Autovokzaly_Data', FILENAME = N'E:\Autovokzaly\DataBase\Autovokzaly_Data.MDF', SIZE = 9, FILEGROWTH = 10%) LOG ON (NAME = N'Autovokzaly_Log', FILENAME = N'E:\Autovokzaly\DataBase\Autovokzaly_Log.LDF', SIZE = 1, FILEGROWTH = 10%)

COLLATE Cyrillic_General_CI_AS

GO

 

exec sp_dboption N'Autovokzaly', N'autoclose', N'false'

GO

 

exec sp_dboption N'Autovokzaly', N'bulkcopy', N'false'

GO

 

exec sp_dboption N'Autovokzaly', N'trunc. log', N'false'

GO

 

exec sp_dboption N'Autovokzaly', N'torn page detection', N'true'

GO

 

exec sp_dboption N'Autovokzaly', N'read only', N'false'

GO

 

exec sp_dboption N'Autovokzaly', N'dbo use', N'false'

GO

 

exec sp_dboption N'Autovokzaly', N'single', N'false'

GO

 

exec sp_dboption N'Autovokzaly', N'autoshrink', N'false'

GO

 

exec sp_dboption N'Autovokzaly', N'ANSI null default', N'false'

GO

 

exec sp_dboption N'Autovokzaly', N'recursive triggers', N'false'

GO

 

exec sp_dboption N'Autovokzaly', N'ANSI nulls', N'false'

GO

 

exec sp_dboption N'Autovokzaly', N'concat null yields null', N'false'

GO

 

exec sp_dboption N'Autovokzaly', N'cursor close on commit', N'false'

GO

 

exec sp_dboption N'Autovokzaly', N'default to local cursor', N'false'

GO

 

exec sp_dboption N'Autovokzaly', N'quoted identifier', N'false'

GO

 

exec sp_dboption N'Autovokzaly', N'ANSI warnings', N'false'

GO

 

exec sp_dboption N'Autovokzaly', N'auto create statistics', N'true'

GO

 

exec sp_dboption N'Autovokzaly', N'auto update statistics', N'true'

GO

 

if((@@microsoftversion / power(2, 24) = 8) and (@@microsoftversion & 0xffff >= 724))

exec sp_dboption N'Autovokzaly', N'db chaining', N'false'

GO

 

use [Autovokzaly]

GO

 

/****** Object: Login Administrator Script Date: 22.01.2008 2:22:39 ******/

if not exists (select * from master.dbo.syslogins where loginname = N'Administrator')

BEGIN

declare @logindb nvarchar(132), @loginlang nvarchar(132) select @logindb = N'Autovokzaly', @loginlang = N'us_english'

if @logindb is null or not exists (select * from master.dbo.sysdatabases where name = @logindb)

select @logindb = N'master'

if @loginlang is null or (not exists (select * from master.dbo.syslanguages where name = @loginlang) and @loginlang <> N'us_english')

select @loginlang = @@language

exec sp_addlogin N'Administrator', null, @logindb, @loginlang

END

GO

 

/****** Object: Login Kadry01 Script Date: 22.01.2008 2:22:39 ******/

if not exists (select * from master.dbo.syslogins where loginname = N'Kadry01')

BEGIN

declare @logindb nvarchar(132), @loginlang nvarchar(132) select @logindb = N'Autovokzaly', @loginlang = N'us_english'

if @logindb is null or not exists (select * from master.dbo.sysdatabases where name = @logindb)

select @logindb = N'master'

if @loginlang is null or (not exists (select * from master.dbo.syslanguages where name = @loginlang) and @loginlang <> N'us_english')

select @loginlang = @@language

exec sp_addlogin N'Kadry01', null, @logindb, @loginlang

END

GO

 

/****** Object: Login Kassir01 Script Date: 22.01.2008 2:22:39 ******/

if not exists (select * from master.dbo.syslogins where loginname = N'Kassir01')

BEGIN

declare @logindb nvarchar(132), @loginlang nvarchar(132) select @logindb = N'Autovokzaly', @loginlang = N'us_english'

if @logindb is null or not exists (select * from master.dbo.sysdatabases where name = @logindb)

select @logindb = N'master'

if @loginlang is null or (not exists (select * from master.dbo.syslanguages where name = @loginlang) and @loginlang <> N'us_english')

select @loginlang = @@language

exec sp_addlogin N'Kassir01', null, @logindb, @loginlang

END

GO

 

/****** Object: Login Manager Script Date: 22.01.2008 2:22:39 ******/

if not exists (select * from master.dbo.syslogins where loginname = N'Manager')

BEGIN

declare @logindb nvarchar(132), @loginlang nvarchar(132) select @logindb = N'Autovokzaly', @loginlang = N'us_english'

if @logindb is null or not exists (select * from master.dbo.sysdatabases where name = @logindb)

select @logindb = N'master'

if @loginlang is null or (not exists (select * from master.dbo.syslanguages where name = @loginlang) and @loginlang <> N'us_english')

select @loginlang = @@language

exec sp_addlogin N'Manager', null, @logindb, @loginlang

END

GO

 

/****** Object: Login Mechanic Script Date: 22.01.2008 2:22:39 ******/

if not exists (select * from master.dbo.syslogins where loginname = N'Mechanic')

BEGIN

declare @logindb nvarchar(132), @loginlang nvarchar(132) select @logindb = N'Autovokzaly', @loginlang = N'us_english'

if @logindb is null or not exists (select * from master.dbo.sysdatabases where name = @logindb)

select @logindb = N'master'

if @loginlang is null or (not exists (select * from master.dbo.syslanguages where name = @loginlang) and @loginlang <> N'us_english')

select @loginlang = @@language

exec sp_addlogin N'Mechanic', null, @logindb, @loginlang

END

GO

 

/****** Object: Login BUILTIN\Администраторы Script Date: 22.01.2008 2:22:39 ******/

exec sp_addsrvrolemember N'BUILTIN\Администраторы', sysadmin

GO

 

/****** Object: User Administrator Script Date: 22.01.2008 2:22:39 ******/

if not exists (select * from dbo.sysusers where name = N'Administrator')

EXEC sp_grantdbaccess N'Administrator', N'Administrator'

GO

 

/****** Object: User guest Script Date: 22.01.2008 2:22:39 ******/

if not exists (select * from dbo.sysusers where name = N'guest' and hasdbaccess = 1)

EXEC sp_grantdbaccess N'guest'

GO

 

/****** Object: User Kadry01 Script Date: 22.01.2008 2:22:39 ******/

if not exists (select * from dbo.sysusers where name = N'Kadry01')

EXEC sp_grantdbaccess N'Kadry01', N'Kadry01'

GO

 

/****** Object: User Kassir01 Script Date: 22.01.2008 2:22:39 ******/

if not exists (select * from dbo.sysusers where name = N'Kassir01')

EXEC sp_grantdbaccess N'Kassir01', N'Kassir01'

GO

 

/****** Object: User Manager Script Date: 22.01.2008 2:22:39 ******/

if not exists (select * from dbo.sysusers where name = N'Manager')

EXEC sp_grantdbaccess N'Manager', N'Manager'

GO

 

/****** Object: User Mechanic Script Date: 22.01.2008 2:22:39 ******/

if not exists (select * from dbo.sysusers where name = N'Mechanic')

EXEC sp_grantdbaccess N'Mechanic', N'Mechanic'

GO

 

/****** Object: User Administrator Script Date: 22.01.2008 2:22:39 ******/

exec sp_addrolemember N'db_owner', N'Administrator'

GO

 

/****** Object: Table [dbo].[AutoPark] Script Date: 22.01.2008 2:22:40 ******/

CREATE TABLE [dbo].[AutoPark] (

[ID] [int] IDENTITY (1, 1) NOT FOR REPLICATION NOT NULL,

[AutoVokzal] [int] NULL,

[AutoNumber] [nchar] (10) COLLATE Cyrillic_General_CI_AS NULL,

[Kol_voMest] [int] NULL,

[Model] [nchar] (10) COLLATE Cyrillic_General_CI_AS NULL

) ON [PRIMARY]

GO

 

/****** Object: Table [dbo].[AutoVokzal] Script Date: 22.01.2008 2:22:40 ******/

CREATE TABLE [dbo].[AutoVokzal] (

[ID] [int] IDENTITY (1, 1) NOT FOR REPLICATION NOT NULL,

[Region] [nchar] (50) COLLATE Cyrillic_General_CI_AS NULL,

[Sity] [nchar] (50) COLLATE Cyrillic_General_CI_AS NULL,

[Street] [nchar] (50) COLLATE Cyrillic_General_CI_AS NULL,

[Flat] [int] NULL,

[Phone] [nchar] (10) COLLATE Cyrillic_General_CI_AS NULL,

[Director] [nchar] (20) COLLATE Cyrillic_General_CI_AS NULL,

[NAME] [nchar] (50) COLLATE Cyrillic_General_CI_AS NULL

) ON [PRIMARY]

GO

 

/****** Object: Table [dbo].[Personal] Script Date: 22.01.2008 2:22:40 ******/

CREATE TABLE [dbo].[Personal] (

[Id] [int] IDENTITY (1, 1) NOT FOR REPLICATION NOT NULL,

[FirstName] [nchar] (20) COLLATE Cyrillic_General_CI_AS NULL,

[SurName] [nchar] (20) COLLATE Cyrillic_General_CI_AS NULL,

[Dolgnost] [nchar] (50) COLLATE Cyrillic_General_CI_AS NULL,

[Pol] [bit] NULL,

[BirhtDay] [datetime] NULL,

[INN] [nchar] (10) COLLATE Cyrillic_General_CI_AS NULL,

[NumberPension] [nchar] (10) COLLATE Cyrillic_General_CI_AS NULL,

[Region] [nchar] (10) COLLATE Cyrillic_General_CI_AS NULL,

[Sity] [nchar] (10) COLLATE Cyrillic_General_CI_AS NULL,

[Street] [nchar] (10) COLLATE Cyrillic_General_CI_AS NULL,

[Flat] [int] NULL,

[Phone] [nchar] (10) COLLATE Cyrillic_General_CI_AS NULL,

[AvtoVokzal] [int] NULL,

[LogonName] [nchar] (10) COLLATE Cyrillic_General_CI_AS NULL,

[Password] [nchar] (10) COLLATE Cyrillic_General_CI_AS NULL

) ON [PRIMARY]

GO

 

/****** Object: Table [dbo].[Reysi] Script Date: 22.01.2008 2:22:40 ******/

CREATE TABLE [dbo].[Reysi] (

[ID] [int] IDENTITY (1, 1) NOT FOR REPLICATION NOT NULL,

[Code] [nchar] (10) COLLATE Cyrillic_General_CI_AS NULL,

[Data] [datetime] NULL,

[Driver] [int] NULL,

[SecondDriver] [int] NULL,

[PunktOtpravlenia] [int] NULL,

[PunktNaznachenia] [int] NULL,

[Kontroler] [int] NULL,

[NamberPlatformi] [nchar] (10) COLLATE Cyrillic_General_CI_AS NULL,

[AutoVokzal] [int] NULL,

[Avto] [int] NULL

) ON [PRIMARY]

GO

 

/****** Object: Table [dbo].[Sity] Script Date: 22.01.2008 2:22:40 ******/

CREATE TABLE [dbo].[Sity] (

[ID] [int] IDENTITY (1, 1) NOT FOR REPLICATION NOT NULL,

[Name] [nchar] (50) COLLATE Cyrillic_General_CI_AS NULL,

[Region] [nchar] (50) COLLATE Cyrillic_General_CI_AS NULL,

[Map] [image] NULL

) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]

GO

 

/****** Object: Table [dbo].[Tikets] Script Date: 22.01.2008 2:22:40 ******/

CREATE 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]

GO

 

/****** Object: Table [dbo].[Zakaz] Script Date: 22.01.2008 2:22:40 ******/

CREATE 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]

GO

 

ALTER TABLE [dbo].[AutoPark] WITH NOCHECK ADD

CONSTRAINT [PK_AutoPark] PRIMARY KEY CLUSTERED

(

[ID]

) ON [PRIMARY]

GO

 

ALTER TABLE [dbo].[AutoVokzal] WITH NOCHECK ADD

CONSTRAINT [PK_AutoVokzal] PRIMARY KEY CLUSTERED

(

[ID]

) ON [PRIMARY]

GO

 

ALTER TABLE [dbo].[Personal] WITH NOCHECK ADD

CONSTRAINT [PK_Personal] PRIMARY KEY CLUSTERED

(

[Id]

) ON [PRIMARY]

GO

 

ALTER TABLE [dbo].[Reysi] WITH NOCHECK ADD

CONSTRAINT [PK_Reysi] PRIMARY KEY CLUSTERED

(

[ID]

) ON [PRIMARY]

GO

 

ALTER TABLE [dbo].[Sity] WITH NOCHECK ADD

CONSTRAINT [PK_Sity] PRIMARY KEY CLUSTERED

(

[ID]

) ON [PRIMARY]

GO

 

ALTER TABLE [dbo].[Tikets] WITH NOCHECK ADD

CONSTRAINT [PK_Tikets] PRIMARY KEY CLUSTERED

(

[ID]

) ON [PRIMARY]

GO

 

ALTER TABLE [dbo].[Zakaz] WITH NOCHECK ADD

CONSTRAINT [PK_Zakaz] PRIMARY KEY CLUSTERED

(

[ID]

) ON [PRIMARY]

GO

 

ALTER TABLE [dbo].[AutoPark] ADD

CONSTRAINT [FK_AutoPark_AutoVokzal] FOREIGN KEY

(

[AutoVokzal]

) REFERENCES [dbo].[AutoVokzal] (

[ID]

)

GO

 

ALTER TABLE [dbo].[Personal] ADD

CONSTRAINT [FK_Personal_AutoVokzal] FOREIGN KEY

(

[AvtoVokzal]

) REFERENCES [dbo].[AutoVokzal] (

[ID]

)

GO

 

ALTER TABLE [dbo].[Reysi] ADD

CONSTRAINT [FK_Reysi_AutoPark] FOREIGN KEY

(

[Avto]

) REFERENCES [dbo].[AutoPark] (

[ID]

),

CONSTRAINT [FK_Reysi_AutoVokzal] FOREIGN KEY

(

[AutoVokzal]

) REFERENCES [dbo].[AutoVokzal] (

[ID]

),

CONSTRAINT [FK_Reysi_Personal] FOREIGN KEY

(

[Driver]

) REFERENCES [dbo].[Personal] (

[Id]

),

CONSTRAINT [FK_Reysi_Personal1] FOREIGN KEY

(

[SecondDriver]

) REFERENCES [dbo].[Personal] (

[Id]

),

CONSTRAINT [FK_Reysi_Personal2] FOREIGN KEY

(

[Kontroler]

) REFERENCES [dbo].[Personal] (

[Id]

),

CONSTRAINT [FK_Reysi_Sity] FOREIGN KEY

(

[PunktOtpravlenia]

) REFERENCES [dbo].[Sity] (

[ID]

),

CONSTRAINT [FK_Reysi_Sity1] FOREIGN KEY

(

[PunktNaznachenia]

) REFERENCES [dbo].[Sity] (

[ID]

)

GO

 

ALTER TABLE [dbo].[Tikets] ADD

CONSTRAINT [FK_Tikets_Reysi] FOREIGN KEY

(

[Reys]

) REFERENCES [dbo].[Reysi] (

[ID]

),

CONSTRAINT [FK_Tikets_Zakaz] FOREIGN KEY

(

[Zakaz]

) REFERENCES [dbo].[Zakaz] (

[ID]

)

GO

 

ALTER TABLE [dbo].[Zakaz] ADD

CONSTRAINT [FK_Zakaz_Reysi] FOREIGN KEY

(

[Reys]

) REFERENCES [dbo].[Reysi] (

[ID]

)

GO

 

SET QUOTED_IDENTIFIER OFF

GO

SET ANSI_NULLS ON

GO

 

/****** Object: Trigger dbo.DEL_reys Script Date: 22.01.2008 2:22:40 ******/

CREATE trigger DEL_reys on dbo.Reysi

instead of delete

as

IF @@ROWCOUNT=1

BEGIN

DECLARE @y INT

SELECT @y=ID

FROM deleted

delete from Tikets where Reys=@y

delete from Zakaz where Reys=@y

END

 

 

GO

 

SET QUOTED_IDENTIFIER OFF

GO

SET ANSI_NULLS ON

GO

 


Приложение 2 – Листинг программы

program Mdiapp;

 

uses

Forms,

MAIN in 'MAIN.PAS' {MainForm},

about in 'about.pas' {AboutBox},

DataModule in 'DataModule.pas' {DataModule1: TDataModule},

USity in 'USity.pas' {FSity},

UAutovokzaly in 'UAutovokzaly.pas' {FAutovokzaly},

UEditAutovokzal in 'UEditAutovokzal.pas' {FEditAutovokzal},

UAutoPark in 'UAutoPark.pas' {FAutoPark},

UEditAutopark in 'UEditAutopark.pas' {FEditAutopark},

UPersonal in 'UPersonal.pas' {FPersonal},

UEditPersonal in 'UEditPersonal.pas' {FEditPersonal},

UReisy in 'UReisy.pas' {Freisy},

UEditReys in 'UEditReys.pas' {FEditReis},

UEditSity in 'UEditSity.pas' {FEditSity};

 

{$R *.RES}

 

begin

Application.Initialize;

Application.Title:= 'Курсовая работа "Автовокзалы"';

Application.CreateForm(TDataModule1, DataModule1);

Application.CreateForm(TMainForm, MainForm);

Application.CreateForm(TAboutBox, AboutBox);

Application.Run;

end.

 

unit MAIN;

 

interface

 

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,

StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,

ActnList, ToolWin, ImgList, DBActns, DBClientActns, dxExEdtr, dxCntner,

dxTL, dxDBCtrl, dxDBGrid, dxDBTL, ShellApi;

 

type

TMainForm = class(TForm)

procedure HelpAbout1Execute(Sender: TObject);

procedure FileExit1Execute(Sender: TObject);

procedure SityExecute(Sender: TObject);

procedure AutovokzalysExecute(Sender: TObject);

procedure AutoparkExecute(Sender: TObject);

procedure PersonalExecute(Sender: TObject);

procedure ReisyExecute(Sender: TObject);

procedure SaveExcelExecute(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

 

public

{ Public declarations }

end;

 

var

MainForm: TMainForm;

 

implementation

 

{$R *.dfm}

 

uses about, USity, UAutovokzaly, UAutoPark, UPersonal, UReisy, DataModule;

 

 

procedure TMainForm.HelpAbout1Execute(Sender: TObject);

begin

AboutBox.ShowModal;

end;

 

procedure TMainForm.FileExit1Execute(Sender: TObject);

begin

Close;

end;

 

procedure TMainForm.SityExecute(Sender: TObject);

begin

Application.CreateForm(TFSity,FSity);

FSity.Show

end;

 

procedure TMainForm.AutovokzalysExecute(Sender: TObject);

begin

Application.CreateForm(TFAutovokzaly,FAutovokzaly);

FAutovokzaly.Show

end;

 

procedure TMainForm.AutoparkExecute(Sender: TObject);

begin

Application.CreateForm(TFAutoPark,FAutoPark);

FAutoPark.Show

end;

 

procedure TMainForm.PersonalExecute(Sender: TObject);

begin

Application.CreateForm(TFPersonal,FPersonal);

FPersonal.Show

end;

 

procedure TMainForm.ReisyExecute(Sender: TObject);

begin

Application.CreateForm(TFreisy,Freisy);

Freisy.Show

end;

 

procedure TMainForm.SaveExcelExecute(Sender: TObject);

var FName:String;

AObject:String;

begin

// with Sender as TdxDBGrid, TdxDBTreeList do begin

// MessageDlg(FName, mtInformation, [mbOk], 0);

 

if Screen.ActiveForm.ActiveControl <> nil then begin

AObject:= Screen.ActiveForm.ActiveControl.ClassName;

if (AObject = 'TdxDBTreeList') or (AObject = 'TdxDBGrid') then begin

if SaveDialog1.Execute then begin

FName:= SaveDialog1.FileName;

if AObject = 'TdxDBGrid' then

with Screen.ActiveForm.ActiveControl as TdxDBGrid do

SaveToXLS(FName, False)

else

with Screen.ActiveForm.ActiveControl as TdxDBTreeList do

SaveAllToTextFile(FName);

 

if ShellExecute

(Handle, 'open', @FName[1], nil, nil, SW_SHOWNORMAL)<32 then

MessageDlg('Не буду!', mtInformation, [mbOk], 0)

else

MessageDlg('Создан файл '+FName, mtInformation, [mbOk], 0);

end;

// WinExec() CreateProcess()

end;

end;

 

end;

 

procedure TMainForm.FormCreate(Sender: TObject);

begin

DataModule1.MSConnection1.Connect

end;

 

end.

 

unit DataModule;

 

interface

 

uses

SysUtils, Classes, DBAccess, SdacVcl, DB, MSAccess, MemDS;

 

type

procedure AutovokzalyAfterInsert(DataSet: TDataSet);

procedure AutoParkAfterInsert(DataSet: TDataSet);

procedure PersonalAfterInsert(DataSet: TDataSet);

procedure ReisyAfterInsert(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

DataModule1: TDataModule1;

 

implementation

 

uses UEditAutovokzal, UEditAutopark, UEditPersonal, UEditReys, UReisy;

 

{$R *.dfm}

 

procedure TDataModule1.AutovokzalyAfterInsert(DataSet: TDataSet);

begin

FEditAutovokzal.ShowModal

end;

 

procedure TDataModule1.AutoParkAfterInsert(DataSet: TDataSet);

begin

FEditAutopark.ShowModal

end;

 

procedure TDataModule1.PersonalAfterInsert(DataSet: TDataSet);

begin

FEditPersonal.ShowModal

end;

 

procedure TDataModule1.ReisyAfterInsert(DataSet: TDataSet);

begin

FEditReis.ShowModal;

end;

 

end.

 

Дата добавления: 2015-10-13; просмотров: 108 | Нарушение авторских прав

Читайте в этой же книге: Введение | Определения | Хранимые процедуры | Реляционная модель базы данных | Структура базы данных |
<== предыдущая страница | следующая страница ==>
Руководство пользования программой| Введение
mybiblioteka.su - 2015-2024 год. (0.087 сек.)