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

Программа предназначена для учета услуг связи и расчета их стоимости.

2.3.1 Требования к программной совместимости

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

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

4. ПРОВЕРКА РАБОТОСПОСОБНОСТИ ПРОГРАММЫ

4.1 Цель проверки

Удостовериться, что программа выполняет функции, заявленные в задании (п. 2.3.3.).

1. Ввод и редактирование справочника услуг. Перейти Главное меню->Справочники-> Услуги.

С помощью навигатора добавить (+) новую строку и сохранить введенные данные, нажав кнопку (v). Удаление записи из справочника услуг осуществляется с помощью кнопки (-).

2. Добавление нового клиента. Перейти Главное меню-> Клиент-> Добавить. Ввести ФИО клиента и номер телефона. Для сохранения нажать кнопку (v), для отмены - кнопку (Ч).

3. Поиск клиента. Ввести в поле ФИО фамилию, имя и отчество клиента и нажать на кнопку «Поиск» напротив поля ввода. Курсор в таблице клиентов переместиться в строку найденного клиента или выдаст сообщение об отсутствии такой записи. Поиск по номеру телефона аналогичен.

4. Добавление оказанной услуги. В главном окне программы найти клиента, которому оказана услуга. Прейти в Главное меню->Оказанные услуги->Добавить. Заполнить форму, указав вид оказанной услуги, количество единиц и дату и время оказания услуги. Для сохранения нажать кнопку (v), для отмены - кнопку (Ч).

5. Для вывода сводки перейти по Главное меню->Сводка.

6. Справочная информация по программе вызывается Главное меню->Помощь->О программе/Справка.

ЗАКЛЮЧЕНИЕ

Работа над курсовым проектом позволила познакомиться на практике с файл-серверной технологией баз данных, конкретнее с СУБД Paradox 7, освоить на практике возможности среды разработки Delphi 7 по реализации простых приложений для работы с базами данных.

В ходе работы произведена разработка трехтабличной базы данных для хранения данных об оказанных клиентам услугах связи. Разработана программа, позволяющая вести учет телефонных переговоров и других услуг связи, оказанных клиентом с автоматическим подсчетом поля «к оплате».

Программа обладает простыми возможностями поиска, сортировки и фильтрации данных.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Архангельский А.Я. Программирование в Delphi 7 + дискета, М.: Бином, 2005. - 987 с.

2. Бобровский С. Delphi 6 и Kylix: библиотека программиста. - СПб.: Питер, 2002. - 560 с.: ил.

3. Дарахвелидзе П.Г. Маркова Е.П. Е. Программирование в Delphi 7. -- СПб.: БХВ-Петербург,2003. -- 784 с : ил.

ПРИЛОЖЕНИЕ 1. ЛИСТИНГ ПРОГРАММЫ

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

s_service in 's_service.pas' {Form2},

add_client in 'add_client.pas' {Form3},

add_service in 'add_service.pas' {Form4},

report in 'report.pas' {Form5},

help in 'help.pas' {Form6},

about in 'about.pas' {Form7},

promo in 'promo.pas' {Form8};

{$R *.res}

begin

Application.Initialize;

Form8:= TForm8.Create(Application);

Form8.Show;

Form8.Update;

while Form8.Timer1.Enabled do

Application.ProcessMessages;

Application.CreateForm(TForm1, Form1);

Form8.Hide;

Form8.Free;

Application.Run;

unit Unit1;

interface

uses

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

Dialogs, Menus, Grids, DBGrids, DB, StdCtrls, DBTables,

ExtCtrls, DBCtrls, s_service, add_client,add_service,report,about,help;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

Table1: TTable;

DataSource1: TDataSource;

Table2: TTable;

DataSource2: TDataSource;

Table3: TTable;

DataSource3: TDataSource;

Table1Id_client: TAutoIncField;

Table1Fio: TStringField;

Table1Tn: TStringField;

