Witam chciałem zrealizować dodawanie pustych rekordów do wyświetlanej tabeli poprzez kliknięcie przycisku
Udało mi się to zrealizować tak
begin
if Form1.SQLDataSet1.Active then Form1.SQLDataSet1.close; // jesli SQLDataSet1 wlaczony to wylacz // uaktualnianie DBGrida
if Form1.ClientDataSet1.Active then Form1.ClientDataSet1.Close; // jesli ClientDataSet1 wlaczony to wylacz
Form1.SQLQuery1.Close; // otwurz SQLQuwery1
Form1.SQLQuery1.SQL.Clear; // wyczyść zaytanie SQL
zd:='insert into '+Form1.sComboBox1.Text+' (';
zd:=zd+sCombobox1.Items[0];
for q:=1 to SCombobox1.Items.Count-1 do
begin
zd:=zd+','+sCombobox1.Items[q];
end;
zd:=zd+') values (';
zd:=zd+#39+''+#39;
for q:=1 to sCombobox1.Items.Count-1 do begin
zd:=zd+','+#39+''+#39;
end;
zd:=zd+');';
Form1.SQLQuery1.SQL.Add(zd);
Form1.SQLQuery1.ExecSQL; // wyknaj polecenie // zmodyfikuj bazę
Form1.SQLDataSet1.Active := true; // wlacz SQLDataSet1 // uaktualnianie DBGrida
Form1.ClientDataSet1.Active := true; // wlacz ClientDataSet1
dopasuj_komurki2; // dopasuj komórki do długości danych
sButton3.Enabled := false; // zabij sButton3 "dodaj"
sButton4.Enabled := true; // uaktywnij sbutton4 "usuń"
end;
W tabeli zawierającej Imię , Nazwisko, Telefon wszystko jest w porządku procedura dodaje puste rekordy
Ale kiedy mam tabelę złożoną z kolumn Imię, Nazwisko, Pensja, Staz w kolumnach
Pensja i Staz otrzymuję po zerze
Nie wiem co może być tego przyczyną :-/