Міністерство освіти Російської Федерації.
Сибірський міжрегіональний коледж будівництва та підприємництва.
Курсовий проект
З дисципліни:
«Технологія розробки програмних продуктів»
Студента заочного відділення
Групи ПОВТ 63-02
Ахматова Костянтина Івановича
м. Іркутськ
2008
Зміст
Введення.
1. ТЕХНІЧНЕ ЗАВДАННЯ. ГОСТ 19.201-78
2. ПОЯСНЮВАЛЬНА ЗАПИСКА. ГОСТ 19.404-79
3. ТЕКСТ ПРОГРАМИ. ГОСТ 19.401-78
4. ОПИС ПРОГРАМИ. ГОСТ 19.402-78
5. ПРОГРАМА І МЕТОДИКА ВИПРОБУВАНЬ. ГОСТ 19.301-79
6. ОПИС ЗАСТОСУВАННЯ. ГОСТ 19.502-78
7. КЕРІВНИЦТВА СИСТЕМНОГО ПРОГРАМІСТА ГОСТ 19.503-79.
8. КЕРІВНИЦТВО ОПЕРАТОРА. ГОСТ 19.505-79
Список використаної літератури
Введення
Метою курсового проекту є:
· Розробка системи управління базами даних та зручного швидкого доступу до інформації.
· Розробка програмного продукту з використанням об'єктно-орієнтованої методології;
· Розробка програмної та експлуатаційної документації відповідно до ГОСТ-19 ЕСПД.
· Для досягнення мети необхідно було вивчити основні поняття баз даних.
· Найменування програми-База даних підприємств.
1. ТЕХНІЧНЕ ЗАВДАННЯ.
ГОСТ 19.201-78
1.1 Найменування програми
База даних для служби побуту (довідник споживача). Програмний продукт створений із застосуванням мови програмування 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 Код основного модуля програми Unit 1
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;
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; форма «про програму»
Сибірський міжрегіональний коледж будівництва та підприємництва.
Курсовий проект
З дисципліни:
«Технологія розробки програмних продуктів»
Студента заочного відділення
Групи ПОВТ 63-02
Ахматова Костянтина Івановича
м. Іркутськ
2008
Зміст
Введення.
1. ТЕХНІЧНЕ ЗАВДАННЯ. ГОСТ 19.201-78
2. ПОЯСНЮВАЛЬНА ЗАПИСКА. ГОСТ 19.404-79
3. ТЕКСТ ПРОГРАМИ. ГОСТ 19.401-78
4. ОПИС ПРОГРАМИ. ГОСТ 19.402-78
5. ПРОГРАМА І МЕТОДИКА ВИПРОБУВАНЬ. ГОСТ 19.301-79
6. ОПИС ЗАСТОСУВАННЯ. ГОСТ 19.502-78
7. КЕРІВНИЦТВА СИСТЕМНОГО ПРОГРАМІСТА ГОСТ 19.503-79.
8. КЕРІВНИЦТВО ОПЕРАТОРА. ГОСТ 19.505-79
Список використаної літератури
Введення
Метою курсового проекту є:
· Розробка системи управління базами даних та зручного швидкого доступу до інформації.
· Розробка програмного продукту з використанням об'єктно-орієнтованої методології;
· Розробка програмної та експлуатаційної документації відповідно до ГОСТ-19 ЕСПД.
· Для досягнення мети необхідно було вивчити основні поняття баз даних.
· Найменування програми-База даних підприємств.
1. ТЕХНІЧНЕ ЗАВДАННЯ.
ГОСТ 19.201-78
1.1 Найменування програми
База даних для служби побуту (довідник споживача). Програмний продукт створений із застосуванням мови програмування 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 Код основного модуля програми Unit 1
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;
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), і вище, клавіатура миша.
Програма написана на мові програмування 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.Основная форма програми містить повну інформацію про підприємство (назва, розряд, адреса, телефони, спеціалізація, перелік послуг, години і дні роботи). Форма редагування даних, на цій формі йде додавання нового запису, або редагування існуючої.
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 |
Назва міста |
ЗВ'ЯЗОК |
Пояснення до схеми:
Таблиці:
· Служба побуту - містить повну інформацію по підприємствах;
· Довідник міст - містить список міст.
Поля (таблиця служба побуту):
· Код номери
· Назва підприємства;
· Розряд;
· Місто;
· Адреса;
· Телефони
· Спеціалізація
· Перелік послуг, що надаються
· Форма власності
· Години і дні роботи
· Дата
· Мобільник
Поля (таблиця довідник міст):
· 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. Структура БД
Служба побуту |
Довідник міст |
Код номери |
Назва підприємства |
Місто |
Розряд |
Адреса |
Телефони |
Перелік послуг, що надаються |
Форма власності |
Години і дні роботи |
Дата |
Мобільник |
Key |
Назва міста |
ЗВ'ЯЗОК |
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.Основная форма програми містить повну інформацію про підприємство (назва, розряд, адреса, телефони, спеціалізація, перелік послуг, години і дні роботи). Форма редагування даних, на цій формі йде додавання нового запису, або редагування існуючої.