Format tampilan data dapat di manipulasi sesuai dengan keinginan khususnya pada komponen yang langsung
mengakses database, seperti dbgrid,dbedit,db pada quickreport dan sejenisnya.
Disana dapat dimunculkan nama hari,jam,thousand sparaton maupun karakter password
mengakses database, seperti dbgrid,dbedit,db pada quickreport dan sejenisnya.
Disana dapat dimunculkan nama hari,jam,thousand sparaton maupun karakter password
Lihat aja salah satu contoh yang pernah aku buat
procedure TForm1.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select nip,nama,tanggallhr,kodegol,gajipokok,tunjfungsi,jmlanak,'+
' round(gajipokok jmlanak 2/100)as tunjanak,(gajipokok + tunjfungsi + tunjanak)as gajibersih'+
' from pegawai');
prepared;
open;
//menampilkan tanggal dengan nama hari,tanggal,bulan,tahun,jam,menit,detik
Tdatefield(fieldbyname('tanggallhr')).DisplayFormat:='dddd-dd-MM-yyyy-hh-mm-ss';
//currency dg tanda titik dan koma dua nol dibelakang(thousand sparaton)
Tdatefield(fieldbyname('gajipokok')).DisplayFormat:='#,##0.00';
//currency dg tanda titik tanpa koma dan dua nol dibelakang
Tdatefield(fieldbyname('tunjfungsi')).DisplayFormat:='#,##0';
//currency dg tanda titik dan koma dua nol dibelakang dan dg Rp didepan
Tdatefield(fieldbyname('tunjanak')).DisplayFormat:='Rp#,##0.00';
/>
//Karakter password soalnya gaji bersihnya rahasia xixixixi
Tdatefield(fieldbyname('gajibersih')).DisplayFormat:=' **';
end;
end;
end.
semoga bermanfaat,
sorry kalo kodenya buruk karna aku memakai teknik nickqin standar cording, yang merupakan teknik pengkodean warisan nenek moyang xixixixi
alias ngawur tapa aturan :) soalnya nenek moyang ku dulu blom pernah ada yang buat program.
procedure TForm1.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select nip,nama,tanggallhr,kodegol,gajipokok,tunjfungsi,jmlanak,'+
' round(gajipokok jmlanak 2/100)as tunjanak,(gajipokok + tunjfungsi + tunjanak)as gajibersih'+
' from pegawai');
prepared;
open;
//menampilkan tanggal dengan nama hari,tanggal,bulan,tahun,jam,menit,detik
Tdatefield(fieldbyname('tanggallhr')).DisplayFormat:='dddd-dd-MM-yyyy-hh-mm-ss';
//currency dg tanda titik dan koma dua nol dibelakang(thousand sparaton)
Tdatefield(fieldbyname('gajipokok')).DisplayFormat:='#,##0.00';
//currency dg tanda titik tanpa koma dan dua nol dibelakang
Tdatefield(fieldbyname('tunjfungsi')).DisplayFormat:='#,##0';
//currency dg tanda titik dan koma dua nol dibelakang dan dg Rp didepan
Tdatefield(fieldbyname('tunjanak')).DisplayFormat:='Rp#,##0.00';
/>
//Karakter password soalnya gaji bersihnya rahasia xixixixi
Tdatefield(fieldbyname('gajibersih')).DisplayFormat:=' **';
end;
end;
end.
semoga bermanfaat,
sorry kalo kodenya buruk karna aku memakai teknik nickqin standar cording, yang merupakan teknik pengkodean warisan nenek moyang xixixixi
alias ngawur tapa aturan :) soalnya nenek moyang ku dulu blom pernah ada yang buat program.
Random Articles
- Buat Program aplikasi Trial dengan Registry
- Ubah ODBC (MS-Acess, MySQL, MS-SQL Server) dengan Delphi
- Mematikan Taskbar dan Tray Ikon
- Membuat Help File untuk Aplikasi Delphi
- Lazarus Release 2.0.10
- Trap database exception message
- PascalTalk #5: UX: Research, Design and Engineer
- Simulasi Infeksi Virus 1.0 - OpenSource
- SELAMAT ULTAH KE-25, DELPHI!
- Membuat random angka tanpa ada data kembar
AI Forward

๐ We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago