Tabungan Siswa

Aplikasi Tabungan Siswa berbasis windows applcation, android applcation dan web aplikasi, yang dibuat dalam 4 versi dengan sistem kerja yang sama yaitu :

1. Windows aplikasi database

   Aplikasi dan database berada pada satu perangkat. dan aplikasi hanya dapat mengakses database yang berda satu perangkat dengan aplikasi.download

2. Android Aplikasi database

   Pada prinsipnya sama dengan Windows Aplikasi Database.download

3. Datasnap Srver

   Aplication Client dan database dapat berada pada satu perangkat yang sama atau perangkat yang berbeda. Sebagai penghubung application client dengan database digunakan satu applcation server yang berada satu perankat dengan database, appliation sever berfungsi hanya sebagai penghubung sedangkan pengelolaan informasi data berada pada applicaton client.
   pada contoh download disini dalam bendel installer terdapat 3 application :

   • Server Application (Windows)
   • Client Application (Windows)
   • Apk Client Application (Android : Apk installer Android)

4. Datasnap Rest Application

   Sama dengan Datasnap Server hanya saja perbedaannya Application Client berfungsi sebagai Penerima dan perberi informasi data sedangkan pengelolaan informasi data berada pada application sever.
   pada contoh download disini dalam bendel installer terdapat 4 application :

   • Server Application (Windows)
   • Client Application (Windows)
   • Apk Client Application (Android : Apk installer Android)
   • Web Client Application (Browser Internet)

Bagi yang ingin mencoba silahkan langsung download tidak perlu registrasi dan juga tidak berbayar. Untuk login Gunakan User ID Admin dengan Pasword Password, selanjut pasword dapat diganti sesuai keinginan serta dapat membuat user login sejumlah kebutuhan dan user login dibangun bertingkat dan user login utama yakni Admin memiliki level tertinggi yang dapat merubah semua user login atau mehapusnya. sedangkan user login lain yang dibuat hanya dapat melakukan hal tersebut pada user dibawahnya tidak dapat pada user yang selevel.

Semoga bermanfaat,

Delphi FireDac Tdataset Indexes, IndexDefs, IndexFileDefs

Pengurutan data (Index) yang akan dibahas ada tiga cara yaitu :

• 👉 Indexes
• 👉 IndexDefs
• 👉 IndexFieldNames

✍🏻 Indexes

Pada tutorial ini digunakan TFDMemTable sebagai dataset, yng secara prinsipnya sama dengan TFDQuery. Karena untuk Demo tidak menggunakan Database. kalau mengunakan FDQuery tentu harus menggunakan database sebagai sumber data.
Catatan :
Indexes tidak akan bejalan kalau Indexes.Active dan FDMemTable1.IndexesActive tidak diatur nilainya menjadi True, serta Indexes.Name dan FDMemTable1.IndexName memiliki nilai yang berbeda atau tidak diisi alias kosong.
Untuk membuat pengurutan dari besar ke kecil atur nilai Indexes.Options menjadi [soDescending] dan untuk urut dari kecil kebesar Indexes.Options diatur menjadi []. Dan untuk menghilangkan (tidak menampilkan) Nilai Field yang sama atur Indexes.Distinct menjadi True. Isilah Nilai Indexes.Fields dengan nama field pada dataset yng kan diurutkan, dan jika ingin menfilter data isilah filter sesuai keinginan.

Pengaturan pada saat design Form : pada panel stuctur click TDataset (FDMemTable1) kemudian click kanan indexes llu click add item, selanjutnya isi data sesuai kebutuh di panal Object Inspectorat.
Penatuan saat aplikasi berjalan (Runtime) lihat contoh dibawah 👇 with FDMemTable1.Indexes.Add do begin Name := 'My Index'; Fields := 'Nilai'; Filter := 'Nilai > 0'; Options := [soDescending] ; Distinct := True ; Active := True end; FDMemTable1.IndexName := 'My Index'; FDMemTable1.IndexesActive := True ;

✍🏻 IndexDefs

Sama halya dengan Indexes namun yang diatur bukan FDMemTable1.Indexes namun FDMemTable1.IndexDefs, Indexes boleh memiliki nama yang sama dengn IndexDefs. Untuk mengatur peurutan Ascending atau Descending gunakan

• :A Untuk pengurutandari kecil kebesar (Ascending)
• :D Untuk pengurutandari besar kekecil (Descending)
• :N Untuk penurutan tidak sensitif (tidak membedakan huruf besar atau kecif)

dengan cara penulisan NamaFiledDataset + Titik dua + A/D/N, untuk Ascending juga dapat dikosongkan. untuk pengurun multi Field tambahkan titik koma ";" diantara field. Pengaturan saat design form Click FDMemTable1 pada object inspectorat bisa diisi langsung di IndexDefs namun untuk kehati-hatian click tanda elips kemudian pada daftar pilih dan pindahkan field yang akan diurutkan sesuai tingkat peurutan, kemudian click oke lalu :A/:D/:N sesuai ketentuan penulisan. Nama jangan lupa diisi karena Indexes dan IndexDefs pnentuan mana yang beralan beasarkan IndexName jadi bisa tadak jalan kalau salah.
Pengaturan saat aplikasi berjalan (Runtime) lihat contoh diawah 👇 with FDMemTable1.IndexDefs.AddIndexDef do begin Fields := 'Nama:N;Bulan:D;Gaji' ; Name := 'My Index2' ; end; FDMemTable1.IndexName := 'My Index2' ; FDMemTable1.IndexesActive := True ;

✍🏻 IndexFieldNames

FDMemTable1.IndexName dengan FDMemTable1.IndexFieldNames akan saling menghpus satu sama lainnya artinya ketika FDMemTable1.IndexFieldNames diisi maka otomatis FDMemTable1.IndexName akan kosong atau sebaliknya. Pengaturan IndexFieldNames sama dengan IndexDefs hanya saa pada IndexFieldNames tidak diperlukan pengaturan nama index. dan secara runtime bis dilihat dibawah 👇 FDMemTable1.IndexFieldNames := 'Nama:N;Bulan:D;Gaji' ; FDMemTable1.IndexesActive := True ;

Baca :

• TFDMemTable
• Aggregatea
• Calculate
• Grouping
• Filter

Download di sini

Semoga bermanfaat,

FDMemTable, Indexes/Sort, Aggregates, Calculate, Grouping dan Filter

Cara membuat field pasa tabel FDMemTble jika dilakukn saat mendesain aplikasi bisa dengan cara click kanan pada FDMemtable yang berada pada form desain. Kemudian pilih Fields Editor lalu pada form FDMemtable click knan lagi lalu pilih New Field atau tekan Ctrl + N. Pada Field Property isi Name, Type dan size sesuai kebutuhan, pda field Type pilih data lalu Click Ok.

Secara runtime atau pada saat aplikasi berjalan bisa menggunkan cara sperti dibawa : FDMemtable1.FieldDefs.Add(NamaField, TypeData, Size, Requeried); Contoh : FDMemtable1.FieldDefs.Add('ID', ftAutoInc, 0, True); FDMemtable1.FieldDefs.Add('Nama', ftString, 25, False); FDMemtable1.FieldDefs.Add('Gaji', ftInteger, 0, False);untuk typedta Integer (ftInteger) autonumber (ftAutoInc) nilai size diatur 0, sedangkan untuk typedata String (ftString) tidak boleh 0.
atau dapat juga dengan car dibawah : with FDMemTable1.FieldDefs do begin with AddFieldDef do begin Name := 'ID'; DataType := ftAutoInc; end; with AddFieldDef do begin Alignment := taLeftJustify ; DisplayLabel := 'Nama Karyawan' ; Name := 'Nama'; DataType := ftString; Size := 25; end; with AddFieldDef do begin Alignment := taRightJustify ; DisplayLabel := 'Umur Siswa' ; DisplayFormat := '#,##0.00' Name := 'Gaji'; DataType := ftInteger; end; end;Selain pengaturan standar seperti contoh diatas Tampilan Caption pada Title Grid (DisplayLabel), format tampilanangka (DisplayFormat), rata kiri, kanan atau tengah (Alignment) danlain sebgainya juga dapat diatur. kalau pengaturan saat design application bisa diatur di Object Inspectorat

Untuk menmbahkan (Append) mengedit (Update) atau menghapus (delete) record pada FDMemtable, FDMemtable harus dalam keadan Active atau Open. Untuk menambah record bisa dengn cara seperti dibawah : FDMemTable1.AppendRecord([1, 'John', 2500000]);atau dengan cara seperti ini : with FDMemTable1 do begin Append ; FieldByName('Nama').Value := 'Joko' ; FieldByName('Gaji').Value := '2500000' ; Post ; end;

Baca :

• Indexes Sort
• Aggregatea
• Calculate
• Grouping
• Filter

