begin

If Application.MessageBox(PChar('Вы действительно хотите удалить'

+DataModule2.BookTableDSDesigner.AsString), 'Внимание!!!' ,

MB_OKCANCEL)=id_OK then

DataModule2.BookTable.Delete;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

AboutForm.ShowModal;

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin

AboutForm.ShowModal;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.SpeedButton5Click(Sender: TObject);

begin

Close;

end;

end.

3.2 Код модуля unit DataModuleUnit

unit DataModuleUnit;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDataModule2 = class(TDataModule)

ADOConnection1: TADOConnection;

BookTable: TADOTable;

DataSource1: TDataSource;

BookTableDSDesigner: TAutoIncField;

BookTableDSDesigner2: TWideStringField;

BookTableDSDesigner3: TWideStringField;

BookTableDSDesigner4: TWideStringField;

BookTableDSDesigner5: TWideStringField;

BookTableDSDesigner6: TWideStringField;

BookTableDSDesigner7: TWideStringField;

BookTableDSDesigner8: TWideStringField;

BookTableDSDesigner9: TWideStringField;

BookTableDSDesigner10: TDateTimeField;

BookTableDSDesigner11: TBooleanField;

TownSourse: TDataSource;

TownTable: TADOTable;

TownTableKey1: TAutoIncField;

TownTableDSDesigner: TWideStringField;

BookTableDSDesigner12: TWideStringField;

FindQuery: TADOQuery;

FindSource: TDataSource;

FindQueryDSDesigner: TAutoIncField;

FindQueryDSDesigner2: TWideStringField;

FindQueryDSDesigner3: TWideStringField;

FindQueryDSDesigner4: TWideStringField;

FindQueryDSDesigner5: TWideStringField;

FindQueryDSDesigner6: TWideStringField;

FindQueryDSDesigner7: TWideStringField;

FindQueryDSDesigner8: TWideStringField;

FindQueryDSDesigner9: TWideStringField;

FindQueryDSDesigner10: TWideStringField;

FindQueryDSDesigner11: TDateTimeField;

FindQueryDSDesigner12: TBooleanField;

