Firebirdのダウンロードと |
Firebirdのダウンロードの仕方 |
Firebirdのインストールの仕方 |
いよいよLazarusでプログラミング |
Lazarusで実際のプログラミングへ |
部品名 | コード |
Button1[追加] | procedure TForm1.Button1Click(Sender: TObject); begin with sqltransaction1 do begin sqlquery1.active := false; sqlquery1.SQL.Clear; try sqlquery1.SQL.Add('insert into country '); sqlquery1.SQL.Add('(country,currency) '); sqlquery1.SQL.Add('values(''' + edit1.Text + ''',''' + edit2.Text + ''')'); sqlquery1.execsql; commit; except rollback; end; sqlquery1.SQL.text := 'select * from COUNTRY'; sqlquery1.Active:= true; sqlquery1.last; end; end; |
Button1[削除] | procedure TForm1.Button2Click(Sender: TObject); begin with sqltransaction1 do begin try sqlquery1.Delete; sqlquery1.ApplyUpdates(1); commit; except rollback; end; sqlquery1.SQL.text := 'select * from COUNTRY'; sqlquery1.Active:= true; sqlquery1.Refresh; end; end; |
Button1[終わり] | procedure TForm1.Button3Click(Sender: TObject); begin close; end; |