Semoga bermanfaat,

How To Change Default Font Firemonkey (FMX)

Bagaimana cara merubah ukuran Font pada Firemonkey (FMX) Multi Device Application ?

Secra default font size 12 dan font familly Segoe UI. kita dapat merubahnya dengan cara :

1. Langsung : TextSettings --> Font --> Size => 16
2. Seara runtime : Label1.Font.Size := 16 ; Label1.StyledSettings := Label1.StyledSettings - [TStyledSetting.Size] ;
   atau : Label1.Font.Size := 16 ; Label1.StyledSettings := [] ;

kedua cara ini harus dilakukan pada setiap komponen dan ada kendala pada contoh ComboBox tidak ada pengaturan textsettings. Nah bagaimana kendala ini dapat teratasi dan satu kali pengatuan berlaku untuk semua :

1. Melalui pengturn pada styled dan menggunakan stylebook untuk menampilkannya
2. yang kedua lihat function pada souce code dibawah ini

unit Unit8; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ListBox, FMX.Pickers, FMX.Controls.Presentation, FMX.StdCtrls, FMX.ScrollBox, FMX.Memo, FMX.Edit, FMX.Platform ; type TMyDefFontFMX = class(TInterfacedObject, IFMXSystemFontService) public function GetDefaultFontFamilyName: string; function GetDefaultFontSize: Single; end; TForm8 = class(TForm) ComboBox1: TComboBox; Memo1: TMemo; Edit1: TEdit; CornerButton1: TCornerButton; Edit2: TEdit; CornerButton2: TCornerButton; Edit3: TEdit; procedure FormCreate(Sender: TObject); procedure CornerButton1Click(Sender: TObject); procedure CornerButton2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; procedure InitFont; var Form8: TForm8; implementation {$R *.fmx} function TMyDefFontFMX.GetDefaultFontFamilyName: string; begin Result := 'Brush Script MT'; end; function TMyDefFontFMX.GetDefaultFontSize: Single; begin Result := 40; end; procedure InitFont; begin if TPlatformServices.Current.SupportsPlatformService(IFMXSystemFontService) then TPlatformServices.Current.RemovePlatformService(IFMXSystemFontService); TPlatformServices.Current.AddPlatformService(IFMXSystemFontService, TMyDefFontFMX.Create); end; procedure TForm8.FormCreate(Sender: TObject); begin Caption := 'Delphi FMX Default Font Size Change' ; InitFont; end; initialization InitFont; end.Dan hasilnya sepeti ini

Untuk Contoh Aplikasinya download disini

Semoga bermanfaat,

Navigator Datasource

Lanjutkn contoh database ini dengan menambahkan 1 Layout, 5 CornerButton, 1 Label, 1 Edit, 1 ComboBox, 1 Grid, LinkGridToDataSource. CornerButton, Label, Edit, ComboBox berda dibawah hirarki layout.
Caranya setelah mengatur layout1 pada panel tools plate pilh CornerButton lalu click layout1 yang berada di form1. Lakukan cara yang sama untuk semua komponen yang ditambahkan keculi Grid, lalu atur properti masing-masing komponent sebagai beikut:

Layout1 > Position > X => 408 Layout1 > Position > Y => 170 Layout1 > Size > Height => 30 Layout1 > Size > Width => 372 CornerButton1 > Position > X => 0 CornerButton1 > Position > Y => 0 CornerButton1 > Size > Height => 30 CornerButton1 > Size > Width => 40 CornerButton1 > Text => << CornerButton1 > TextSettings > Font > Size => 16 CornerButton1 > OnClick => BtnNavigatorClick CornerButton2 > Position > X => 40 CornerButton2 > Position > Y => 0 CornerButton2 > Size > Height => 30 CornerButton2 > Size > Width => 40 CornerButton2 > Text => < CornerButton2 > TextSettings > Font > Size => 16 CornerButton2 > OnClick => BtnNavigatorClick CornerButton3 > Position > X => 132 CornerButton3 > Position > Y => 0 CornerButton3 > Size > Height => 30 CornerButton3 > Size > Width => 40 CornerButton3 > Text => > CornerButton3 > TextSettings > Font > Size => 16 CornerButton3 > OnClick => BtnNavigatorClick CornerButton4 > Position > X => 172 CornerButton4 > Position > Y => 0 CornerButton4 > Size > Height => 30 CornerButton4 > Size > Width => 40 CornerButton4 > Text => >> CornerButton4 > TextSettings > Font > Size => 16 CornerButton4 > OnClick => BtnNavigatorClick CornerButton5 > Position > X => 332 CornerButton5 > Position > Y => 0 CornerButton5 > Size > Height => 30 CornerButton5 > Size > Width => 40 CornerButton5 > Text => R CornerButton5 > TextSettings > Font > Size => 16 CornerButton5 > OnClick => BtnNavigatorClick Label5 > Position > X => 80 Label5 > Position > Y => 0 Label5 > Size > Height => 30 Label5 > Size > Width => 52 Label5 > Text => 0 Label5 > TextSettings > Font > Size => 16 Edit3 > Position > X => 214 Edit3 > Position > Y => 0 Edit3 > Size > Height => 30 Edit3 > Size > Width => 56 Edit3 > Text => 10 Edit3 > TextSettings > Font > Size => 16 ComboBox4 > Position > X => 272 ComboBox4 > Position > Y => 0 ComboBox4 > Size > Height => 30 ComboBox4 > Size > Width => 60 Grid2 > Position > X => 408 Grid2 > Position > Y => 216 Grid2 > Size > Height => 193 Grid2 > Size > Width => 372 Grid2 > ReadOnly => True Grid2 > OnClick => Grid2Click

Buat procedure StausNavigator ;

procedure TForm1.StausNavigator ; begin CornerButton1.Enabled := FDQuery3.RecNo > 1 ; CornerButton2.Enabled := FDQuery3.RecNo > 1 ; CornerButton3.Enabled := FDQuery3.RecNo <> FDQuery3.RecordCount ; CornerButton4.Enabled := FDQuery3.RecNo <> FDQuery3.RecordCount ; Label5.Text := IntToStr(FDQuery3.RecNo) ; ComboBox4.Enabled := FDQuery3.Active ; end;

Buat procedure Grid2Click(Sender: TObject);

procedure TForm1.Grid2Click(Sender: TObject); begin StausNavigator ; end;

Buat procedure BtnNavigatorClick(Sender: TObject);

procedure TForm1.BtnNavigatorClick(Sender: TObject); const BtnName : Array[0..4] of string = ('CornerButton1', 'CornerButton2', 'CornerButton3', 'CornerButton4', 'CornerButton5') ; var OldPage, SumPage, RowNmr, I : Integer ; begin case IndexStr(TCornerButton(Sender).Name, BtnName) of 0 : FDQuery3.First ; 1 : FDQuery3.Prior ; 2 : FDQuery3.Next ; 3 : FDQuery3.Last ; 4 : Begin if ComboBox4.ItemIndex =-1 then OldPage := 1 else OldPage := StrToIntDef(ComboBox4.Items[ComboBox4.ItemIndex], 1) ; FDQuery3.Open('SELECT * FROM Table1') ; FDQuery3.FetchAgain ; FDQuery3.FetchAll ; RowNmr := StrToIntDef(Edit3.Text, 10) ; SumPage := FDQuery3.RecordCount DIV RowNmr ; if FDQuery3.RecordCount MOD RowNmr > 0 then SumPage := SumPage +1 ; ComboBox4.Items.Clear ; for I := 1 to SumPage do ComboBox4.Items.Add(IntToStr(I)) ; ComboBox4.ItemIndex := ComboBox4.Items.IndexOf(IntToStr(OldPage)) ; FDQuery3.Open('SELECT * FROM Table1 LIMIT '+IntToStr((OldPage-1)*RowNmr)+', '+IntToStr(RowNmr)) ; End; end; StausNavigator ; end;

Rubah procedure FormCreate(Sender: TObject); Sehingga menjadi sepeti dibawah ini

procedure TForm1.FormCreate(Sender: TObject); begin with FDConnection1 do begin Loginprompt := False ; Drivername := 'SQLite' ; FDConnection1.Params.Values['Database'] := 'TestDBSQLite.s3db' ; Connected := True ; end; FDQuery1.Connection := FDConnection1 ; BuatTable ; Button5Click(Button5) ; HubunganKmponenToDB ; StausNavigator ; CornerButton1.OnClick := BtnNavigatorClick ; CornerButton2.OnClick := BtnNavigatorClick ; CornerButton3.OnClick := BtnNavigatorClick ; CornerButton4.OnClick := BtnNavigatorClick ; CornerButton5.OnClick := BtnNavigatorClick ; end;

