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

GroupBox3: TGroupBox;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn; dbOlymp: TDatabase; dsOlymp: TDataSource;

Table1: TTable;

OpenDialog1: TOpenDialog;

Label1: TLabel; procedure N5Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure N16Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var
Form1: TForm1;
Config:TIniFile;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;

{$R *.dfm}

procedure TForm1.N5Click(Sender: TObject); begin if Application.MessageBox('Закончить работу?','Выход',mb_YesNo+mb_IconAsterisk)=idYes then Application.Terminate else Exit; end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if Application.MessageBox('Закончить работу?','Выход',mb_YesNo+mb_IconAsterisk)=idYes then Action:=caFree else Action:=caNone; end;

procedure TForm1.N16Click(Sender: TObject); begin

ShellAbout(Form1.Handle,'FoxSoft Olymps v1.0 (beta)','Programm by
Chernetckiy Kirill aka Fox',Application.Icon.Handle); end;

procedure TForm1.N2Click(Sender: TObject); begin
Form6.ShowModal; end;

procedure TForm1.FormCreate(Sender: TObject); begin try with dbOlymp do begin

Connected:=False;

Params.Clear;

Params.Add('PATH='+GetCurrentDir+'Bases');

Params.Add('DEFAULT DRIVER=PARADOX');

Params.Add('ENABLE BCD=FALSE');

Connected:=True; end; except

Application.MessageBox('Ошибка инициализации баз данных. Возможно не установлен BDE.','Ошибка',mb_Ok+mb_IconHand);

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





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