Aplikasi Database dengan Delphi FMX

Setelah kita paham bagaimana membuat dan meubungkan Database SQLite dengan aplikasi sekarang kita mengentri dan mengelola datanya. Pertama buat dahulu aplkasi sederhana dengan meempatkan FDPhysSQLiteDriverLink, FDGUIxWaitCursor, FDConnction, FDQuery dan beberapa komponen ke Form diantaranya 3 label, 1 Edit, 1 DateEdit, 1 ComboEdit, 1 ComboBox dan 6 Button, dengan properti masing-masing diatur sebagai berikut.caranya baca disini

1. ComboEdit1 > TextSettings > Font > Size => 16 Position > X => 8 Position > Y => 8 Size > Height => 27 Size > Width => 150 ItemHeight => 20 2. Label1 > TextSettings > Font > Size => 16 AutoSize => True Position > X => 8 Position > Y => 47 Text => Nama 3. Label2 > TextSettings > Font > Size => 16 Position > X => 8 Position > Y => 86 Size > Height => 22 Size > Width => 104 Text => Tangal Lair 4. Label3 > TextSettings > Font > Size => 16 AutoSize => True Position > X => 8 Position > Y => 125 Text => Gender 5. Edit1 > TextSettings > Font > Size => 16 Position > X => 120 Position > Y => 44 Size > Height => 27 Size > Width => 250 6. DateEdit1 > TextSettings > Font > Size => 16 Position > X => 120 Position > Y => 83 Size > Height => 27 Size > Width => 100 7. ComboBox1 > Position > X => 120 Position > Y => 122 Size > Height => 27 Size > Width => 150 ItemHeight => 20 8. Button1 > TextSettings > Font > Size => 16 Position > X => 192 Position > Y => 8 Size > Height => 30 Size > Width => 80 Text => Get 9. Button2 > TextSettings > Font > Size => 16 Position > X => 288 Position > Y => 8 Size > Height => 30 Size > Width => 80 Text => View 10. Button3 > TextSettings > Font > Size => 16 Position > X => 8 Position > Y => 170 Size > Height => 30 Size > Width => 80 Text => Delete Enabled => False 11. Button4 > TextSettings > Font > Size => 16 Position > X => 106 Position > Y => 170 Size > Height => 30 Size > Width => 80 Text => Update Enabled => False 12. Button5 > TextSettings > Font > Size => 16 Position > X => 204 Position > Y => 170 Size > Height => 30 Size > Width => 80 Text => Cancel 13. Button6 > TextSettings > Font > Size => 16 Position > X => 300 Position > Y => 170 Size > Height => 30 Size > Width => 80 Text => Save

Pada ComboBox1 untuk menambahkan Items (pilihan) click tanda elip kemudian pada form yang tampil ketikan pilhannya dan disetiap satu pilihan untuk turun kebawah tekan enter. contoh laki-laki (enter) Perempuan. Setelah selesai click Ok.

Buat procedure Button1Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject); var i : Integer ; begin ComboEdit1.Items.Clear ; FDQuery1.Open('SELECT T_ID FROM Table1') ; FDQuery1.First ; for i := 1 to FDQuery1.RecordCount do begin ComboEdit1.Items.Add(FDQuery1.FieldByName('T_ID').AsString) ; FDQuery1.Next ; end; end;

Buat procedure Button2Click(Sender: TObject);

procedure TForm1.Button2Click(Sender: TObject); begin FDQuery1.Open('SELECT * FROM Table1 WHERE T_ID='+IntToStr(StrToIntDef(ComboEdit1.Text, 0))) ; if FDQuery1.RecordCount < 1 then Exit ; Edit1.Text := FDQuery1.FieldByName('T_Nama').AsString ; DateEdit1.Date := StrToDate(FDQuery1.FieldByName('T_TglLahir').AsString) ; ComboBox1.ItemIndex := FDQuery1.FieldByName('T_Gender').AsInteger ; Button3.Enabled := True ; Button4.Enabled := True ; end;

Buat procedure Button3Click(Sender: TObject);

procedure TForm1.Button3Click(Sender: TObject); begin FDQuery1.Open('SELECT * FROM Table1 WHERE T_ID='+IntToStr(StrToIntDef(ComboEdit1.Text, 0))) ; FDQuery1.Delete ; end;

Buat procedure Button4Click(Sender: TObject);

procedure TForm1.Button4Click(Sender: TObject); begin FDQuery1.Open('SELECT * FROM Table1 WHERE T_ID='+IntToStr(StrToIntDef(ComboEdit1.Text, 0))) ; FDQuery1.Edit ; FDQuery1.FieldByName('T_Nama').Value := Edit1.Text ; FDQuery1.FieldByName('T_TglLahir').Value := DateToStr(DateEdit1.Date) ; FDQuery1.FieldByName('T_Gender').Value := Combobox1.ItemIndex ; FDQuery1.Post ; ShowMessage('Data sudah di update') ; Button5Click(Button5) ; end;

Buat procedure Button5Click(Sender: TObject);

procedure TForm1.Button5Click(Sender: TObject); begin ComboEdit1.Text :='' ; Edit1.Text :='' ; DateEdit1.Date := Date ; ComboBox1.ItemIndex := -1 ; Button3.Enabled := False ; Button4.Enabled := False ; end;

Buat procedure Button6Click(Sender: TObject);

procedure TForm1.Button6Click(Sender: TObject); begin FDQuery1.Open('SELECT * FROM Table1 WHERE T_ID='+IntToStr(StrToIntDef(ComboEdit1.Text, 0))) ; FDQuery1.Append ; FDQuery1.FieldByName('T_Nama').Value := Edit1.Text ; FDQuery1.FieldByName('T_TglLahir').Value := DateToStr(DateEdit1.Date) ; FDQuery1.FieldByName('T_Gender').Value := Combobox1.ItemIndex ; FDQuery1.Post ; ShowMessage('Data sudah di ditmbahkan') ; Button5Click(Button5) ; end;

Buat procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject); begin with FDConnection1 do begin Loginprompt := False ; Drivername := 'SQLite' ; FDConnection1.Params.Values['Database'] := 'TestDBSQLite.s3db' ; Connected := True ; if Connected then ExecSQL('CREATE TABLE IF NOT EXISTS Table1 (T_ID Integer PRIMARY KEY AUTOINCREMENT, T_Nama VarChar(75), T_TglLahir VarChar(10), T_Gender Integer)') ; end; FDQuery1.Connection := FDConnection1 ; Button5Click(Button5) ; end;

DateToStr => untk merubah sistem tanggal menjadi Text
StrToDate => untk merubah Text menjadi sistem tanggal
IntToStr => untk merubah sistem angka menjadi Text
StrToInt => untk merubah Text menjadi Angka. akan terjadi kesalahan text yang akan dirubah ada satu karakter saja bukan angka atau tidak ada karakter yang dirubah.
StrToIntDef => merubah text menjadi angka dan jika terjadi kesalahan maka hsilnya adalah angka default yang ditetapkan.

Pada kesempatan selanjutnya kita akan lihat bagaimana cara meampilkan data dari database pada tampilan table disini.

Semoga bermanfaat,