t; <[EMAIL PROTECTED]>
To: ; <[EMAIL PROTECTED]>;
<[EMAIL PROTECTED]>
Sent: Tuesday, August 15, 2006 4:09 PM
Subject: [ITCENTER] Minta solusi
> Ass Wr Wb
>
> To the point yah :
>
> Mungkin pernah dibahas...cuma minta solusi lagi yah :
>
> Di kantor gw ada ser
Ass Wr Wb
To the point yah :
Mungkin pernah dibahas...cuma minta solusi lagi yah :
Di kantor gw ada server :
1. SQL Server
2. AD Server
3. Anti Virus
4. Web Server
5. Email Server
6. WSUS Server
7 SMS Server
8.AS400
Saya mo minta solusiserver2 apa aja yah
makasih pakkk... udah ketemu pas sedang semedi dikamar dapet
wangsit tapi loikanya kok mirip yah klo aku langsung tanpa aku masukin
ke function. tapi bagus juga sih ko dimasukin fungction... jadi bisa dipake
tersu. makasi
Coba coding di bawah ini"
function TForm1.CanWrite(ch:char):boolean;
begin
Result:= (ch in['0'..'9',#13,#8]);
end;
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if (DBGrid1.SelectedIndex=1) then
begin
if not CanWrite(Key) then
key:=#0;
end;
end;
Intinya kita membatasi b
sekarang gw lagi bikin program pake delphi erhuubngan dengan database. nah
masalahnya :
di program gw ada coponent DBGrid dengan 2 Field. Field 1= Nama Type Text,
Field2=angka Type text (alesan kenapa memakai type ini karena nantinya
bakalan bisa memasukan huruf juga selain angka tapi harus memili