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

База данных позволяет:

получить информацию о предприятиях города;

подготовить отчет о предприятиях города.

1.2 Цель разработки

Разработать базу данных для службы быта.

Эта база должна содержать следующую информацию:

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

· разряд;

· адрес;

· телефоны;

· специализацию;

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

· часы и дни работы.

Тема разработки: база данных для службы быта.

1.3 Назначение разработки

Данная программа применима в деятельности Службы быта, справочного бюро.

получить информацию о предприятиях города;

подготовить отчет о предприятиях города.

1.4 Порядок контроля и приемки

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

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

2. ПОЯСНИТЕЛЬНАЯ ЗАПИСКА.

ГОСТ 19.404-79

Настоящий стандарт устанавливает требования к содержанию и оформлению программного документа «Пояснительная записка», определённого ГОСТ 19.101-77, входящего в состав документации на стадиях разработки эскизного и технического проекта программы.

2.1 Введение

Программное обеспечение - «База данных для службы быта»

2.2Основание разработки для разработки:

Программа разрабатывается для курсового проекта по предмету «Технология Разработки Программного Продукта» Сибирский Государственный Межрегиональный колледж строительства и предпринимательства, начало разработки 07.10.2008

Тема разработки База данных для службы быта

2.3 Назначения и область применения

Данная программа применима в деятельности Службы быта, справочного бюро.

получить информацию о предприятиях города;

подготовить отчет о предприятиях города.

2.4 Технические характеристики

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

3. ТЕКСТ ПРОГРАММЫ.

ГОСТ 19.401-78

3.1 Код основного модуля программы Unit1

unit Unit1; форма «справочник потребителя»

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, Menus, ToolWin, ComCtrls, comobj,

Buttons, ExtCtrls;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

Label1: TLabel;

FindEdit: TEdit;

Label2: TLabel;

Edit1: TEdit;

Label3: TLabel;

FindTelephoneEdit: TEdit;

Button1: TButton;

ToolBar1: TToolBar;

Excel1: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

Panel1: TPanel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure FindEditChange(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Excel1Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses DataModuleUnit, TownBookUnit, EditFormunit, FindResultUnit,

AboutFormUnit;

{$R *.dfm}

procedure TForm1.N5Click(Sender: TObject);

begin

TownBookForm.ShowModal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

DataModule2.BookTable.Insert;

EditRecordForm.ShowModal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

EditRecordForm.ShowModal;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

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

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

MB_OKCANCEL)=id_OK then

DataModule2.BookTable.Delete;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

DataModule2.BookTable.IndexFieldNames:= '[Название предприятия]';

end;

procedure TForm1.N10Click(Sender: TObject);

begin

DataModule2.BookTable.IndexFieldNames:= 'Город';

end;

procedure TForm1.FindEditChange(Sender: TObject);

begin

If Length (FindEdit.Text)>0 then

DataModule2.BookTable.Filtered:=true

else

DataModule2.BookTable.Filtered:=false;

DataModule2.BookTable.Filter:='[Название предприятия]>'''+FindEdit.Text+'''';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

DataModule2.FindQuery.Active:=false;

DataModule2.FindQuery.Parameters.ParamByName('Telephone').Value:=

FindTelephoneEdit.Text;

DataModule2.FindQuery.Active:=true;

FindResultForm.ShowModal;

end;

procedure TForm1.Excel1Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;

Colum.Columns[1].ColumnWidth:=20;

Colum.Columns[2].ColumnWidth:=20;

Colum.Columns[3].ColumnWidth:=20;

Colum.Columns[4].ColumnWidth:=20;

Colum.Columns[5].ColumnWidth:=20;

Colum.Columns[6].ColumnWidth:=20;

Colum.Columns[7].ColumnWidth:=20;

Colum.Columns[8].ColumnWidth:=20;

Colum.Columns[9].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlue;

Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];

Sheet.Cells[1,2]:='Служба быта';

Sheet.Cells[2,1]:='Название предприятия';

Sheet.Cells[2,2]:='Разряд';

Sheet.Cells[2,3]:='Город';

Sheet.Cells[2,4]:='Адрес';

Sheet.Cells[2,5]:='Телефоны';

Sheet.Cells[2,6]:='Специализация';

Sheet.Cells[2,7]:='Перечень оказаваемых услуг';

Sheet.Cells[2,8]:='Форма собственности';

Sheet.Cells[2,9]:='Часы и дни работы';

index:=3;

DataModule2.BookTable.First;

for i:=0 to DataModule2.BookTable.RecordCount-1 do

begin

Sheet.Cells[index,1]:=DataModule2.BookTable.Fields.Fields[1].AsString;

Sheet.Cells[index,2]:=DataModule2.BookTable.Fields.Fields[2].AsString;

Sheet.Cells[index,3]:=DataModule2.BookTable.Fields.Fields[3].AsString;

Sheet.Cells[index,4]:=DataModule2.BookTable.Fields.Fields[4].AsString;

Sheet.Cells[index,5]:=DataModule2.BookTable.Fields.Fields[5].AsString;

Sheet.Cells[index,6]:=DataModule2.BookTable.Fields.Fields[6].AsString;

Sheet.Cells[index,7]:=DataModule2.BookTable.Fields.Fields[7].AsString;

Sheet.Cells[index,8]:=DataModule2.BookTable.Fields.Fields[8].AsString;

Sheet.Cells[index,9]:=DataModule2.BookTable.Fields.Fields[9].AsString;

Inc(index);

DataModule2.BookTable.Next;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

DataModule2.BookTable.Insert;

EditRecordForm.ShowModal;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

EditRecordForm.ShowModal;

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

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), и выше, клавиатура мышь.

Запуск программу осуществляется при открытии файла 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), и выше, клавиатура мышь.

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

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

ГОСТ 19.502-78

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

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

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

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

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

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

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

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

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

Запуск программу осуществляется при открытии файла 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 Проверка программы

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