Rubah procedure HubunganKmponenToDB; Sehingga menjadi sepeti dibawah ini

procedure TForm1.HubunganKmponenToDB ; begin FDQuery3.Connection := FDConnection1 ; ComboBox3.Items := ComboBox1.Items ; BindSourceDB2 := TBindSourceDB.Create(Form1) ; BindSourceDB2.DataSet := FDQuery3 ; LinkPropertyToFieldText := TLinkPropertyToField.Create(Form1) ; with LinkPropertyToFieldText do begin DataSource := BindSourceDB2 ; Component := Label4 ; ComponentProperty := 'Text' ; FieldName := 'T_TglLahir' ; end; LinkControlToField1 := TLinkControlToField.Create(Form1) ; with LinkControlToField1 do begin DataSource := BindSourceDB2 ; Control := Edit2 ; FieldName := 'T_TglLahir' ; end; LinkFillControlToField1 := TLinkFillControlToField.Create(Form1) ; with LinkFillControlToField1 do begin DataSource := BindSourceDB2 ; Control := ComboEdit2 ; FieldName := 'T_Nama' ; FillDataSource := BindSourceDB2 ; FillDisplayFieldName := 'T_Nama' ; Track := False ; end; LinkPropertyToFieldIndex := TLinkPropertyToField.Create(Form1) ; with LinkPropertyToFieldIndex do begin LinkPropertyToFieldIndex. DataSource := BindSourceDB2 ; Component := ComboBox3 ; ComponentProperty := 'ItemIndex' ; FieldName := 'T_Gender' ; end; LinkListControlToField1 := TLinkListControlToField.Create(Form1) ; with LinkListControlToField1 do begin DataSource := BindSourceDB2 ; Control := ComboBox2 ; FieldName := 'T_ID' ; end; LinkGridToDataSourceBindSourceDB2 := TLinkGridToDataSource.Create(Form1) ; LinkGridToDataSourceBindSourceDB2.DataSource := BindSourceDB2 ; LinkGridToDataSourceBindSourceDB2.GridControl := Grid2 ; with LinkGridToDataSourceBindSourceDB2 do begin Columns.Clear ; Columns.Add ; Columns[0].Header := 'No' ; Columns[0].Width := 60 ; Columns[0].MemberName := 'T_ID' ; Columns.Add ; Columns[1].Header := 'Nama' ; Columns[1].Width := 200 ; Columns[1].MemberName := 'T_Nama' ; Columns.Add ; Columns[2].Header := 'Tgl Lahir' ; Columns[2].Width := 100 ; Columns[2].MemberName := 'T_TglLahir' ; Columns.Add ; Columns[3].Header := 'Gender' ; Columns[3].Width := 60 ; Columns[3].MemberName := 'T_Gender' ; end; end;

Tambahkan Uses system.StrUtils ; tepat dibawah implementation

procedure Grid2Click(Sender: TObject); procedure BtnNavigatorClick(Sender: TObject); private { Private declarations } public BindSourceDB1: TBindSourceDB; LinkGridToDataSourceBindSourceDB1: TLinkGridToDataSource; BindSourceDB2: TBindSourceDB; LinkPropertyToFieldText: TLinkPropertyToField; LinkPropertyToFieldIndex: TLinkPropertyToField; LinkControlToField1: TLinkControlToField; LinkFillControlToField1: TLinkFillControlToField; LinkListControlToField1: TLinkListControlToField; LinkGridToDataSourceBindSourceDB2: TLinkGridToDataSource; procedure BuatTable ; procedure HubunganKmponenToDB ; procedure StausNavigator ; end; var Form1: TForm1; implementation uses system.StrUtils ; {$R *.fmx}

Semoga bermanfaat,

LiveBindings Component To Datasource

Pada database yang sudah kia buat tambahkan 2 ComboBox, 1 ComboEdit, 1 Edit, 1 Label , 1 FDQuery dan atur properti sebagai berikut :

ComboBox2 > TextSettings > Font > Size => 16 ComboBox2 > Position > X => 408 ComboBox2 > Position > Y => 8 ComboBox2 > Size > Height => 27 ComboBox2 > Size > width => 105 ComboBox2 > ItemHeight => 20 ComboBox3 > TextSettings > Font > Size => 16 ComboBox3 > Position > X => 408 ComboBox3 > Position > Y => 122 ComboBox3 > Size > Height => 27 ComboBox3 > Size > width => 150 ComboBox3 > ItemHeight => 20 ComboEdit2 > TextSettings > Font > Size => 16 ComboEdit2 > Position > X => 408 ComboEdit2 > Position > Y => 44 ComboEdit2 > Size > Height => 27 ComboEdit2 > Size > width => 250 ComboEdit2 > ItemHeight => 20 Edit2 > TextSettings > Font > Size => 16 Edit2 > Position > X => 408 Edit2 > Position > Y => 83 Edit2 > Size > Height => 27 Edit2 > Size > width => 100 Label4 > TextSettings > Font > Size => 16 Label4 > Position > X => 516 Label4 > Position > Y => 86 Label4 > Size > Height => 22 Label4 > Size > width => 100 FDQuery3 > Connection => FDConnection1

Atur Relasi seperti terlihat pada gambar

Secara runtime tambahkan 1 BindSourceDB, 1 LinkPropertyToFieldText, 1 LinkControlToField, 1 LinkFillControlToField, 1 LinkListControlToField, 1 LinkPropertyToFieldIndex. kemudian buat procedure HubunganKmponenToDB; Serta tambahkan procedure ke procedure FormCreate.

public BindSourceDB1: TBindSourceDB; LinkGridToDataSourceBindSourceDB1: TLinkGridToDataSource; Procedure BuatTable ; BindSourceDB2: TBindSourceDB; LinkPropertyToFieldText: TLinkPropertyToField; LinkControlToField1: TLinkControlToField; LinkFillControlToField1: TLinkFillControlToField; LinkPropertyToFieldIndex1: TLinkPropertyToFieldIndex; LinkListControlToField1: TLinkListControlToField; Procedure HubunganKmponenToDB ; end; var Form1: TForm1; implementation {$R *.fmx} Procedure TForm1.HubunganKmponenToDB ; begin FDQuery3.Connection := FDConnection1 ; BindSourceDB2 := TBindSourceDB.Create(Form1) ; BindSourceDB2.DataSet := FDQuery3 ; { menghubungkan Label dengan Database / field dataase tidak dapat dirubah } LinkPropertyToFieldText := TLinkPropertyToField.Create(Form1) ; with LinkPropertyToFieldText do begin DataSource := BindSourceDB2 ; Component := Label4 ; ComponentProperty := 'Text' ; FieldName := 'T_TglLahir' ; end; { menghubungkan Edit dengan Database / field dataase dapat dirubah} LinkControlToField1 := TLinkControlToField.Create(Form1) ; with LinkControlToField1 do begin DataSource := BindSourceDB2 ; Control := Edit2 ; FieldName := 'T_TglLahir' ; end; LinkFillControlToField1 := TLinkFillControlToField.Create(Form1) ; with LinkFillControlToField1 do begin DataSource := BindSourceDB2 ; Control := ComboEdit2 ; FieldName := 'T_Nama' ; FillDataSource := BindSourceDB2 ; FillDisplayFieldName := 'T_Nama' ; Track := False ; end; LinkPropertyToFieldIndex1 := TLinkPropertyToFieldIndex.Create(Form1) ; with LinkPropertyToFieldIndex1 do begin DataSource := BindSourceDB2 ; Control := ComboBox3 ; ComponentProperty := 'ItemIndex' ; FieldName := 'T_Gender' ; end; LinkListControlToField1 := TLinkListControlToField.Create(Form1) ; with LinkListControlToField1 do begin DataSource := BindSourceDB2 ; Control := ComboBox2 ; FieldName := 'T_ID' ; end; end; procedure TForm1.FormCreate(Sender: TObject); begin with FDConnection1 do begin Loginprompt := False ; Drivername := 'SQLite' ; FDConnection1.Params.Values['Database'] := 'TestDBSQLite.s3db' ; Connected := True ; end; FDQuery1.Connection := FDConnection1 ; BuatTable ; Button5Click(Button5) ; HubunganKmponenToDB ; FDQuery3.Open('SELECT * FROM Table1') ; end;

Semoga bermanfaat,

TWebpImage Delphi VCL

Menampilkan gambar Webp pada Form VCL Delphi TWebpImage pada unit Vcl.WebpImage.pas serta merubah gambar Jpg, Bmp dan Png ke Webp atau sebaliknya (converter Webp).

Untuk melakukan semua itu selain unit yang ada kita butuh file Libwebp.dll tentu saja harus yng sesuai dengan bit versi aplikasi yang kita buat. contoh kasus saya membuat aplikasi dengan sistem windows 32 bit, dengan Delphi VCL XE8 pada windows 10 64 bit yang nantinya aplikasi yang saya buat dapat berjalan di Windows 32 bit atau 64 bit. Yang saya butuhkan adalah Libwebp.dll 32 bit.

