Pada banyak pembuatan aplikasi yang di buat, setiap komponen memiliki Properties nya masing-masing,
contohnya : Tlabel- Caption, TEdit-Text, TPanel-Caption, TMemo-Text, dll. Inti dari semua contoh tersebut kita dapat memanggil suatu komponen dengan mengganti isi dalam suatu caption atau Text dengan mengconversi dari tipe data STRING, INTEGER, REAL, CURRENCY, Dll..
Dalam kasus ini saya bahas mengenai cara Membuat Bilangan bertitik pada TEDIT, Seperti yang banyak kita lihat pada APLIKASI-APLIKASI Swalayan dan lain-lain yang bersifat UANG.
dalam suatu penyimpanan Database tidak bisa membaca tipe data string yang di masukkan ke currency.
Contoh :
dalam suatu upaya kita harus merubah STRING KE CURRENCY agar data dapat di proses. Dengan mengubah FormatCurr(###.###) atau format lain.
SELANJUTNYA ke pokok permasalahan :
contoh tampilan dibawah ini adalah menjelaskan tipe data yang bersifat STRING DAN CURRENCY
Tutorialnya :
Pada Event = Edit1.Onchange, Isi code seperti berikut
Pada Event = Edit2.Onchange, Isi code seperti berikut
Listing Lengkapnya :
===============LISTING=================
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Bevel1: TBevel;
procedure Edit2Change(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit2Change(Sender: TObject);
var
Rp: string;
Rph: Currency;
begin
Rp := Edit2.Text;
Rp := StringReplace(Rp,',','',[rfReplaceAll,rfIgnoreCase]);
Rp := StringReplace(Rp,'.','',[rfReplaceAll,rfIgnoreCase]);
Rph := StrToCurrDef(Rp,0);
edit2.Text := currtostr(Rph);
edit2.SelStart := length(edit2.text);
end;
procedure TForm1.Edit1Change(Sender: TObject);
var
Rp: string;
Rph: Currency;
begin
edit2.Text:=edit1.Text;
Rp := Edit1.Text;
Rp := StringReplace(Rp,',','',[rfReplaceAll,rfIgnoreCase]);
Rp := StringReplace(Rp,'.','',[rfReplaceAll,rfIgnoreCase]);
Rph := StrToCurrDef(Rp,0);
edit1.Text := FormatCurr('#,###',Rph);
edit1.SelStart := length(edit1.text);
end;
end.
================END CODE===================
Untuk lebih jelasnya silahkan download sourcecode dibawah ini :
5 komentar:
Passwordnya apa neh gan
emang di pass ya ,. sorry...
ini pass nya "Andrajustone" tanpa tanda kutip
terima kasih atas Tutornya, mmau tanya bagaimana kalau Edit1 dan Edit2 tersebut dilakukan perhitungan (+,-,X,:) ?
@Muhammad As'ad
tinggal mainin variable aja gan.
contoh:
procedure .................()
var
bil1,bil2,hsl:real;
begin
bil1:=strtofloat(edit1.text);
bil2:=strtofloat(edit2.text);
hsl:=bil1+bil2;
edit3.text:=floattostr(hsl);
silahkan manipulasi kode diatas sesuai yg di inginkan...
with qryMARGIN1 do begin
close;
sql.clear;
sql.add('select * from Margin ');
open;
end;
netmargin:=0;
mOut:=0;
mIn:=0;
qryMARGIN1.FindFirst;
//====================================================
while not qryMARGIN1.Eof do
begin
netmargin:=netmargin+ qryMARGIN1Net.AsCurrency;
//mIn:=mIn+ qryMARGIN1In.AsCurrency;
//mOut:=mOut + qryMARGIN1Out.AsCurrency;
qryMARGIN1.Next;
end;
id := qryGrafik['ID'];
with dbcht2 do begin
Series[i].AddXY(id,netmargin, qryGrafik['Bulan']);
end;
ternya sangat bermanfaat di terapkan di program kantor haha... terimakasih ya..
Equityworld Futures Pusat
Posting Komentar
Untuk Mengurangi SPAM .Gunakan Kata-kata yang sewajarnya, sopan dalam tutur kata berbahasa. Sekian Terima kasih.