перейти к полному списку дипломных проектов

Ссылка на скачивания файла в формате .doc находится в конце странички

DBEdit1

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.

скачать бесплатно Разработка информационной модели

Содержание дипломной работы

1 Общие сведения Объектом автоматизации является учет пользователей, подключенных в сеть, а также учет их пребывания в сети Интернет
1 Разработка информационной модели На этапе разработки информационной модели необходимо определить основные сущности и связи между ними, определить обязательность связи
На этом этапе проверка осуществлялась путём ввода новых данных в базу данных
где ЧД1 – доход, включающий чистую прибыль и амортизацию после использования новшества; ЧД0 – доход, включающий чистую прибыль и амортизацию до использования новшества
Квартирная машина наносит удар сначала по центральной нервной системе, потом по гормональной системе
Кроме того были расширены некоторые знания из данной предметной области и закреплены знания объектно-ориентированного языка программирования Delphi7
– СПб
Append; if form5
show; end; procedure TForm1
DBEdit1
DBEdit1
N1Click(Sender: TObject); begin Table1
Теперь в таблицу «Паспортные данные» будут внесены наши введенные данные
Для того чтобы отфильтровать данные необходимо выбрать нужный пункт, по которому будет происходить фильтрация, ввести данные и нажать на кнопку «Фильтрация» (Рисунок 14)