Libwebp.dll ini dapat kita taruh didirectori system windows atau berada dalam satu folder dengan file exe aplikasi. Registrasi dll tidak begitu dibutuhkan. contoh aplikasi bisa download disini juga sudah terdapat Libwebp.dll, alias tinggal dijalankan saja.

selain libwebp untuk dalam membangun aplikasi kita butuh 3 unit yaitu :

1. libwebp.pas
2. Vcl.WebpImage.pas
3. WebpHelpers.pas

unit libwebp; {$ALIGN ON} {$MINENUMSIZE 4} interface const LIB_WEBP = 'libwebp.dll'; type WEBP_CSP_MODE = ( MODE_RGB = 0, MODE_RGBA = 1, MODE_BGR = 2, MODE_BGRA = 3, MODE_YUV = 4); TVP8StatusCode = ( VP8_STATUS_OK = 0, VP8_STATUS_OUT_OF_MEMORY, VP8_STATUS_INVALID_PARAM, VP8_STATUS_BITSTREAM_ERROR, VP8_STATUS_UNSUPPORTED_FEATURE, VP8_STATUS_SUSPENDED, VP8_STATUS_USER_ABORT, VP8_STATUS_NOT_ENOUGH_DATA ); TDecState = ( STATE_HEADER = 0, STATE_PARTS0 = 1, STATE_DATA = 2, STATE_DONE = 3, STATE_ERROR = 4); PWebPDecParams = ^TWebPDecParams; TWebPDecParams = record output: PByte; u, v: PByte; top_y, top_u, top_v: PByte; stride: Integer; u_stride: Integer; v_stride: Integer; mode: WEBP_CSP_MODE; last_y: Integer; output_size: Integer; output_u_size: Integer; output_v_size: Integer; external_buffer: Integer; end; PWebPIDecoder = ^TWebPIDecoder; TWebPIDecoder = record state_: TDecState; w_, h_: integer; params_: TWebPDecParams; dec_: Pointer; end; PVP8Io = ^VP8Io; VP8Io = record width, height: Integer; mb_y: Integer; mb_h: Integer; y, u, v: PByte; y_stride: Integer; uv_stride: Integer; opaque: Pointer; put: function(const io: PVP8Io): Integer; cdecl; setup: function(io: PVP8Io): Integer; cdecl; teardown: procedure(const io: PVP8Io); cdecl; fancy_upscaling: Integer; data_size: Cardinal; data: PByte; bypass_filtering: Integer; end; PVP8Decoder = ^VP8Decoder; VP8Decoder = record end; PWebPConfig = ^TWebPConfig; TWebPConfig = record quality: Single; target_size: Integer; target_PSNR: Single; method: Integer; segments: Integer; sns_strength: Integer; filter_strength: Integer; filter_sharpness: Integer; filter_type: Integer; autofilter: Integer; pass: Integer; show_compressed: Integer; preprocessing: Integer; partitions: Integer; end; TWebPPreset = ( WEBP_PRESET_DEFAULT = 0, WEBP_PRESET_PICTURE, WEBP_PRESET_PHOTO, WEBP_PRESET_DRAWING, WEBP_PRESET_ICON, WEBP_PRESET_TEXT ); PWebPPicture = ^TWebPPicture; PWebPAuxStats = ^TWebPAuxStats; TWebPAuxStats = record PSNR: array[0..3] of Single; coded_size: Integer; block_count: array[0..2] of Integer; header_bytes: array[0..1] of Integer; residual_bytes: array[0..2, 0..3] of Integer; segment_size: array[0..3] of Integer; segment_quant: array[0..3] of Integer; segment_level: array[0..3] of Integer; end; TWebPWriterFunction = function(const data: PByte; data_size: Cardinal; const picture: PWebPPicture): Integer; cdecl; TWebPPicture = record colorspace: Integer; width, height: Integer; y, u, v: PByte; y_stride, uv_stride: Integer; a: PByte; writer: TWebPWriterFunction ; custom_ptr: Pointer; extra_info_type: Integer; extra_info: PByte; stats: PWebPAuxStats; end; procedure WebPFree(p : pointer); cdecl; external LIB_WEBP; function WebPGetDecoderVersion: Integer; cdecl; external LIB_WEBP; function WebPGetInfo(const data: PByte; data_size: Cardinal; width, height: PInteger): Integer; cdecl; external LIB_WEBP; function WebPDecodeRGB(const data: PByte; data_size: Cardinal; width, height: PInteger): PByte; cdecl; external LIB_WEBP; function WebPDecodeRGBA(const data: PByte; data_size: Cardinal; width, height: PInteger): PByte; cdecl; external LIB_WEBP; function WebPDecodeBGR(const data: PByte; data_size: Cardinal; width, height: PInteger): PByte; cdecl; external LIB_WEBP; function WebPDecodeBGRA(const data: PByte; data_size: Cardinal; width, height: PInteger): PByte; cdecl; external LIB_WEBP; function WebPDecodeARGB(const data: PByte; data_size: Cardinal; width, height: PInteger): PByte; cdecl; external LIB_WEBP; function WebPDecodeYUV(const data: PByte; data_size: Cardinal; width, height: PInteger; var u, v: PByte; stride, uv_stride: PInteger): PByte; cdecl; external LIB_WEBP; function WebPDecodeRGBInto(const data: PByte; data_size: Cardinal; output_buffer: PByte; output_buffer_size, output_stride: Integer): PByte; cdecl; external LIB_WEBP; function WebPDecodeRGBAInto(const data: PByte; data_size: Cardinal; output_buffer: PByte; output_buffer_size, output_stride: Integer): PByte; cdecl; external LIB_WEBP; function WebPDecodeBGRInto(const data: PByte; data_size: Cardinal; output_buffer: PByte; output_buffer_size, output_stride: Integer): PByte; cdecl; external LIB_WEBP; function WebPDecodeBGRAInto(const data: PByte; data_size: Cardinal; output_buffer: PByte; output_buffer_size, output_stride: Integer): PByte; cdecl; external LIB_WEBP; function WebPDecodeYUVInto(const data: PByte; data_size: Cardinal; luma: PByte; luma_size, luma_stride: Integer; u: PByte; u_size, u_stride: Integer; v: PByte; v_size, v_stride: Integer): PByte; cdecl; external LIB_WEBP; function WebPINew(mode: WEBP_CSP_MODE): PWebPIDecoder; cdecl; external LIB_WEBP; function WebPINewRGB(mode: WEBP_CSP_MODE; output_buffer: PByte; output_buffer_size, output_stride: Integer): PWebPIDecoder; cdecl; external LIB_WEBP; function WebPINewYUV(luma: PByte; luma_size, luma_stride: Integer; u: PByte; u_size, u_stride: Integer; v: PByte; v_size, v_stride: Integer): PWebPIDecoder; cdecl; external LIB_WEBP; procedure WebPIDelete(const idec: PWebPIDecoder); cdecl; external LIB_WEBP; function WebPIAppend(const idec: PWebPIDecoder; const data: PByte; data_size: Cardinal): TVP8StatusCode; cdecl; external LIB_WEBP; function WebPIUpdate(const idec: PWebPIDecoder; const data: PByte; data_size: Cardinal): TVP8StatusCode; cdecl; external LIB_WEBP; function WebPIDecGetRGB(const idec: PWebPIDecoder; last_y, width, height, stride: PInteger): PByte; cdecl; external LIB_WEBP; function WebPIDecGetYUV(const idec: PWebPIDecoder; last_y: PInteger; var u, v: PByte; width, height, stride, uv_stride: PInteger): PByte; cdecl; external LIB_WEBP; function VP8New: PWebPIDecoder; cdecl; external LIB_WEBP; function VP8InitIo(const io: PVP8Io): Integer; function VP8GetHeaders(const dec: PVP8Decoder; const io: PVP8Io): Integer; cdecl; external LIB_WEBP; function VP8Decode(const dec: PVP8Decoder; const io: PVP8Io): Integer; cdecl; external LIB_WEBP; function VP8Status(const dec: PVP8Decoder): TVP8StatusCode; cdecl; external LIB_WEBP; function VP8StatusMessage(const dec: PVP8Decoder): PAnsiChar; cdecl; external LIB_WEBP; procedure VP8Clear(const dec: PVP8Decoder); cdecl; external LIB_WEBP; procedure VP8Delete(const dec: PVP8Decoder); cdecl; external LIB_WEBP; function WebPGetEncoderVersion: Integer; cdecl; external LIB_WEBP; function WebPEncodeRGB(const rgb: PByte; width, height, stride: Integer; quality_factor: single; var output: PByte): Cardinal; cdecl; external LIB_WEBP; function WebPEncodeBGR(const bgr: PByte; width, height, stride: Integer; quality_factor: Single; var output: PByte): Cardinal; cdecl; external LIB_WEBP; function WebPEncodeRGBA(const rgba: PByte; width, height, stride: Integer; quality_factor: Single; var output: PByte): Cardinal; cdecl; external LIB_WEBP; function WebPEncodeBGRA(const bgra: PByte; width, height, stride: Integer; quality_factor: Single; var output: PByte): Cardinal; cdecl; external LIB_WEBP; function WebPEncodeLosslessRGB(const bgra: PByte; width, height, stride: Integer; var output: PByte): Cardinal; cdecl; external LIB_WEBP; function WebPEncodeLosslessBGR(const bgra: PByte; width, height, stride: Integer; var output: PByte): Cardinal; cdecl; external LIB_WEBP; function WebPEncodeLosslessRGBA(const bgra: PByte; width, height, stride: Integer; var output: PByte): Cardinal; cdecl; external LIB_WEBP; function WebPEncodeLosslessBGRA(const bgra: PByte; width, height, stride: Integer; var output: PByte): Cardinal; cdecl; external LIB_WEBP; function WebPConfigInit(const config: PWebPConfig): Integer; function WebPConfigPreset(const config: PWebPConfig; preset: TWebPPreset; quality: Single): Integer; function WebPValidateConfig(const config: PWebPConfig): Integer; cdecl; external LIB_WEBP; function WebPPictureInit(const picture: PWebPPicture): Integer; function WebPPictureAlloc(const picture: PWebPPicture): Integer; cdecl; external LIB_WEBP; procedure WebPPictureFree(const picture: PWebPPicture); cdecl; external LIB_WEBP; function WebPPictureCopy(const src, dst: PWebPPicture): Integer; cdecl; external LIB_WEBP; function WebPPictureCrop(const picture: PWebPPicture; left, top, width, height: Integer): Integer; cdecl; external LIB_WEBP; function WebPPictureImportRGB(const picture: PWebPPicture; const rgb: PByte; rgb_stride: Integer): Integer; cdecl; external LIB_WEBP; function WebPPictureImportRGBA(const picture: PWebPPicture; const rgba: PByte; rgba_stride: Integer): Integer; cdecl; external LIB_WEBP; function WebPPictureImportBGR(const picture: PWebPPicture; const bgr: PByte; bgr_stride: Integer): Integer; cdecl; external LIB_WEBP; function WebPPictureImportBGRA(const picture: PWebPPicture; const bgra: PByte; bgra_stride: Integer): Integer; cdecl; external LIB_WEBP; function WebPEncode(const config: PWebPConfig; const picture: PWebPPicture): Integer; cdecl; external LIB_WEBP; implementation function VP8InitIoInternal(const io: PVP8Io; bersion: Integer): Integer; cdecl; external LIB_WEBP; const WEBP_DECODER_ABI_VERSION = $0001; function VP8InitIo(const io: PVP8Io): Integer; begin Result := VP8InitIoInternal(io, WEBP_DECODER_ABI_VERSION); end; const WEBP_ENCODER_ABI_VERSION = $0001; function WebPConfigInitInternal(const conf: PWebPConfig; preset: TWebPPreset; quality: single; version: Integer): Integer; cdecl; external LIB_WEBP; function WebPConfigInit(const config: PWebPConfig): Integer; begin Result := WebPConfigInitInternal(config, WEBP_PRESET_DEFAULT, 75.0, WEBP_ENCODER_ABI_VERSION); end; function WebPConfigPreset(const config: PWebPConfig; preset: TWebPPreset; quality: Single): Integer; begin Result := WebPConfigInitInternal(config, preset, quality, WEBP_ENCODER_ABI_VERSION); end; function WebPPictureInitInternal(const picture: PWebPPicture; version: Integer): Integer; cdecl; external LIB_WEBP; function WebPPictureInit(const picture: PWebPPicture): Integer; begin Result := WebPPictureInitInternal(picture, WEBP_ENCODER_ABI_VERSION); end; end.unit Vcl.WebpImage; interface uses System.Math, System.Classes, System.SysUtils, System.Types, Vcl.Controls, libwebp, WebpHelpers, Winapi.GDIPAPI, Winapi.GDIPOBJ; type TWebpImage = class (TGraphicControl) private FBitmap: TGPBitmap; FData: PByte; FOffset: TPoint; FStretch: boolean; FCenter: boolean; FScale: real; FProportional: boolean; procedure SetOffset(const Value: TPoint); procedure SetCenter(const Value: boolean); procedure SetProportional(const Value: boolean); procedure SetScale(const Value: real); procedure SetStretch(const Value: boolean); published constructor Create(AOwner: TComponent); override; destructor Destroy; override; property Bitmap : TGPBitmap read FBitmap write FBitmap; property Stretch : boolean read FStretch write SetStretch; property Proportional : boolean read FProportional write SetProportional; property Center : boolean read FCenter write SetCenter; property Scale : real read FScale write SetScale; property Offset : TPoint read FOffset write SetOffset; procedure Paint; override; procedure LoadFromFile(filename: string); procedure LoadFromStream(stream : TStream); end; implementation { TWebpImage } constructor TWebpImage.Create(AOwner: TComponent); begin inherited; Bitmap := TGPBitmap.Create(); Stretch := false; Proportional := false; Scale := 1; Center := false; Offset := Point(0, 0); end; destructor TWebpImage.Destroy; begin Bitmap.Destroy; WebPFree(FData); inherited; end; procedure TWebpImage.LoadFromFile(filename: string); var fs : TFileStream; data : PByte; begin WebPFree(FData); fs := TFileStream.Create(filename, fmOpenRead); WebpDecode(fs, data, FBitmap); FData := data; fs.Free; Paint; end; procedure TWebpImage.LoadFromStream(stream: TStream); var data: PByte; begin WebPFree(FData); WebpDecode(stream, data, FBitmap); FData := data; Paint; end; procedure TWebpImage.Paint; var G : TGPGraphics; destRect, srcRect : TGPRect; begin inherited; destRect.X := 0; destRect.Y := 0; destRect.Width := Bitmap.GetWidth; destRect.Height := Bitmap.GetHeight; srcRect.X := 0; srcRect.Y := 0; srcRect.Width := Bitmap.GetWidth; srcRect.Height := Bitmap.GetHeight; if Stretch then begin destRect.Width := Width; destRect.Height := Height; end; destRect.Height := Floor(destRect.Height * Scale); destRect.Width := Floor(destRect.Width * Scale); if Stretch and Proportional then begin if (Height > 0) and (srcRect.Height > 0) then if (srcRect.Width / srcRect.Height) - (Width / Height) < 0 then destRect.Width := Floor(srcRect.Width * (destRect.Height / srcRect.Height)) else destRect.Height := Floor(srcRect.Height * (destRect.Width / srcRect.Width)) end; destRect.X := destRect.X - Offset.X; destRect.Y := destRect.Y - Offset.Y; if Center then begin destRect.X := Floor((Width / 2) - (destRect.Width / 2)); destRect.Y := Floor((Height / 2) - (destRect.Height / 2)); end; Canvas.Lock; try G := TGPGraphics.Create(Canvas.Handle); G.SetCompositingMode(CompositingModeSourceOver); G.SetInterpolationMode(InterpolationModeDefault); G.SetPixelOffsetMode(PixelOffsetModeHighQuality); G.SetSmoothingMode(SmoothingModeAntiAlias); G.DrawImage(bitmap, destRect, srcRect.x, srcRect.Y, srcRect.Width, srcRect.Height, UnitPixel); finally G.Free; end; Canvas.Unlock; end; procedure TWebpImage.SetCenter(const Value: boolean); begin FCenter := Value; if Parent <> nil then Paint end; procedure TWebpImage.SetOffset(const Value: TPoint); begin FOffset := Value; if Parent <> nil then Paint end; procedure TWebpImage.SetProportional(const Value: boolean); begin FProportional := Value; if Parent <> nil then Paint end; procedure TWebpImage.SetScale(const Value: real); begin FScale := Value; if Parent <> nil then Paint end; procedure TWebpImage.SetStretch(const Value: boolean); begin FStretch := Value; if Parent <> nil then Paint end; end.unit WebpHelpers; interface uses System.SysUtils, GDIPAPI, GDIPOBJ, System.Classes, libwebp; const gGIf: TGUID = '{557CF402-1A04-11D3-9A73-0000F81EF32E}'; gPNG: TGUID = '{557CF406-1A04-11D3-9A73-0000F81EF32E}'; gPJG: TGUID = '{557CF401-1A04-11D3-9A73-0000F81EF32E}'; gBMP: TGUID = '{557CF400-1A04-11D3-9A73-0000F81EF32E}'; gTIF: TGUID = '{557CF405-1A04-11D3-9A73-0000F81EF32E}'; procedure WebpEncode(var stream: TMemoryStream; img: TGPBitmap; quality_factor: Single = 80); overload; procedure WebpEncode(var buffer: TBytes; img: TGPBitmap; quality_factor: Single = 80); overload; procedure WebpLosslessEncode(var stream: TMemoryStream; img: TGPBitmap); overload; procedure WebpLosslessEncode(var buffer: TBytes; img: TGPBitmap); overload; procedure WebpDecode(fs: TStream; var data: PByte; var bitmap : TGPBitmap); function GetWebpVersionString (versionhex : integer) : string; implementation procedure WebpEncode(var stream: TMemoryStream; img: TGPBitmap; quality_factor: Single = 80); overload; var rect : TGPRect; bmpData: BitmapData; ptrEncoded : PByte; size: Cardinal; begin rect.X := 0; rect.Y := 0; rect.Width := img.GetWidth; rect.height := img.GetHeight; img.LockBits(rect, 3, img.GetPixelFormat, bmpData); if IsAlphaPixelFormat(img.GetPixelFormat) then size := WebPEncodeBGRA(bmpData.Scan0, img.GetWidth, img.GetHeight, bmpData.Stride, quality_factor, ptrEncoded) else size := WebPEncodeBGR(bmpData.Scan0, img.GetWidth, img.GetHeight, bmpData.Stride, quality_factor, ptrEncoded); stream.Write(ptrEncoded^, size); WebPFree(ptrEncoded); end; procedure WebpEncode(var buffer: TBytes; img: TGPBitmap; quality_factor: Single = 80); overload; var stream : TMemoryStream; begin stream := TMemoryStream.Create; WebpEncode(stream, img, quality_factor); stream.Position := 0; SetLength(buffer, stream.Size); stream.ReadData(buffer, stream.Size); stream.Free; end; procedure WebpLosslessEncode(var stream: TMemoryStream; img: TGPBitmap); overload; var rect : TGPRect; bmpData: BitmapData; ptrEncoded : PByte; size: Cardinal; begin rect.X := 0; rect.Y := 0; rect.Width := img.GetWidth; rect.height := img.GetHeight; img.LockBits(rect, 3, img.GetPixelFormat, bmpData); if IsAlphaPixelFormat(img.GetPixelFormat) then size := WebPEncodeLosslessBGRA(bmpData.Scan0, img.GetWidth, img.GetHeight, bmpData.Stride, ptrEncoded) else size := WebPEncodeLosslessBGR(bmpData.Scan0, img.GetWidth, img.GetHeight, bmpData.Stride, ptrEncoded); stream.Write(ptrEncoded^, size); WebPFree(ptrEncoded); end; procedure WebpLosslessEncode(var buffer: TBytes; img: TGPBitmap); overload; var stream : TMemoryStream; begin stream := TMemoryStream.Create; WebpLosslessEncode(stream, img); stream.Position := 0; SetLength(buffer, stream.Size); stream.ReadData(buffer, stream.Size); stream.Free; end; procedure WebpDecode(fs: TStream; var data: PByte; var bitmap : TGPBitmap); var buffer: TBytes; width, height: integer; begin fs.Position := 0; setlength(buffer, fs.Size); fs.ReadBuffer(buffer, fs.size); data := WebPDecodeBGRA(@buffer[0], fs.Size, @width, @height); setlength(buffer, 0); bitmap := TGPBitmap.Create(width, height, 4 * width, 2498570, data); end; function GetWebpVersionString (versionhex : integer) : string; var maj, min, patch : integer; begin maj := versionhex div $10000; min := (versionhex - (maj * $10000)) div $100; patch := (versionhex - (maj * $10000) - (min * $100)); result := maj.ToString + '.' + min.ToString + '.' + patch.ToString; end; end.

