procedure zapytanieSelect(zapytanie:string; IBQuery:TIBQuery);
//procedura wykonuje zapytanie SELECT - wyświetla wszystkie dane w tabeli
begin
IBQuery.Close; //zamykamy komponent Query - musimy to zrobić
IBQuery.SQL.Clear; //czyścimy treść starego zapytania
IBQuery.SQL.Add(zapytanie); //wpisujemy nowe zapytanie
IBQuery.Open; //wykonujemy zapytanie Open dla zapytania typu SELECT
end;
procedure zapytanieInsert(zapytanie:string;IBQuery:TIBQuery);
//procedura dodaje jeden wpis do bazy danych
begin
IBQuery.Close; //zamykamy komponent Query - musimy to zrobić
IBQuery.SQL.Clear; //czyścimy treść starego zapytania
IBQuery.SQL.Add(zapytanie); //wpisujemy nowe zapytanie
IBQuery.ExecSQL; //wykonujemy zapytanie ExecSQL dla zapytań typu INSERT, UPDATE, DELETE
end;
główny kod:
//ZAPISANIE DANYCH PLIK.TXT
IBDataBase1.Connected:=False;
IBDatabase1.Connected:=True;
if not IBTransaction1.InTransaction then IBTransaction1.StartTransaction;
zapytanieInsert('INSERT INTO NEW_TABLE (NR,ILOSC,CENA,REKLAMA,TECHNOLOGIA) VALUES ('''+nrfirmy1.Text+''','''+Magazyn1.Text+''','''+Cena1.Text+''','''+Reklama1.Text+''','''+technologia1.text+''');',IBQuery1);
IBTransaction1.Commit;
zapytanieSelect('select * from NEW_TABLE',IBQuery1);
//KONIEC---PLIK.TXT
//-ZAPIS HISTORII
IBDataBase1.Connected:=False;
IBDatabase1.Connected:=True;
if not IBTransaction1.InTransaction then IBTransaction1.StartTransaction;
zapytanieInsert('INSERT INTO HISTORIA (RUNDA,FIRMA,MAGAZYN,CENA,REKLAMA,PIEN1,PIEN2,ZM,RATA,ODSETKI,ILOSC) VALUES ('''+NrRundy1.Text+''','''+NrFirmy1.Text+''','''+Magazyn1.Text+''','''+Cena1.Text+''','''+Reklama1.Text+''','''+Pieniadze1.Text+''','''+Pieniadze2.Text+''','''+Zmienne1.Text+''','''+Rata1.Text+''','''+Odsetki1.Text+''','''+Ilosc1.Text+'''); ',IBQuery1);
IBTransaction1.Commit;
zapytanieSelect('select * from HISTORIA',IBQuery1);
//-KONIEC HISTORII