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

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

Append; if form5

NET. – M.: OOO “ Бином-Пресс”, 2006. – 1152 с.

11 Методические рекомендации для учащихся по выполнению дипломного проекта: МГЭПТК, 2008. – 15 с.

12 ГОСТ 2.105-95 Единая система конструкторской документации «ОБЩИЕ ТРЕБОВАНИЯ К ТЕКСТОВЫМ ДОКУМЕНТАМ»

13 ГОСТ 19.401-2000 ЕСПД ТЕКСТ ПРОГРАММЫ

14 ГОСТ 19.402-2000 ЕСПД ОПИСАНИЕ ПРОГРАММЫ

15 ГОСТ 19.701-90 ЕСПД СХЕМЫ АЛГОРИТМОВ, ПРОГРАММ, ДАННЫХ И СИСТЕМ

Приложение А

Код программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, Menus;

type

TForm1 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

DBNavigator1: TDBNavigator;

Label1: TLabel;

Button5: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

Button6: TButton;

Button7: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit5, Unit6, Unit9, Unit10, Unit11, Unit12;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm1.Button3Click(Sender: TObject);

Var i:integer;

Begin

table1.Append;

if form5.showmodal=mrOk then

begin

table1.FieldByName('FIO').AsString:=form5.DBEdit1.text;

if ((Form5.DBEdit1.Text='')or(Form5.DBEdit2.Text='')or(Form5.DBEdit3.Text='')or (Form5.DBEdit4.Text='')) then begin

messagedlg ('Поля не заполнены!'+13 +'Введите пожалуйста данные!',mtinformation,[mbok],0);

Table1.Cancel;

end

else

table1.Post;

end

else

Table1.Cancel;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

table1.edit;

if form6.showmodal=mrOk then

begin

if ((Form6.DBEdit1.Text='')or(Form6.DBEdit2.Text='')or(Form6.

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

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

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