Semoga bermanfaat,

Delphi XE6 TListView Multi Detail ItemAppearance

Hemmm .... langsung saja
Membuat tampilan ListView dengan multi detail (FMX ListView MultiDetailAppearanceU ) secara runtime dengan Delphi XE8 FMX Form.

  ....
var
  ....
  ListView1: TListview ;
  LinkListControlToField1 : TLinkListControlToField ;

implementation

uses MultiDetailAppearanceU ;

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView1 := TListView.Create(Form1) ;
  with ListView1 do begin
    Parent := Form1 ;
    Align := TAlignLayout.Left ;
    Margins.Top := 8 ;
    Margins.Left := 8 ;
    Margins.Right := 8 ;
    Margins.Bottom := 8 ;
    Size.Width := 250 ;
    AlternatingColors := True ;
    ItemAppearanceName := 'MultiDetailItem' ;
    ItemEditAppearanceName := 'MultiDetailItem' ;
  end;

  LinkListControlToField1 := TLinkListControlToField.Create(Form1) ;
  with LinkListControlToField1 do begin
    DataSource := BindSourceDB1 ;
    Control := ListView1 ;
    FillExpressions.Add ;
    FillExpressions[0].ControlMemberName := 'Detail1' ;
    FillExpressions[0].SourceMemberName := 'Detail1' ;
    FillExpressions.Add ;
    FillExpressions[1].ControlMemberName := 'Detail2' ;
    FillExpressions[1].SourceMemberName := 'Detail2' ;
    FillExpressions.Add ;
    FillExpressions[2].ControlMemberName := 'Detail3' ;
    FillExpressions[2].SourceMemberName := 'Detail3' ;
    FillExpressions.Add ;
    FillExpressions[3].ControlMemberName := 'Text' ;
    FillExpressions[3].SourceMemberName := 'Items' ;
  end;
