Gunakan fungsi uppercase pada kecjain settext dari field bersangkutan,
contoh:
procedure TdmDataBase.tblSuppNamaSetText(Sender: TField;
const Text: String);
begin
(sender as TField).AsString := UpperCase(text);
end;
semoga membantu
Iwan Cahyadi Sugeng
-----Original Message-----
From: ariefn [mailto:[EMAIL PROTECTED]]
Sent: Sunday, December 15, 2002 3:20 PM
To: [EMAIL PROTECTED]
Subject: [Delphindo] Field dengan HURUF BESAR
Pada pemrograman database, Bagaimana caranya agar user selalu menginput
dengan HURUF BESAR (uppercase) ?
Kalau bisa di-set pada level TField, jadi akan berlaku untuk semua Data
Aware control.
TIA.
[Non-text portions of this message have been removed]
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to
http://docs.yahoo.com/info/terms/
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/CBxunD/vN2EAA/xGHJAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
