Смекни!
smekni.com

Автоматизированная система учета по подключению Интернет-сети в РУП "Белтелеком" (стр. 4 из 4)

table1.FieldByName('FIO').AsString:=form5.DBEdit1.text;

if ((Form5.DBEdit1.Text='')or(Form5.DBEdit2.Text='')or(Form5.DBEdit3.Text='')or (Form5.DBEdit4.Text='')) then begin

messagedlg ('Поля не заполнены!'+#13 +'Введите пожалуйста данные!',mtinformation,[mbok],0);

Table1.Cancel;

end

else

table1.Post;

end

else

Table1.Cancel;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

table1.edit;

if form6.showmodal=mrOk then

begin

if ((Form6.DBEdit1.Text='')or(Form6.DBEdit2.Text='')or(Form6.DBEdit3.Text='')or(Form6.DBEdit4.Text='')) then begin

messagedlg ('Полянезаполнены!'+#13 +'Введитепожалуйстаданные!',mtinformation,[mbok],0);Table1.Cancel;

end

else

form1.Table1.Post;

end

else Table1.Cancel;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

form9.show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

form10.show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Winhelp(Form1.Handle,'help1.hlp',Help_context,1);

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

form11.show;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

form12.show;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form16.QuickRep1.Preview;

end;

unit Unit2;

interface

uses

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

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

type

TForm2 = class(TForm)

DBGrid1: TDBGrid;

Table1: TTable;

DataSource1: TDataSource;

Button1: TButton;

Button2: TButton;

DBNavigator1: TDBNavigator;

Label2: TLabel;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit7, Unit8, Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

Var

i:integer;

begin

table1.Append;

if form7.showmodal=mrOk then

begin

table1.FieldByName('FIO').AsString:=form7.DBEdit1.text;

if form7.DBEdit1.text=''then table1.Cancel

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

table1.edit;

if form8.showmodal=mrOk then

begin

if form8.DBEdit1.text='' then Table1.Cancel

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

form1.show;

form2.Close;

end;

unit Unit3;

interface

uses

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

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

type

TForm3 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

Label1: TLabel;

DBGrid2: TDBGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit8, Unit4, Unit14, Unit1;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

Var

i:integer;

begin

table1.Append;

if form4.showmodal=mrOk then

begin

table1.FieldByName('FIO').AsString:=form4.DBEdit1.text;

if form4.DBEdit1.text=''then table1.Cancel

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

table1.edit;

if form14.showmodal=mrOk then

begin

if form14.DBEdit1.text='' then Table1.Cancel

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

form1.show;

form3.Close;

end;

unit Unit9;

interface

uses

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

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

type

TForm9 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit13, Unit15, Unit1;

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);

begin

table1.edit;

if form13.showmodal=mrOk then

begin

if form13.DBEdit1.text='' then Table1.Cancel

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm9.Button2Click(Sender: TObject);

Var

i:integer;

begin

table1.Append;

if form15.showmodal=mrOk then

begin

table1.FieldByName('FIO').AsString:=form15.DBEdit1.text;

if form15.DBEdit1.text=''then table1.Cancel

else

table1.Post; end

else

table1.Cancel;

end;

procedure TForm9.Button3Click(Sender: TObject);

begin

form1.show;

form9.Close;

end;

unit Unit11;

interface

uses

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

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

type

TForm11 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

RadioGroup1: TRadioGroup;

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

MainMenu1: TMainMenu;

N1: TMenuItem;

Button2: TButton;

Label1: TLabel;

DBNavigator1: TDBNavigator;

procedure Button1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

Public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

uses Unit4, Unit1;

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex of

4:begin

Form11.Table1.Filtered:=false;

Edit2.Text:='';Edit3.Text:='';

Edit1.Text:='';

end;

1:begin

if edit2.Text='' then

ShowMessage ('введитеадрес')

else

Form11.Table1.Filter:='Address'+'='+AnsiQuotedStr(edit2.Text,'''');

Form11.Table1.Filtered:=true;

end;

2: begin

if edit3.Text='' then

ShowMessage ('введитеномертелефона')

else

Form11.Table1.Filter:='Telefon'+'='+AnsiQuotedStr(edit3.Text,'''');

Form11.Table1.Filtered:=true;

end;

3: begin

end;

0:begin

if edit1.Text='' then

ShowMessage ('введитеФИО')

else

Form11.Table1.Filter:='FIO'+'='+AnsiQuotedStr(edit1.Text,'''');

Form11.Table1.Filtered:=true;

end;

end;

end;

procedure TForm11.N1Click(Sender: TObject);

begin

Table1.Filtered:=False;

end;

procedure TForm11.Button2Click(Sender: TObject);

begin

form1.show;

form11.Close;

end;

unit Unit12;

interface

uses

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

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

type

TForm12 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

Label1: TLabel;

RadioGroup1: TRadioGroup;

Label2: TLabel;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

DBNavigator1: TDBNavigator;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm12.Button2Click(Sender: TObject);

var

Pole : ShortString;

begin

Case RadioGroup1.ItemIndex of

0:Pole:='FIO';

1:Pole:='God rozhdenia' ;

2:Pole:='Address' ;

3:Pole:='Telefon' ;

end;

If not (Table1.Locate(Pole, Edit1.Text,[loCaseInsensitive, loPartialKey])) then

messagedlg ('Неттакихданных!'+#13 +'',mtinformation,[mbok],0);

end;

procedure TForm12.Button1Click(Sender: TObject);

begin

Edit1.Text:='';

end;

procedure TForm12.Button3Click(Sender: TObject);

begin

form1.show;

form12.Close;

end;

end.


Приложение Б

Руководство программиста

Для того чтобы установить базу данных по разработке автоматизированной системы учета по подключению Интернет сети на предприятии «Белтелеком», <Project.exe> необходимо выполнить следующее:

1. создать папку BASE и скопировать в нее базу данных;

2. открыть BDEAdministrator и создатьпсевдоним (STANDARD)

(Object →New→OK);

3. Указать путь к базе данных;

4. Выбрать Object→Apply→Yes;

5. Переименовать псевдоним Standardна PROBA;

6. Установить Project.exe;

7. Создать ярлык на рабочем столе.


Приложение В

Руководство пользователя

Данная разработанная программа находится на диске E:&bsol; в папке Танюша – задача – Project.exe. При запуске Project.exe появится диалоговое окно «РУП «Белтелеком», представленное на рисунке 9 .

Рисунок 9 – Личностные данные

Основными элементами диалогового окна, представленного на рисунке, является головное меню со следующими пунктами: «Меню», «Справка». В пункт «Меню» входят подпункты «Отчет» и «Выход». А в пункте «Справка» отображаются подпункты «О программе» и «О разработчике».

Первоначальный вид диалогового окна представлен таблицей «Личностные данные», в которую внесены данные пользователей сети Интернет. Справа от таблицы представлены функции, с помощью которых можно добавлять данных пользователей, при необходимости, если какие-то данные были неправильно введены, изменять (Рисунок 10).


Рисунок 10 – Добавление записей

После внесения данных нажимаем на кнопку «ОК». Теперь наша новая запись будет внесена в таблицу «Личностные данные». По аналогии можно поменять какие-либо данные нашей записи. Для этого нужно выбрать ее в таблице, а затем нажать на кнопку «изменить».

Также на форме представлены и другие кнопки: «Паспортные данные», «Данные по подключению к сети Интернет», «Данные по пользованию сетью Интернет».

Для того чтобы внести все данные для нашего введенного пользователя нужно предварительно выбрать его в таблице «Личностные данные», а затем нажать на кнопку «Паспортные данные». Перед нами откроется другое диалоговое окно, в которое необходимо внести паспортные данные нашего пользователя. Для этого выбираем «добавить» (Рисунок 11).


Рисунок 11 – Паспортные данные

После ввода данных нажимаем «ОК». Теперь в таблицу «Паспортные данные» будут внесены наши введенные данные. Для выхода в основное окно необходимо нажать на кнопку «назад» или закрыть в верхнем правом углу.

Далее нажимаем на кнопку «Данные по подключению к сети Интернет». В открывшемся окне вводим все необходимые данные, нажав на кнопку «добавить». Вводим все необходимые данные. Затем нажимаем на кнопку «ОК». Теперь в нашей таблице «Данные по подключению в сеть Интернет» будут внесены все нужные нам данные (Рисунок 12).


Рисунок 12 – Добавление записи

Для возврата нажимаем на кнопку «назад».

Далее нажимаем на кнопку «Данные по пользованию сетью Интернет». В открывшемся окне вводим все необходимые данные, нажав на кнопку «добавить». Вводим все необходимые данные. Затем нажимаем на кнопку «ОК» (Рисунок 13).

Рисунок 13 – Добавление записи


Для таблицы «Личностные данные» можно выполнять фильтрацию и поиск.

«Фильтрация» помогает найти значения с конкретными данными. Фильтровать можно по ФИО, по адресу, по телефону. Для того чтобы отфильтровать данные необходимо выбрать нужный пункт, по которому будет происходить фильтрация, ввести данные и нажать на кнопку «Фильтрация» (Рисунок 14).

Рисунок 14 – Фильтрация

Для восстановления всех данных в таблице необходимо нажать в списке меню «все записи».

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

Для поиска нужно выбрать нужный пункт, ввести необходимые данные и нажать на кнопку «Поиск» (Рисунок 15).


Рисунок 15 – Поиск

Для очистки поля ввода данных используется кнопка «Очистить».