Arsip: Visible Button
more 12 years ago
keph47
Salam tuk semua delphiers disini.
saya mau tanya bagaimana coding untuk membuat visible button di suatu form dari true false menjadi true yang di akses dari suatu form.
contoh :
form 1 = fLogin
form 2 = fData
button1 ada di form fData, button ini berisi coding untuk menampilkan tabel database ke dBgrid.
fData : formshow = button1.visible := false;
fLogin : -jika yg login = admin maka button1 di fData dari visible false menjadi true.
-jika yg login = operator maka button1 di fData tetap false.
saya sudah coba coding pada umumnya dengan deklarasi uses unit pada fLogin tapi ekseskusi gagal saat admin yg login.
mohon bantuan dari para master delphi..
thanks :)
more 12 years ago
keph47
begini mas..
kondisi button1.visible := false; atau enabled juga, di form data
1. saat login di form login, dari select tbLogin untuk masing-masing level saya kasih coding TformData.button1.visible := true;
tapi ini jelas salah karena yg saya tahu itu hny untuk komponen main menu.
2. saya taruh coding di Form Data nya dengan mengambil EditUsername.text dari Form Login.. data berhasil di tampilkan untuk select tabel, tapi untuk penampilan button1.visible := true tidak mau, saya coba juga dengan deklarasi var a, b : string --> a := admin; b := Login.EUsername; if a=b then button1.visible := true;
saya masih newbie mas jadi kurang paham penggunaan struktur delphi nya..
jadi intinya bagaimana saat form Data create atau show dengan username = admin login maka button tersebut bisa digunakan..
soalnya untuk membatasi hak akses mas..
more 12 years ago
keph47
koding berhasil :
procedureTData.FormCreate(Sender: TObject);
varaku:string;
begin
aku:=Login.edt1.Text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM "data" WHERE Id LIKE'+QuotedStr(aku)+'');
ADOQuery1.Open;
end;
data tampil sesuai proses di dbGrid..
nah untuk membuat visible atau enable button di form ini gimana mas..
makasih mas untuk bantuannya :)
more 12 years ago
keph47
contoh dalam database nya:
Tabel Login (username) = (Id) di tabel Data
jadi Id pada tabel data di input dari username saat login..
more 12 years ago
jrp
Wah... sulit sekali menguraikan pertanyaannya :roll:
Apa seperti ini maksudnya?
if LowerCase(aku)='admin' then
Button1.Visible:=true
else
Button1.Visible:=false;
jrp
more 12 years ago
jrp
Kalau maksudnya memang yg seperti itu/mirip seperti itu, silahkan modifikasi & letakkan kode tersebut setelah otentikasi. Otentikasi maksudnya: password yang user tersebut berikan sudah terbukti cocok dengan password dia yang tersimpan dalam database.
jrp
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Bagaimana caranya handling onpostError dengan ADO
by surip in Hal umum tentang Pascal Indonesia more 17 years ago - look up form biar auto update
by pakdhegatot in Hal umum tentang Pascal Indonesia more 14 years ago - [tanya] gmana cara buat bar code
by charlie in Hal umum tentang Pascal Indonesia more 17 years ago - [Tanya] Worklist Teamwork
by eksant in OOT more 17 years ago - [TANYA]Group Footer tampil di bawah halaman FAST REPORT
by purnomo2007 in Reporting more 13 years ago - Sql error
by keylock in MySQL more 15 years ago - was: Komponen SMS. lagi o-on lagi
by LuriDarmawan in OOT more 16 years ago - Web app jaman sekarang?
by _lmz in OOT more 17 years ago - Edit pada kolom tertentu saja pada DBGrid
by a_mrecoba in Tip n Trik Pemrograman more 15 years ago - file gambar ?
by dekos in Tutorial & Community Project more 16 years ago