procedure BookTableFilterRecord(DataSet: TDataSet;

var Accept: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule2: TDataModule2;

implementation

uses Unit1;

{$R *.dfm}

procedure TDataModule2.BookTableFilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

Accept:=false;

If copy(BookTableDSDesigner.AsString,1,Length(Form1.FindEdit.Text))=

Form1.FindEdit.Text then

Accept:=true;

end;

end.

3.3. Код модуля TownBookUnit

unit TownBookUnit; форма «города»

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls;

type

TTownBookForm = class(TForm)

DBGrid1: TDBGrid;

OK: TButton;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure OKClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

TownBookForm: TTownBookForm;

implementation

uses DataModuleUnit;

{$R *.dfm}

procedure TTownBookForm.Button1Click(Sender: TObject);

begin

DataModule2.TownTable.Insert;

DBGrid1.SetFocus;

end;

procedure TTownBookForm.Button2Click(Sender: TObject);

begin

if DataModule2.TownTable.Modified then

DataModule2.TownTable.Post;

end;

procedure TTownBookForm.Button3Click(Sender: TObject);

begin

DataModule2.TownTable.Delete;

end;

procedure TTownBookForm.OKClick(Sender: TObject);

begin

TownBookForm.Close;

end;

end.

3.4 код модуля EditFormunit

unit EditFormunit; форма «редактирование данных»

interface

uses

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

Dialogs, StdCtrls, DBCtrls, Mask;

type

TEditRecordForm = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBCheckBox1: TDBCheckBox;

DBLookupComboBox1: TDBLookupComboBox;

Label6: TLabel;

Button1: TButton;

Button2: TButton;

Label7: TLabel;

Label8: TLabel;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

Label9: TLabel;

Label10: TLabel;

DBEdit9: TDBEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

EditRecordForm: TEditRecordForm;

implementation

uses DataModuleUnit;

{$R *.dfm}

procedure TEditRecordForm.Button1Click(Sender: TObject);

begin

if DataModule2.BookTable.Modified then

DataModule2.BookTable.Post;

Close;

end;

procedure TEditRecordForm.Button2Click(Sender: TObject);

begin

DataModule2.BookTable.Cancel;

Close;

end;

end.

3.5 код модуля FindResultUnit.

unit FindResultUnit; форма «результат поиска»

interface

uses

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

Dialogs, Grids, DBGrids;

type

TFindResultForm = class(TForm)

DBGrid1: TDBGrid;

private

{ Private declarations }

public

{ Public declarations }

end;

var

FindResultForm: TFindResultForm;

implementation

uses DataModuleUnit, EditFormunit, TownBookUnit, Unit1;

{$R *.dfm}

end.

3.6. Код модуля AboutFormUnit

unit AboutFormUnit; форма «о программе»

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TAboutForm = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutForm: TAboutForm;

implementation

{$R *.dfm}

end.

4. ОПИСАНИЕ ПРОГРАММЫ.

ГОСТ 19.402-78

4.1 Общие требования

База данных для службы быта (справочник потребителя).

Программный продукт создан с применением языка программирования Delphi в среде компилятора Borland Delphi 7.0.

4.2 Описание логической структуры

Для реализации прикладной части системы была выбрана среда разработки Borland Delphi 7.0. Доступ к БД осуществляется через Microsoft ActiveX Data Objects (ADO) .

Также были использованы следующие компоненты:

· TADOConnection;

· TDATASourse;

· TADOQueri;

4.3 Функциональное назначение

Даная программа применима для коммерческой деятельности (справочная по предприятиям, информационное бюро).

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

4.4 Используемые технические средства

ОС Windows(98, МЕ,2000,XP), и выше, клавиатура мышь.

Программа написана на языке программирования Delphi в среде компилятора Borland Delphi 7.0. Кроме того необходимо наличие Microsoft ActiveX Data Objects (ADO) - машина баз данных Borland. Представляет собой набор DLL -библиотек, обеспечивающих низкоуровневый доступ к локальным и клиент-северным БД. Должна устанавливаться на каждом компьютере, который использует приложения для работы с БД, написанные для Delphi.

Запуск программу осуществляется при открытии файла S_P.EXE.

4.5 Входные данные

Информация вводимая с клавиатуры.

4.6 Выходные данные

Информации выводимая на экран.

4.7 Структура БД

Пояснение к схеме:

Таблицы:

· Служба быта - содержит полную информацию по предприятиям;

· Справочник городов - содержит список городов.

Поля (таблица служба быта):

· Код номера

· Название предприятия;

· Разряд;

· Город;

· Адрес;

· Телефоны

· Специализация

· Перечень оказываемых услуг

· Форма собственности

· Часы и дни работы

· Дата

· Мобильник

Поля (таблица справочник городов):

· Key

· Название города

5. ПРОГРАММА И МЕТОДИКА ИСПЫТАНИЙ.

ГОСТ 19.301-79

5.1 Объект испытаний

База данных для службы быта.

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

Даная программа применима для коммерческой деятельности (справочная по предприятиям, информационное бюро).

5.3 Цель испытаний

Проверить работоспособность программы.

5.4 Технически требования

ОС Windows(98, МЕ,2000,XP), и выше, клавиатура мышь.

Программа написана на языке программирования Delphi в среде компилятора Borland Delphi 7.0. Кроме того необходимо наличие Microsoft ActiveX Data Objects (ADO) - машина баз данных Borland. Представляет собой набор DLL -библиотек, обеспечивающих низкоуровневый доступ к локальным и клиент-северным БД. Должна устанавливаться на каждом компьютере, который использует приложения для работы с БД, написанные для Delphi.

5.5 Методы испытания

Программный продукт тестировался на работоспособность на компьютере с необходимым, установленным программным обеспечением (Borland Delphi 7.0.).

Для полноценной работы базы данных необходимо наличие всех компонентов данного программного продукта: модули и таблицы с данными.

6. ОПИСАНИЕ ПРИМЕНЕНИЯ

ГОСТ 19.502-78

Настоящий стандарт устанавливает состав и требования к содержанию программного документа «Описание применения», определённого ГОСТ 19.101-77.

Стандарт полностью соответствует СТ СЭВ 2093-80.

Структуру и оформление документа устанавливают в соответствии с ГОСТ 19.105-78.

6.1 Наименование

База данных для службы быта.

6.2 Назначение программы

Даная программа применима для коммерческой деятельности (справочная по предприятиям, информационное бюро).

6.3 Условия применения

ОС Windows(98, МЕ,2000,XP). Процессор Pentium1, Atlon6 и выше, клавиатура мышь.

Программа написана на языке программирования Delphi в среде компилятора Borland Delphi 7.0. Кроме того необходимо наличие Microsoft ActiveX Data Objects (ADO) - машина баз данных Borland. Представляет собой набор DLL -библиотек, обеспечивающих низкоуровневый доступ к локальным и клиент-северным БД. Должна устанавливаться на каждом компьютере, который использует приложения для работы с БД, написанные для Delphi.

Запуск программу осуществляется при открытии файла S_P.EXE.

6.4 Входные данные

Информация вводимая с клавиатуры.

6.5 Выходные данные

Информации выводимая на экран.

7. РУКОВОДСТВА СИСТЕМНОГО ПРОГРАММИСТА.

ГОСТ 19.503-79

7.1 Наименование программы

“База данных для информационного бюро”.

Программа написана на языке программирования Delphi в среде компилятора Borland Delphi 7.0.

7.2. Структура БД

7.3 Настройка программы

Необходимо наличие програмы Borland Delphi 7.0 или выше, кроме того необходимо наличие BDE и Microsoft ActiveX Data Objects (ADO) - машина баз данных Borland. Представляет собой набор DLL -библиотек, обеспечивающих низкоуровневый доступ к локальным и клиент-северным БД. Должна устанавливаться на каждом компьютере, который использует приложения для работы с БД, написанные для Delphi.

Для полноценной работы базы данных необходимо наличие всех компонентов данного программного продукта: модули и таблицы с данными.

7.4 Выполнение программы

Запуск программу осуществляется при открытии файла S_P.EXE.

Появляется главное окно программы.

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

Форма редактирование данных, на этой форме идет добавление новой записи, либо редактирование существующей.

Форма результат поиска, на этой форме выводиться результат поиска.

7.5 Проверка программы

Программный продукт тестировался на работоспособность на компьютере с необходимым, установленным программным обеспечением (Borland Delphi 7.0.).

Для полноценной работы базы данных необходимо наличие всех компонентов данного программного продукта: модули и таблицы с данными.

8. РУКОВОДСТВО ОПЕРАТОРА.

ГОСТ 19.505-79

8.1 Наименование программы

“База данных для информационного бюро”.

Программа написана на языке программирования Delphi в среде компилятора Borland Delphi 7.0.

8.2 Назначение программы

Даная программа применима для коммерческой деятельности (справочная по предприятиям, информационное бюро).

8.3 Условия выполнения программы

ОС Windows(98, МЕ,2000,XP). Процессор Pentium1, Atlon6 и выше, клавиатура мышь.

8.4 Выполнение программы.

Запуск программу осуществляется при открытии файла S_P.EXE.Основная форма программы содержит полную информацию о предприятии (название, разряд, адрес, телефоны, специализация, перечень услуг, часы и дни работы). Форма редактирование данных, на этой форме идет добавление новой записи, либо редактирование существующей.

Страницы: 1, 2