Allo All, Bagaimana sih bikin program login ke program kita...... aku udah coba bikin malah ndak bisa dicompile aku pake TADOQuery, Binggung banget nih ...., maaf soalnya aku bener2 baru balajar program dan langsung ke Delphi kalau boleh minta program login passwordnya dong tank's sebelumnya

untuk login, pasagkan aja di ADOConnection, kemudian ADOQuerynya pake koneksi dari ADOConnection intinya seperti ini, saya pake DB MSSQLServer, Sesuaikan variable / kode yg sesuai dengan aplikas Anda

        adoConnection.ConnectionString := 'Provider=SQLOLEDB.1'+
          ';Persist Security Info=True'+
          ';User ID=' + NAMA_USER +
          ';Password=' + PASSWORD_NYA +
          ';Initial Catalog=' + NAMA_DATABASE +
          ';Data Source=' + NAMA_SERVER + '';
        adoConnection.Open

Mkasih mas deLogic......, bisa buat tambahan refrensi nih...... tapi yang aku maksud bikin login yang mau masuk ke program kita..... kaya program2 jadi yang dijual ma gramed2 gitu loh..... ada user id and passwordnya tapi makacih banyak mas biasanya aku kalau bikn connect ruwet tapin ini langsung kena......... thank's

Gini lo mas list programnya ...... aku connect dengan SQL server ==============> procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin adoquery1.Active := False; adoquery1.SQL.Clear; //adoquery1.Active := false; adoquery1.SQL.add('select * from mkpassword where UserId ='+ QuotedStr(Edit1.Text) ); if adoquery1.RecordCount=0 then ShowMessage('Identitas Anda Tidak Terdaftar !') else ShowMessage('Identitas Anda Terdaftar !') //adoquery1.Active := True; kalau ada yang salah atau salah semua minta tolong dibenerin dan diberitahu salahnya ya thank's end; <==================

errr... ya udah bener... trus mo diapain lagi? paling tinggal nambahin pengecekan passwordnya udah bener apa belum.. kalo bener masuk deh, tapi kalo salah ya keluar..

if adoquery1.RecordCount=1 then
begin
 ShowMessage('Identitas Anda Terdaftar !');
 // Cek password disini. ambil field password dan bandingkan dengan inputan dari user..
 if adoquery1Password.Asstring = edit2.text then
 begin
  // password benar.. proses disini
 end
 else
 begin
  // password salah.. proses disini
 end;
end
else
ShowMessage('Identitas Anda Tidak Terdaftar !') 

thanks mas tapi kok error ya ada pesan pertama pas compile "ADOquery1:cannot perform this operation on a closed dataset." yang kedua muncul formnya tapi juga muncul pesan sama seperti diatas salah diapanya ya mas......??? sorry aku bener2 awan soal program apalagi ma delphi...... makacih

owww.. pantesan.. abis dimasukin SQL nya, diaktifin donk datasetnya..

adoquery1.Active := False;
adoquery1.SQL.Clear;
//adoquery1.Active := false;
adoquery1.SQL.add('select * from mkpassword where UserId ='+ QuotedStr(Edit1.Text) );
adoquery1.Active := True; // <<--- Nih tambahin.. 
if adoquery1.RecordCount=0 then 

Langsung dicopy, compile, jalan..... hahahahahaha akhirnya thankyu, maturnuwun,kamsia,makacih banyak mas

heuheuheuheuhue.... mo posting dah keduluan nih..... :)) :D

sorry mas zeal atao semuanya......... agak ngelunjak nih aku........... gimana setelah itu bisa ndapetin isi dari field yang kita dapet ya maksudnya isi nama dari userid itu siapa ? aku udah coba adoquery1.fields('Nama') ato adoquery1.fields(nama) kok tetep ndak bisa ya...... makacih semuanya sembelumnya