перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
N1Click(Sender: TObject);
begin
Table1
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.
Приложение Б
Руководство программиста
Для того чтобы установить базу данных по разработке автоматизированной системы учета по подключению Интернет сети на предприятии «Белтелеком», необходимо выполнить следующее:
создать папку BASE и скопировать в нее базу данных;
открыть BDE Administrator и создать псевдоним (STANDARD)
(Object >New>OK);
Указать путь к базе данных;
Выбрать Object>Apply>Yes;
Переименовать псевдоним Standard на PROBA;
Установить Project.exe;
Создать ярлык на рабочем столе.
Приложение В
Руководство пользователя
Данная разработанная программа находится на диске E:\ в папке Танюша – задача – Project.
скачать бесплатно Разработка информационной модели
Содержание дипломной работы
1 Общие сведения
Объектом автоматизации является учет пользователей, подключенных в сеть, а также учет их пребывания в сети Интернет
1 Разработка информационной модели
На этапе разработки информационной модели необходимо определить основные сущности и связи между ними, определить обязательность связи
На этом этапе проверка осуществлялась путём ввода новых данных в базу данных
где ЧД1 – доход, включающий чистую прибыль и амортизацию после использования новшества;
ЧД0 – доход, включающий чистую прибыль и амортизацию до использования новшества
Квартирная машина наносит удар сначала по центральной нервной системе, потом по гормональной системе
Кроме того были расширены некоторые знания из данной предметной области и закреплены знания объектно-ориентированного языка программирования Delphi7
– СПб
Append;
if form5
show;
end;
procedure TForm1
DBEdit1
DBEdit1
N1Click(Sender: TObject);
begin
Table1
Теперь в таблицу «Паспортные данные» будут внесены наши введенные данные
Для того чтобы отфильтровать данные необходимо выбрать нужный пункт, по которому будет происходить фильтрация, ввести данные и нажать на кнопку «Фильтрация» (Рисунок 14)
