Arsip: Seputar displayformat pada database


by nickqin in Form more 18 years ago 4478
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
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.

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

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com