end;

unit MultiDetailAppearanceU; interface uses FMX.ListView, FMX.ListView.Types, System.Classes, System.SysUtils, FMX.Types, System.UITypes, FMX.MobilePreview; type TMultiDetailAppearanceNames = class public const ListItem = 'MultiDetailItem'; ListItemCheck = ListItem + 'ShowCheck'; ListItemDelete = ListItem + 'Delete'; Detail1 = 'det1'; // Name of MultiDetail object/data Detail2 = 'det2'; Detail3 = 'det3'; end; implementation uses System.Math, System.Rtti; type TMultiDetailItemAppearance = class(TPresetItemObjects) public const cTextMarginAccessory = 8; cDefaultImagePlaceOffsetX = -3; cDefaultImageTextPlaceOffsetX = 4; cDefaultHeight = 80; cDefaultImageWidth = 65; cDefaultImageHeight = 65; private FMultiDetail1: TTextObjectAppearance; FMultiDetail2: TTextObjectAppearance; FMultiDetail3: TTextObjectAppearance; procedure SetMultiDetail1(const Value: TTextObjectAppearance); procedure SetMultiDetail2(const Value: TTextObjectAppearance); procedure SetMultiDetail3(const Value: TTextObjectAppearance); protected function DefaultHeight: Integer; override; procedure UpdateSizes; override; function GetGroupClass: TPresetItemObjects.TGroupClass; override; procedure SetObjectData(const AListViewItem: TListViewItem; const AIndex: string; const AValue: TValue; var AHandled: Boolean); override; public constructor Create; override; destructor Destroy; override; published property Image; property MultiDetail1: TTextObjectAppearance read FMultiDetail1 write SetMultiDetail1; property MultiDetail2: TTextObjectAppearance read FMultiDetail2 write SetMultiDetail2; property MultiDetail3: TTextObjectAppearance read FMultiDetail3 write SetMultiDetail3; property Accessory; end; TMultiDetailDeleteAppearance = class(TMultiDetailItemAppearance) private const cDefaultGlyph = TGlyphButtonType.Delete; public constructor Create; override; published property GlyphButton; end; TMultiDetailShowCheckAppearance = class(TMultiDetailItemAppearance) private const cDefaultGlyph = TGlyphButtonType.Checkbox; public constructor Create; override; published property GlyphButton; end; const cMultiDetail1Member = 'Detail1'; cMultiDetail2Member = 'Detail2'; cMultiDetail3Member = 'Detail3'; constructor TMultiDetailItemAppearance.Create; begin inherited; Accessory.DefaultValues.AccessoryType := TAccessoryType.More; Accessory.DefaultValues.Visible := True; Accessory.RestoreDefaults; Text.DefaultValues.VertAlign := TListItemAlign.Trailing; Text.DefaultValues.TextVertAlign := TTextAlign.Leading; Text.DefaultValues.Height := 76; // Item will be bottom aligned, with text top aligned Text.DefaultValues.Visible := True; Text.RestoreDefaults; FMultiDetail1 := TTextObjectAppearance.Create; FMultiDetail1.Name := TMultiDetailAppearanceNames.Detail1; FMultiDetail1.DefaultValues.Assign(Text.DefaultValues); // Start with same defaults as Text object FMultiDetail1.DefaultValues.Height := 56; // Move text down FMultiDetail1.DefaultValues.IsDetailText := True; // Use detail font FMultiDetail1.RestoreDefaults; FMultiDetail1.OnChange := Self.ItemPropertyChange; FMultiDetail1.Owner := Self; FMultiDetail2 := TTextObjectAppearance.Create; FMultiDetail2.Name := TMultiDetailAppearanceNames.Detail2; FMultiDetail2.DefaultValues.Assign(FMultiDetail1.DefaultValues); // Start with same defaults as Text object FMultiDetail2.DefaultValues.Height := 38; // Move text down FMultiDetail2.RestoreDefaults; FMultiDetail2.OnChange := Self.ItemPropertyChange; FMultiDetail2.Owner := Self; FMultiDetail3 := TTextObjectAppearance.Create; FMultiDetail3.Name := TMultiDetailAppearanceNames.Detail3; FMultiDetail3.DefaultValues.Assign(FMultiDetail2.DefaultValues); // Start with same defaults as Text object FMultiDetail3.DefaultValues.Height := 20; // Move text down FMultiDetail3.RestoreDefaults; FMultiDetail3.OnChange := Self.ItemPropertyChange; FMultiDetail3.Owner := Self; // Define livebindings members that make up MultiDetail FMultiDetail1.DataMembers := TObjectAppearance.TDataMembers.Create( TObjectAppearance.TDataMember.Create( cMultiDetail1Member, // Displayed by LiveBindings Format('Data["%s"]', [TMultiDetailAppearanceNames.Detail1]))); // Expression to access value from TListViewItem FMultiDetail2.DataMembers := TObjectAppearance.TDataMembers.Create( TObjectAppearance.TDataMember.Create( cMultiDetail2Member, // Displayed by LiveBindings Format('Data["%s"]', [TMultiDetailAppearanceNames.Detail2]))); // Expression to access value from TListViewItem FMultiDetail3.DataMembers := TObjectAppearance.TDataMembers.Create( TObjectAppearance.TDataMember.Create( cMultiDetail3Member, // Displayed by LiveBindings Format('Data["%s"]', [TMultiDetailAppearanceNames.Detail3]))); // Expression to access value from TListViewItem Image.DefaultValues.Width := cDefaultImageWidth; Image.DefaultValues.Height := cDefaultImageHeight; Image.RestoreDefaults; GlyphButton.DefaultValues.VertAlign := TListItemAlign.Center; GlyphButton.RestoreDefaults; // Define the appearance objects AddObject(Text, True); AddObject(MultiDetail1, True); AddObject(MultiDetail2, True); AddObject(MultiDetail3, True); AddObject(Image, True); AddObject(Accessory, True); AddObject(GlyphButton, IsItemEdit); // GlyphButton is only visible when in edit mode end; constructor TMultiDetailDeleteAppearance.Create; begin inherited; GlyphButton.DefaultValues.ButtonType := cDefaultGlyph; GlyphButton.DefaultValues.Visible := True; GlyphButton.RestoreDefaults; end; constructor TMultiDetailShowCheckAppearance.Create; begin inherited; GlyphButton.DefaultValues.ButtonType := cDefaultGlyph; GlyphButton.DefaultValues.Visible := True; GlyphButton.RestoreDefaults; end; function TMultiDetailItemAppearance.DefaultHeight: Integer; begin Result := cDefaultHeight; end; destructor TMultiDetailItemAppearance.Destroy; begin FMultiDetail1.Free; FMultiDetail2.Free; FMultiDetail3.Free; inherited; end; procedure TMultiDetailItemAppearance.SetMultiDetail1( const Value: TTextObjectAppearance); begin FMultiDetail1.Assign(Value); end; procedure TMultiDetailItemAppearance.SetMultiDetail2( const Value: TTextObjectAppearance); begin FMultiDetail2.Assign(Value); end; procedure TMultiDetailItemAppearance.SetMultiDetail3( const Value: TTextObjectAppearance); begin FMultiDetail3.Assign(Value); end; procedure TMultiDetailItemAppearance.SetObjectData( const AListViewItem: TListViewItem; const AIndex: string; const AValue: TValue; var AHandled: Boolean); begin inherited; end; function TMultiDetailItemAppearance.GetGroupClass: TPresetItemObjects.TGroupClass; begin Result := TMultiDetailItemAppearance; end; procedure TMultiDetailItemAppearance.UpdateSizes; var LOuterHeight: Single; LOuterWidth: Single; LInternalWidth: Single; LImagePlaceOffset: Single; LImageTextPlaceOffset: Single; begin BeginUpdate; try inherited; // Update the widths and positions of renderening objects within a TListViewItem LOuterHeight := Height - Owner.ItemSpaces.Top - Owner.ItemSpaces.Bottom; LOuterWidth := Owner.Width - Owner.ItemSpaces.Left - Owner.ItemSpaces.Right; if Image.ActualWidth = 0 then begin LImagePlaceOffset := 0; LImageTextPlaceOffset := 0; end else begin LImagePlaceOffset := cDefaultImagePlaceOffsetX; LImageTextPlaceOffset := cDefaultImageTextPlaceOffsetX; end; Image.InternalPlaceOffset.X := GlyphButton.ActualWidth + LImagePlaceOffset; if Image.ActualWidth > 0 then Text.InternalPlaceOffset.X := Image.ActualPlaceOffset.X + Image.ActualWidth + LImageTextPlaceOffset else Text.InternalPlaceOffset.X := 0 + GlyphButton.ActualWidth; MultiDetail1.InternalPlaceOffset.X := Text.InternalPlaceOffset.X; MultiDetail2.InternalPlaceOffset.X := Text.InternalPlaceOffset.X; MultiDetail3.InternalPlaceOffset.X := Text.InternalPlaceOffset.X; LInternalWidth := LOuterWidth - Text.ActualPlaceOffset.X - Accessory.ActualWidth; if Accessory.ActualWidth > 0 then LInternalWidth := LInternalWidth - cTextMarginAccessory; Text.InternalWidth := Max(1, LInternalWidth); MultiDetail1.InternalWidth := Text.InternalWidth; MultiDetail2.InternalWidth := Text.InternalWidth; MultiDetail3.InternalWidth := Text.InternalWidth; finally EndUpdate; end; end; type TOption = TCustomListView.TRegisterAppearanceOption; const sThisUnit = 'MultiDetailAppearanceU'; // Will be added to the uses list when appearance is used initialization // MultiDetailItem group TCustomListView.RegisterAppearance( TMultiDetailItemAppearance, TMultiDetailAppearanceNames.ListItem, [TOption.Item], sThisUnit); TCustomListView.RegisterAppearance( TMultiDetailDeleteAppearance, TMultiDetailAppearanceNames.ListItemDelete, [TOption.ItemEdit], sThisUnit); TCustomListView.RegisterAppearance( TMultiDetailShowCheckAppearance, TMultiDetailAppearanceNames.ListItemCheck, [TOption.ItemEdit], sThisUnit); finalization TCustomListView.UnregisterAppearances( TArray<TCustomListView.TItemAppearanceObjectsClass>.Create( TMultiDetailItemAppearance, TMultiDetailDeleteAppearance, TMultiDetailShowCheckAppearance)); end.

