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