Table2Id_calls: TAutoIncField;

Table2Client: TIntegerField;

Table2Service: TIntegerField;

Table2DateTime: TDateTimeField;

Table2Count: TFloatField;

Table2Bill: TCurrencyField;

Table3Id_service: TAutoIncField;

Table3Service: TStringField;

Table3Price: TCurrencyField;

Table2ServiceR: TStringField;

Table2PriceR: TCurrencyField;

GroupBox1: TGroupBox;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

GroupBox2: TGroupBox;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

GroupBox3: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Edit2: TEdit;

CheckBox1: TCheckBox;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Table2CalcFields(DataSet: TDataSet);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

Close();

end;

procedure TForm1.N7Click(Sender: TObject);

var s_service1:TForm2;

begin

s_service1 := TForm2.Create(Application);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Table1.Active:=true; Table1.IndexName:='Fio';

Table2.Active:=true;

Table3.Active:=true;

//установка окна по центру экрана

Left:=trunc(Screen.Width/2-Width/2);

Top:=trunc(Screen.Height/2-Height/2) ;

end;

procedure TForm1.N8Click(Sender: TObject);

var add_client1:TForm3;

begin

add_client1:=TForm3.Create(Application);

add_client1.Show;// собственно показываем

add_client1.SetFocus;

end;

procedure TForm1.N9Click(Sender: TObject);

var add_service1:TForm4;

begin

add_service1:=TForm4.Create(Application);

add_service1.Show;// собственно показываем

add_service1.SetFocus;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Table1.Active:=false;

Table2.Active:=false;

Table3.Active:=false;

end;

procedure TForm1.Table2CalcFields(DataSet: TDataSet);

begin

Table2Bill.Value:=Table2PriceR.Value*Table2Count.Value;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin //поиск по фио

if not Table1.Locate('Fio', Edit1.Text, [loCaseInsensitive,

loPartialKey]) then

ShowMessage('Запись не найдена');

end;

procedure TForm1.Button2Click(Sender: TObject);

begin //поиск по номеру телефона

if not Table1.Locate('Tn', Edit2.Text, [loCaseInsensitive,

loPartialKey]) then

ShowMessage('Запись не найдена');

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

var dt: TDateTime;

begin //фильтрация на сегодняшний день

if Checkbox1.Checked then

begin

dt:=now;

FormatDateTime('yyyy.MM.dd',dt);

Table2.Filter:='DateTime>='+ QuotedStr(FormatDateTime('dd.mm.yyyy',dt)+' 00:00:00')+' AND '+'DateTime<='+ QuotedStr(FormatDateTime('dd.mm.yyyy',dt)+' 23:59:59');

Table2.Filtered:=true;

end

else

begin

Table2.Filtered:=false;

end

end;

procedure TForm1.N10Click(Sender: TObject);

var report:TForm5;

begin

report:=TForm5.Create(Application);

report.Show;

report.SetFocus;

end;

procedure TForm1.N11Click(Sender: TObject);

var help :TForm6; //вывод о программе

begin

help:=TForm6.Create(Application);

help.Show;

help.SetFocus;

end;

procedure TForm1.N12Click(Sender: TObject);

var about :TForm7; //вывод о программе

begin

about:=TForm7.Create(Application);

about.Show;

about.SetFocus;

end;

end.

unit about;

interface

uses

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

Dialogs, StdCtrls;

type

TForm7 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm7.FormCreate(Sender: TObject);

begin

//установка окна по центру экрана

Left:=trunc(Screen.Width/2-Width/2);

Top:=trunc(Screen.Height/2-Height/2) ;

end;

end.

unit add_client;

interface

uses

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

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask;

type

TForm3 = class(TForm)

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label1: TLabel;

Label2: TLabel;

DBNavigator1: TDBNavigator;

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);

begin

Form1.Table1.Append;

Width:=450;

//установка окна по центру экрана

