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

Application.Terminate; end; end;

procedure TForm1.BitBtn1Click(Sender: TObject); begin
Form2.ShowModal; end;

procedure TForm1.BitBtn2Click(Sender: TObject); begin
Form3.ShowModal; end;

procedure TForm1.N7Click(Sender: TObject); begin
Form4.ShowModal; end;

procedure TForm1.N10Click(Sender: TObject); begin try if Application.MessageBox('Хотите сохранить текущий вид таблицы?','Подтвердите',mb_YesNo+mb_IconAsterisk)=idNo then Exit else begin

Config:=TIniFile.Create(GetCurrentDir+'Config.ini'); with Config do begin

WriteString('GRID_CONFIG','FIO',IntToStr(DBGrid1.Columns[0].Width));

WriteString('GRID_CONFIG','MARK1',IntToStr(DBGrid1.Columns[1].Width));

WriteString('GRID_CONFIG','MARK2',IntToStr(DBGrid1.Columns[2].Width));

WriteString('GRID_CONFIG','MARK3',IntToStr(DBGrid1.Columns[3].Width));

WriteString('GRID_CONFIG','MARK4',IntToStr(DBGrid1.Columns[4].Width));

WriteString('GRID_CONFIG','MARK5',IntToStr(DBGrid1.Columns[5].Width));

WriteString('GRID_CONFIG','MARK6',IntToStr(DBGrid1.Columns[6].Width));

WriteString('GRID_CONFIG','SUMMARK',IntToStr(DBGrid1.Columns[7].Width));

WriteString('GRID_CONFIG','SCHOOL',IntToStr(DBGrid1.Columns[8].Width));

UpdateFile; end;

Config.Free;

Application.MessageBox('Настройки успешно сохранены!','Сообщение',mb_Ok+mb_IconAsterisk); end; except

Application.MessageBox('Ошибка сохранения настроек!','Ошибка',mb_Ok+mb_IconHand);
Exit; end; end;

procedure TForm1.BitBtn3Click(Sender: TObject); begin
Form5.ShowModal; end;

procedure TForm1.N3Click(Sender: TObject); var i:integer; begin
OpenDialog1.InitialDir:=GetCurrentDir+'Bases'; if OpenDialog1.Execute then begin try with Table1 do begin

Active := False;

DatabaseName := 'Olymp';

TableType := ttParadox;

TableName := ExtractFileName(OpenDialog1.FileName);

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





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