if form4.DBEdit1.text=''then table1.Cancel
else
table1.Post; end
table1.Cancel;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
table1.edit;
if form14.showmodal=mrOk then
if form14.DBEdit1.text='' then Table1.Cancel
procedure TForm3.Button3Click(Sender: TObject);
form1.show;
form3.Close;
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 }
var
Form9: TForm9;
implementation
uses Unit13, Unit15, Unit1;
{$R *.dfm}
procedure TForm9.Button1Click(Sender: TObject);
if form13.showmodal=mrOk then
if form13.DBEdit1.text='' then Table1.Cancel
procedure TForm9.Button2Click(Sender: TObject);
Var
i:integer;
table1.Append;
if form15.showmodal=mrOk then
table1.FieldByName('FIO').AsString:=form15.DBEdit1.text;
if form15.DBEdit1.text=''then table1.Cancel
procedure TForm9.Button3Click(Sender: TObject);
form9.Close;
unit Unit11;
Dialogs, StdCtrls, ExtCtrls, DB, DBTables, Grids, DBGrids, Menus, DBCtrls;
TForm11 = class(TForm)
RadioGroup1: TRadioGroup;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
MainMenu1: TMainMenu;
N1: TMenuItem;
DBNavigator1: TDBNavigator;
procedure N1Click(Sender: TObject);
Public
Form11: TForm11;
uses Unit4, Unit1;
procedure TForm11.Button1Click(Sender: TObject);
case RadioGroup1.ItemIndex of
4:begin
Form11.Table1.Filtered:=false;
Edit2.Text:='';Edit3.Text:='';
Edit1.Text:='';
1:begin
if edit2.Text='' then
ShowMessage ('введите адрес')
Form11.Table1.Filter:='Address'+'='+AnsiQuotedStr(edit2.Text,'''');
Form11.Table1.Filtered:=true;
2: begin
if edit3.Text='' then
ShowMessage ('введите номер телефона')
Form11.Table1.Filter:='Telefon'+'='+AnsiQuotedStr(edit3.Text,'''');
3: begin
0:begin
if edit1.Text='' then
ShowMessage ('введите ФИО')
Form11.Table1.Filter:='FIO'+'='+AnsiQuotedStr(edit1.Text,'''');
procedure TForm11.N1Click(Sender: TObject);
Table1.Filtered:=False;
procedure TForm11.Button2Click(Sender: TObject);
form11.Close;
unit Unit12;
Dialogs, StdCtrls, ExtCtrls, DB, DBTables, Grids, DBGrids, DBCtrls;
TForm12 = class(TForm)
Label2: TLabel;
Form12: TForm12;
uses Unit1;
procedure TForm12.Button2Click(Sender: TObject);
Pole : ShortString;
Case RadioGroup1.ItemIndex of
0:Pole:='FIO';
1:Pole:='God rozhdenia' ;
2:Pole:='Address' ;
3:Pole:='Telefon' ;
If not (Table1.Locate(Pole, Edit1.Text,[loCaseInsensitive, loPartialKey])) then
messagedlg ('Нет таких данных!'+#13 +'',mtinformation,[mbok],0);
procedure TForm12.Button1Click(Sender: TObject);
procedure TForm12.Button3Click(Sender: TObject);
form12.Close;
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, 5