Semoga bermanfaat,

FMX Slide TabControl

File > New > Multi Device Application - Delphi > Blank Aplication Click Ok,
lalu pada Tool Palette cari TabConntrol lalu tmbkan ke Form1. Atur Align dari TabControl1 menjadi Client. Kemudian tambahkan TabItem degan cara click kanan TabControl1 lalu click Add TTabItem lakukan beberapakai. Kemudian tambahka ke form1 ActnList dan GestureManager, sama caraya seperti menambahkan TabControl.

Dowble click ActionList1 kemudian click Ctrl + Insert atau click New Standard action, lalu pilih Tab > TChangeTabActio, sebanyak 2. Tutup editting Form action.

Pada panel Structur click TaControl1 keudian pada pael Object Inspector click Touch > GestureManager pilih GestureManager1, dan Gestures > Standard > Left beri tanda checklist pilih action ChangeTabAction1, dan Rightt juga diberi tanda checklist pilih action ChangeTabAction2.
Buat procedure ChangeTabActionUpdate(Sender: TObject);

procedure TForm1.ChangeTabActionUpdate(Sender: TObject);
begin
  if TabControl1.TabIndex < TabControl1.TabCount -1 then
    ChangeTabAction2.Tab := TabControl1.Tabs[TabControl1.TabIndex + 1]
  else ChangeTabAction2.Tab := nil;

  if TabControl1.TabIndex > 0 then
    ChangeTabAction1.Tab := TabControl1.Tabs[TabControl1.TabIndex - 1]
  else ChangeTabAction1.Tab := nil;
