Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.11.11;
Скачать: [xml.tar.bz2];

Вниз

кнопка не работает   Найти похожие ветки 

 
Kislyak   (2002-10-21 09:41) [0]

Хелп!!! Кнопка нажимается а данные не появлются может кто подскажет что не так делаю текст ниже:

procedure TForm19.btnMTClick(Sender: TObject);
begin

Table9.Edit;

Table9.FieldByName("VAL").AsString:= DbEdit29.Text;
Table9.FieldByName("SUMM").AsFloat:= StrToFloat(DbEdit7.Text);
Table9.FieldByName("PL").AsString:= DbEdit8.Text;
Table9.FieldByName("NAME").AsString:= DbEdit10.Text;
Table9.FieldByName("RPL").AsString:= DbEdit18.Text;
Table9.FieldByName("CH").AsString:= DbEdit25.Text;
Table9.FieldByName("MBK").AsString:=DbEdit26.Text;
Table9.FieldByName("IPL").AsString:= DbEdit16.Text;
Table9.FieldByName("SPL").AsString:= DbEdit17.Text;
Table9.FieldByName("MPL").AsString:= DbEdit9.Text;
Table9.FieldByName("MPO").AsString:= DbEdit13.Text;
Table9.FieldByName("SPO").AsString:= DbEdit12.Text;
Table9.FieldByName("NPO").AsString:= DbEdit14.Text;
Table9.FieldByName("RPO").AsString:= DbEdit21.Text;
Table9.FieldByName("IPO").AsString:= DbEdit19.Text;
Table9.FieldByName("SPO").AsString:= DbEdit20.Text;
Table9.FieldByName("NUM").AsFloat:= StrToFloat(DbEdit3.Text);
Table9.FieldByName("DATE").AsDateTime:= Now;
Table9.FieldByName("VO").AsString:= DbEdit30.Text;
Table9.FieldByName("BCS").AsString:= DbEdit23.Text;;
Table9.FieldByName("KP").AsFloat:= StrToFloat(DbEdit22.Text);
Table9.FieldByName("ASN").AsString:= DbMemo1.Text;
Table9.Post;
Table9.Refresh;

end;


 
ЮЮ   (2002-10-21 11:03) [1]

А где они должны появиться. Ты используешь DB-компоненты, которые ч/з DataSource связаны с набором данных. Надеюсь, это и есть Table9 :-). При корректировке в любом из этих полей НД сам переведётся в состояние dsEdit. Присваивать тоже ничнго не надо. Остается сделать

procedure TForm19.btnMTClick(Sender: TObject);
begin
Table9.Post;
end;


 
Crok   (2002-10-22 07:51) [2]

ты наверное собрал данные из разных таблиц
Вместо Table9.Edit; Поставь Table9.Append;



 
Nikolay M.   (2002-10-22 11:26) [3]


> Table9.Refresh;


Table9.Active := False;
Table9.Active := True;
?



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.11.11;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.009 c
3-33863
Kislyak
2002-10-21 09:41
2002.11.11
кнопка не работает


1-34021
[NEW]Splinter
2002-11-02 19:57
2002.11.11
Помогите с <B>TFileStream</B>...


1-33978
НгкфТШялш
2002-11-01 15:10
2002.11.11
Как перевести шестнадцатиричное в строку?


14-34244
Bis
2002-10-23 13:36
2002.11.11
А не сделать ли из интересных глюков задачки ?


1-34072
Davy
2002-10-30 09:34
2002.11.11
Сообщение о владельце прог-м. продуктом





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский