событие On Select компоненты TComboBox [D7, Paradox]
Antello © (2006-12-07 08:17:00)
Помогите, пожалуйста, я новичок по delphi. У меня в программе
возник один глюк.
В событие On Select компоненты ComboBox1, т.е. я выбираю
необходимое значение. А это значение при выборе заносится в
таблицу. Все тут классно работает, т.е. он заносится и сохраняется
в БД, когда завершаем программу, как положено. Но, при перегрузке
компьютера только что измененное значение слетает, и показывает
значение, которого мы указали до изменения этого же значение. Он
как бы должен сохраняться, хоть и произошла неожиданная перегрузка
компьютера.
В чем тут может быть проблема?
procedure TForm4.TimeCorrComboBoxSelect(Sender: TObject);
begin
with DataModule1.Settings_Table do
begin
if( not Active ) then
Open;
Edit;
FieldByName('TimeCorrection').AsInteger:=
TimeCorrComboBox.ItemIndex;
Post;
end;
end;
//форма показывает значение, которого я указала в Combobox’e
procedure TForm4.FormShow(Sender: TObject);
begin
if( not DataModule1.Settings_Table.Active ) then
DataModule1.Settings_Table.Open;
TimeCorrComboBox.ItemIndex:=
DataModule1.Settings_Table.FieldByName('TimeCorrection').AsInteger;
GPS_CheckBox.Checked:=
DataModule1.Settings_Table.FieldByName('GPS_Is_Active').AsBoolean;
end;
stone (2006-12-08 10:37:00) [1]
После Post;
FlushBuffers;
Наверх 
ЧАТ |
Орешник |
|