end;

Buat procedure FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
  if Key = vkHardwareBack then begin
    if TabControl1.TabIndex > 0 then begin
      TabControl1.TabIndex := TabControl1.TabIndex - 1 mod TabControl1.TabCount;
      Key := 0;
    end;
  end;
end;

Selautnya buat procedure FormCreate(Sender: TObject);

procedure TFormm1.FormCreate(Sender: TObject);
begin
  TabControl1.ActiveTab := TabItem1;
  TabControl1.TabPosition := TTabPosition.None ;
  ChangeTabAction1.OnUpdate := ChangeTabActionUpdate;
  ChangeTabAction1.Tab := nil;
  ChangeTabAction2.OnUpdate := ChangeTabActionUpdate;
  ChangeTabAction2.Tab := TabControl1.Tabs[TabControl1.TabIndex + 1] ;
end;

  ....
uses
  ....,
  FMX.TabControl,
  System.Actions, FMX.ActnList,
  FMX.Gestures,
  .... ;
type
  TFormm1 = class(TForm)
    TabControl1: TTabControl;
    TabItem1: TTabItem;
    TabItem2: TTabItem;
    TabItem3: TTabItem;
    TabItem4: TTabItem;
    ActionList1: TActionList;
    GestureManager1: TGestureManager;
    ChangeTabAction1: TChangeTabAction;
    ChangeTabAction2: TChangeTabAction;
    procedure ChangeTabActionUpdate(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
    procedure FormCreate(Sender: TObject);

Semoga bermanfaat,

Delphi FMX TGrid, DataSet, Database dan FireDac

Sebagai contoh kita gunakan apliksi yang sudah kita buat disini. Lalu Tambahkan 1 FDQuery lagi dan 1 Grid. dowble click FDConnection1 pada form Firedac Connection Editor pastikan Driver ID sudah terisi dengn SQLite dan pada database click icon folder dan dan cari file TestDBSQLite.s3db, jika tidak terliat rubah filter menjadi all file akhiri dengan click open > OK

Selajunya atur properti sebgai berikut:
  FDConnection1 > Connected => True
  FDQuery2 > Connection => FDConnection1
  FDQuery2 > SQL, click tanda elip lalu pada form yang tmpil ketika SELECT * FROM Table1 lalu click OK.
  FDQuery2 > Active => True
  Grid1 > Position > X => 8
  Grid1 > Position > Y => 216
  Grid1 > ReadOnly => True
  Grid1 > Size > Height => 193
  Grid1 > Size > Width => 372

Selajutnya click Bind Visually yang berada dibawah Object Inspetor atau Click kanan Grid1 (seperti terlihat pada gambar) lalu pada form livebindings designer yang tampil Clck dan tahan Grid1 lalu arahkan ke FDQuery2 lalu lepaskan.

sampai disini sudah selesai menampilkan database ke Grid (Table View).
Nah, sekarang bagaimana cara melakukannya secara runtime ?
Lihat ini, ada penambahan 1 BindSourceDB, 1 LinkGridToDataSource dan penambahan procedure BuatTable ; serta peruahan procedure FormCreate(Sender: TObject); dan procedure Button5Click(Sender: TObject);

private { Private declarations } public BindSourceDB1: TBindSourceDB; LinkGridToDataSourceBindSourceDB1: TLinkGridToDataSource; Procedure BuatTable ; end; var Form1: TForm1; implementation {$R *.fmx} Procedure TForm1.BuatTable ; begin FDQuery2.Connection := FDConnection1 ; FDQuery2.SQL.Clear ; FDQuery2.SQL.Text := 'SELECT * FROM Table1' ; BindSourceDB1 := TBindSourceDB.Create(Form1) ; BindSourceDB1.DataSet := FDQuery2 ; LinkGridToDataSourceBindSourceDB1 := TLinkGridToDataSource.Create(Form1) ; LinkGridToDataSourceBindSourceDB1.DataSource := BindSourceDB1 ; LinkGridToDataSourceBindSourceDB1.GridControl := Grid1 ; with LinkGridToDataSourceBindSourceDB1 do begin Columns.Clear ; Columns.Add ; Columns[0].Header := 'No' ; Columns[0].Width := 60 ; Columns[0].MemberName := 'T_ID' ; Columns.Add ; Columns[1].Header := 'Nama' ; Columns[1].Width := 250 ; Columns[1].MemberName := 'T_Nama' ; Columns.Add ; Columns[2].Header := 'Tgl Lahir' ; Columns[2].Width := 100 ; Columns[2].MemberName := 'T_TglLahir' ; Columns.Add ; Columns[3].Header := 'Gender' ; Columns[3].Width := 60 ; Columns[3].MemberName := 'T_Gender' ; end; end; procedure TForm1.FormCreate(Sender: TObject); begin with FDConnection1 do begin Loginprompt := False ; Drivername := 'SQLite' ; FDConnection1.Params.Values['Database'] := 'TestDBSQLite.s3db' ; Connected := True ; end; FDQuery1.Connection := FDConnection1 ; BuatTable ; Button5Click(Button5) ; end; procedure TForm1.Button5Click(Sender: TObject); begin ComboEdit1.Text :='' ; Edit1.Text :='' ; DateEdit1.Date := Date ; ComboBox1.ItemIndex := -1 ; Button3.Enabled := False ; Button4.Enabled := False ; FDQuery2.Active := False ; FDQuery2.Active := True ; end;

Semoga bermanfaat,

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,

SQLite, Firedac Delphi FMX Windows

File > New > Multi Device Application - Delphi > Blank Aplication Click Ok,
lalu pada Tool Palette cari dan tambahkan ke form1 :

1. FDPhysSQLiteDriverLink
2. FDGUIxWaitCursor
3. FDConnction
4. FDQuery

Atur properti dai FDConnection1 dengan cara pada panel Structure Click FDConnection1 kemudian pada oject inspector atur properti FDConection1 sebagai berikut :

• DriverName => SQLite
• LoginPrompt => False
• Params > Database => TestDBSQLite.s3db

Setelah itu baru atur proprti FDConnectio1 Conected => True. Nah ketika aplikasi dijalankan kita akan melihat pada foldr exe aplikasi aka ada file bau TestDBSQLite berextention s3db.
Jika seelumnya sudah ada database SQLite maka properti params > databasse dari FConection1 diisi dengan alamat dataase umpama database berada di diDrive D folder My Database subfolder SQLite dengan nama DB1.s3db maka params > databasse => D:\My Database\SQLite\DB1.s3db. Cara yan sama juga datapat dilakuka walau database SQLit belum ada namu kita ingin menempatka database pada directory tertentu.
atur properti FQuery1 > Connection => FDConnection1.
Sekaran database suah ada namun masih kosog atau elu ada tablenya.
bagaimaa cara menamaka table ?

Tambahkan event AfterConnect pada FConection11 isi degan ;

procedure TForm1.FDConnection1AfterConnect(Sender: TObject);
begin
  FDConnection1.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;

Atau degan cara kedua

procedure TForm1.FDConnection1AfterConnect(Sender: TObject);
begin
  FDQuery1.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;

Atau degan cara ketiga

procedure TForm1.FDConnection1AfterConnect(Sender: TObject);
begin
  FDQuery1.SQL.Clear ;
  FDQuery1.SQL.Text := 'CREATE TABLE IF NOT EXISTS Table1 (T_ID Integer PRIMARY KEY AUTOINCREMENT, T_Nama VarChar(75), T_TglLahir VarChar(10), T_Gender Integer)' ;
  FDQuery1.ExecSQL ;
end;

Untuk mehapus table

procedure TForm1.FDConnection1AfterConnect(Sender: TObject);
begin
  FDQuery1.ExecSQL('DROP TABLE IF EXISTS Table1') ;
end;

Koneksi Database SQLite dega iredac seara Run Time. 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 ;
  end;
end;

Untuk menguji kita coba buat aplikasi sederhana baca disini.

Jika belum tau cara install SQLite baca disini.

Semoga bermanfaat,

Cara megunakan System Database SQLite

SQLite salah satu System databae yang kecil dan mudah digunakan. Sehagian Application Android dianun juga meguakan database SQQLite.
Nah bagaimana cara memasang dan meguakanya ?
Gampag sob. Pertama download dulu file dll SQLite (disini) ya sesuai PC kita. Setelah download selesai extract mengunakan kemudian copy dan paste dll tersebut difolder exe aplkasi berada, atau copykan ke folder system windows

Selesai. System Database SQLite siap diguakan.

bagaimana cara membangun database dan konneksi ke aplikasi baca disini

Semoga bermanfaat,