Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

Active:=True; end; dsOlymp.DataSet:=Table1;

DBGrid1.DataSource:=dsOlymp;

Application.MessageBox('База успешно открыта.','Сообщение',mb_Ok+MB_ICONASTERISK); except

Application.MessageBox('Ошибка открытия базы. Возможно она не существует.','Ошибка',mb_Ok+MB_ICONHAND);

Exit; end; end; end;

procedure TForm1.BitBtn4Click(Sender: TObject); begin
Form7.ShowModal; end; end.

Модуль 2.
Код этого модуля отвечает за формирование баз данных, то есть за запись участника. unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons;

type
TForm2 = class(TForm)

Panel1: TPanel;

GroupBox1: TGroupBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

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



Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

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