p align="left">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. открыть BDE Administrator и создать псевдоним (STANDARD) (Object >New>OK); 3. Указать путь к базе данных; 4. Выбрать Object>Apply>Yes; 5. Переименовать псевдоним Standard на PROBA; 6. Установить Project.exe; 7. Создать ярлык на рабочем столе. Приложение В Руководство пользователя Данная разработанная программа находится на диске E:\ в папке Танюша - задача - Project.exe. При запуске Project.exe появится диалоговое окно «РУП «Белтелеком», представленное на рисунке 9 . Рисунок 9 - Личностные данные Основными элементами диалогового окна, представленного на рисунке, является головное меню со следующими пунктами: «Меню», «Справка». В пункт «Меню» входят подпункты «Отчет» и «Выход». А в пункте «Справка» отображаются подпункты «О программе» и «О разработчике». Первоначальный вид диалогового окна представлен таблицей «Личностные данные», в которую внесены данные пользователей сети Интернет. Справа от таблицы представлены функции, с помощью которых можно добавлять данных пользователей, при необходимости, если какие-то данные были неправильно введены, изменять (Рисунок 10). Рисунок 10 - Добавление записей После внесения данных нажимаем на кнопку «ОК». Теперь наша новая запись будет внесена в таблицу «Личностные данные». По аналогии можно поменять какие-либо данные нашей записи. Для этого нужно выбрать ее в таблице, а затем нажать на кнопку «изменить». Также на форме представлены и другие кнопки: «Паспортные данные», «Данные по подключению к сети Интернет», «Данные по пользованию сетью Интернет». Для того чтобы внести все данные для нашего введенного пользователя нужно предварительно выбрать его в таблице «Личностные данные», а затем нажать на кнопку «Паспортные данные». Перед нами откроется другое диалоговое окно, в которое необходимо внести паспортные данные нашего пользователя. Для этого выбираем «добавить» (Рисунок 11). Рисунок 11 - Паспортные данные После ввода данных нажимаем «ОК». Теперь в таблицу «Паспортные данные» будут внесены наши введенные данные. Для выхода в основное окно необходимо нажать на кнопку «назад» или закрыть в верхнем правом углу. Далее нажимаем на кнопку «Данные по подключению к сети Интернет». В открывшемся окне вводим все необходимые данные, нажав на кнопку «добавить». Вводим все необходимые данные. Затем нажимаем на кнопку «ОК». Теперь в нашей таблице «Данные по подключению в сеть Интернет» будут внесены все нужные нам данные (Рисунок 12). Рисунок 12 - Добавление записи Для возврата нажимаем на кнопку «назад». Далее нажимаем на кнопку «Данные по пользованию сетью Интернет». В открывшемся окне вводим все необходимые данные, нажав на кнопку «добавить». Вводим все необходимые данные. Затем нажимаем на кнопку «ОК» (Рисунок 13). Рисунок 13 - Добавление записи Для таблицы «Личностные данные» можно выполнять фильтрацию и поиск. «Фильтрация» помогает найти значения с конкретными данными. Фильтровать можно по ФИО, по адресу, по телефону. Для того чтобы отфильтровать данные необходимо выбрать нужный пункт, по которому будет происходить фильтрация, ввести данные и нажать на кнопку «Фильтрация» (Рисунок 14). Рисунок 14 - Фильтрация Для восстановления всех данных в таблице необходимо нажать в списке меню «все записи». Поиск помогает найти из набора данных определенное значение. Поиск осуществляется по следующим данным: по фамилии, по дате рождения, по адресу, по телефону. Для поиска нужно выбрать нужный пункт, ввести необходимые данные и нажать на кнопку «Поиск» (Рисунок 15). Рисунок 15 - Поиск Для очистки поля ввода данных используется кнопка «Очистить».
Страницы: 1, 2, 3, 4
|