База данных Бюро знакомств
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: оформление доклада, компьютер реферат
| Добавил(а) на сайт: Avvakum.
Предыдущая страница реферата | 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 | Следующая страница реферата