Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

var
Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit7;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);//Процедура обработки клика кнопки "Новая форма" begin form2.ShowModal; //показ формы Form2. Форма открывается в режиме при котором другие формы не доступны end;

procedure TForm1.Button2Click(Sender: TObject);//Процедура обработки клика кнопки "Просмотр анкет" begin
Form3.showmodal;//показ формы Form3. Форма открывается в режиме при котором другие формы не доступны end;

procedure TForm1.Button4Click(Sender: TObject);//Процедура обработки клика кнопки "Выход" begin
Close;//Закрытие формы Form1, что означает выход из программы end;

procedure TForm1.Button3Click(Sender: TObject);//Процедура обработки клика кнопки "Работа с архивом" begin form4.ShowModal;//показ формы Form4. Форма открывается в режиме при котором другие формы не доступны end;

procedure TForm1.Button5Click(Sender: TObject);//Процедура обработки клика кнопки "Просмотр архива" begin form5.Table1.Open; //откритие таблицы Table1 находящейся на форме FORM5 form5.ShowModal; //показ формы Form5. Форма открывается в режиме при котором другие формы не доступны end;

procedure TForm1.Button6Click(Sender: TObject); begin form7.ShowModal;//показ формы Form7. Форма открывается в режиме при котором другие формы не доступны end;

end.

[pic]

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, DBCtrlsEh, Mask, DBCtrls, DB, DBTables, StdCtrls, Buttons;

type
TForm2 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

Table1: TTable;

DataSource1: TDataSource;

Рекомендуем скачать другие рефераты по теме: стандарты реферата, налогообложение реферат как правильно реферат.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки