>From: "hans2002" <[EMAIL PROTECTED]>
>Reply-To: [EMAIL PROTECTED]
>To: <[EMAIL PROTECTED]>
>Subject: [Delphindo] Tanya Nomor bertambah
>Date: Sat, 20 Sep 2003 09:46:55 +0700
>
>Saya mau tanya nih, jika punya data misalnya no. resi, dari No. 1 s/d 1000 
>untuk daerah Jakarta. Waktu input di form saya mau inputnya spt :
>
>No. Resi    : 1 s/d 1000
>
>Daerah       : Jakarta
>
>Saya input dari no. 1 dan nomor terakhir saja, bagaimana caranya supaya 
>didatabasenya masuk no. 1 s/d 1000 itu
Coba :

misal :
a:=1
b:=1000;

while not a<b then
begin
table1['no']:=a;
a:=a+1;
end;





>
>
>Yang kedua bagaimana cara buat Hak Akses Login password untuk menu
>
>Misal:
>User Id    :    Amir
>Password    :    Supervisor
>Level :    Admin
>
>Jika levelnya Admin maka bisa akses seluruh menu, jika operator hanya 
>sebagian menu yg dapat diakses
mungkin bisa pake perintah grant yg lebih spesifik.....

>
>Ketiga : Saya punya data input Resi,saya ingin kalau resi itu sudah diinput 
>kedatabase dan di Simpan, otomatis di Field No. Resi bertambah 1
>
>Ke4 : Bagaimana caranya button Simpan pakai SQL, dan button Cari pakai 
>input Box dengan perintah SQL ?
>
>Saya udah coba begini :
>
>procedure TFrom1.bitSimpan.Click(Sender : TObject );
>begin
>     with query1 do
>     begin
>         SQL.Clear;
>         SQL.Add('Insert into Barang(Kode,Nama,Ukuran) '+
>                 'Values(:kd,:Nama,:uk)');
>        Prepare;
>         Parambyname('kd').AsString:=eno.text;
>         Parambyname('nama').AsString:=enama.text;
>         Parambyname('uk').AsString:=euk.text;
>         ExecSQL.
>end;
>end;
>
>Saya memakai SQL Server 2000, komponennya ADO connection, ADO Table, 
>Dataset, Query dari BDE
>
>Tolong donk, saya ditunggu dead line ini, mendesak, Please Tolongin 
>donk...[ saya cari arsip di Delphindo ngak ketemu nih ]
>
>
>[Non-text portions of this message have been removed]
>
>

_________________________________________________________________
Protect your PC - get McAfee.com VirusScan Online 
http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=3963


------------------------ Yahoo! Groups Sponsor ---------------------~-->
Upgrade to 128-Bit SSL Security!
http://us.click.yahoo.com/p7cEmB/s7qGAA/yigFAA/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/ 


Kirim email ke