Arsip: Login admin / User Delphi-Access

 
user image
more 11 years ago

lukman_ais

alowww para maser delphi di delphi-id.org.... tolongin guee donk bro... aku lagi mo buat aplikasi database delphi-access nihh.. gimana cara bisa login sebagai admin ato user biasa (coding di delphinya) Makasih sebelumnya buat temen2 smua......
user image
more 11 years ago

Manz

???? dah pernah coba dulu ???? atau pengen enaknya langsung dapet script coding delphi nya ???? :twisted:

Try
  if logika = open then
    cobain_sendiri := true;
except
  on E: eMales 
    showalert('gak ada yang bakal bantuin');
end;
:twisted:
user image
more 11 years ago

n3o_cybertech

wadoouw...@Manz turun tangan :mrgreen: :mrgreen: :mrgreen: hentikan kemalasan!!!
user image
more 11 years ago

ichan29

oot: ikut gaya Manz:
Try
  IF (akulihat)and(akubaca) then
       showmessage('Asli gw ketawa..')
  else showmessage('gw tdk buka forum ini');
except
  On E: eStress
  showalert('coba anda belajar!');
end;
user image
more 11 years ago

lukman_ais

Lho..bukannya males mikir??kemarin lagi buru2.. aku sebenarnya dah nyoba, waktu masuk sebagai admin sih bisa... tapi kalo jadi user biasa ko gak bisa aku pake delphi7 & access 2003 ADOConnection1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;'+ 'User ID='+ UserId.Text +';'+ 'Data Source=C:\Documents and Settings\Jei_bandung\My Documents\My eBooks\Access-Delphi\DB.mdb;'+ 'Mode=Share Deny None;'+ 'Extended Properties="";'+ 'Jet OLEDB:System database="";'+ 'Jet OLEDB:Registry Path="";'+ 'Jet OLEDB:Database Password="'+ password.Text +'";'+ 'Jet OLEDB:Engine Type=5;'+ 'Jet OLEDB:Database Locking Mode=1;'+ 'Jet OLEDB:Global Partial Bulk Ops=2;'+ 'Jet OLEDB:Global Bulk Transactions=1;'+ 'Jet OLEDB:New Database Password="'+ password.Text +'";'+ 'Jet OLEDB:Create System Database=False;'+ 'Jet OLEDB:Encrypt Database=False;'+ 'Jet OLEDB:Don''t Copy Locale on Compact=False;'+ 'Jet OLEDB:Compact Without Replica Repair=False;'+ 'Jet OLEDB:SFP=False'; ADOConnection1.Connected:=true; Apanya yang salah..?bantuin yaaa baru belajar access :oops:
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com