Left:=trunc(Screen.Width/2-Width/2);

Top:=trunc(Screen.Height/2-Height/2) ;

end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action := caFree;

end;

procedure TForm3.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

begin

//if (Button=nbPost) then

Close;

end;

end.

unit add_client;

interface

uses

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

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask;

type

TForm3 = class(TForm)

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label1: TLabel;

Label2: TLabel;

DBNavigator1: TDBNavigator;

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);

begin

Form1.Table1.Append;

Width:=450;

//установка окна по центру экрана

Left:=trunc(Screen.Width/2-Width/2);

Top:=trunc(Screen.Height/2-Height/2) ;

end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action := caFree;

end;

procedure TForm3.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

begin

//if (Button=nbPost) then

Close;

end;

end.

unit add_client;

interface

uses

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

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask;

type

TForm3 = class(TForm)

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label1: TLabel;

Label2: TLabel;

DBNavigator1: TDBNavigator;

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);

begin

Form1.Table1.Append;

Width:=450;

//установка окна по центру экрана

Left:=trunc(Screen.Width/2-Width/2);

Top:=trunc(Screen.Height/2-Height/2) ;

end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action := caFree;

end;

procedure TForm3.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

begin

Close;

end;

end.

unit promo;

interface

uses

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

Dialogs, ExtCtrls, jpeg, StdCtrls;

type

TForm8 = class(TForm)

Timer1: TTimer;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.Timer1Timer(Sender: TObject);

begin

Timer1.Enabled:=false;

end;

procedure TForm8.FormCreate(Sender: TObject);

begin

//установка окна по центру экрана

Left:=trunc(Screen.Width/2-Width/2);

Top:=trunc(Screen.Height/2-Height/2) ;

end;

end.

unit report;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables;

type

TForm5 = class(TForm)

Label1: TLabel;

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Button1: TButton;

Table1Id_calls: TAutoIncField;

Table1Client: TIntegerField;

Table1Service: TIntegerField;

Table1DateTime: TDateTimeField;

Table1Count: TFloatField;

Table1Bill: TCurrencyField;

Table2: TTable;

Table3: TTable;

Table1ClientR: TStringField;

Table1TNR: TStringField;

Table1ServiceR: TStringField;

Table1PriceR: TCurrencyField;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Table1CalcFields(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

Table1.Active:=false;

Table2.Active:=false;

Table3.Active:=false;

Close;

end;

procedure TForm5.FormCreate(Sender: TObject);

var dt:TDateTime;

begin

Table1.Active:=true; Table1.IndexName:='indxdatetime'; //упорядочить по времени

Table2.Active:=true;

Table3.Active:=true;

dt:=now;

FormatDateTime('yyyy.MM.dd',dt);

Table1.Filter:='DateTime>='+ QuotedStr(FormatDateTime('dd.mm.yyyy',dt)+' 00:00:00')+' AND '+'DateTime<='+ QuotedStr(FormatDateTime('dd.mm.yyyy',dt)+' 23:59:59');

Table1.Filtered:=true;

//установка окна по центру экрана

Left:=trunc(Screen.Width/2-Width/2);

Top:=trunc(Screen.Height/2-Height/2) ;

end;

procedure TForm5.Table1CalcFields(DataSet: TDataSet);

begin

Table1Bill.Value:=Table1PriceR.Value*Table1Count.Value;

end;

end.

unit s_service;

interface

uses

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

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids;

type

TForm2 = class(TForm)

DataSource1: TDataSource;

DBNavigator1: TDBNavigator;

Table1: TTable;

DBGrid1: TDBGrid;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Table1.Active:=false;

Action := caFree;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

Table1.Active:=true;

Width:=452;

//установка окна по центру экрана

Left:=trunc(Screen.Width/2-Width/2);

Top:=trunc(Screen.Height/2-Height/2) ;

end;

end.

Размещено на Allbest.ru