Hai apa kabar... Saya masih pemula soal delphi, minta petunjuk dari master sekalian. Gimana ya caranya bikin form login dimana ada pembatasan hak (misalnya admin,user,dll). Saya pakai komponen zeosdbo. Mohon petunjuknya, sekalian codenya :D Thanks

taruh datanya di data Base...type boolean..trus pas loading form menu2 yang enable/disable dikasih nilai dari isian table di data base... kan typenya sama (boolean) mungkin bisa batu

Coba pakai cara ini. 1.buat tabel level_akses yang isinya, batasan hak, misal admin, marketing 2.buat tabel user yang berisikan data user dan level aksesnya 3.buat pembatasan untuk masing masing level coba aja dulu............

Salam kenal Coba seperti ini.... procedure Tfrmmainmenu.btnyesClick(Sender: TObject); frmmaindataadmin.datasetlogin.Close; mysql := 'select * from tbl_user where username ='+petik+frmmainmenu.txtusername.Text+petik+' AND store ='+petik+frmmainmenu.cmbstore.Text+petik+' '; frmmaindataadmin.datasetlogin.Connection := frmkonfigurasi.adoconnection; frmmaindataadmin.datasetlogin.CommandText := mysql; frmmaindataadmin.datasetlogin.Active := True; if not frmmaindataadmin.datasetlogin.Eof then begin password := frmmaindataadmin.datasetlogin.Fields[1].AsString ; store := frmmaindataadmin.datasetlogin.Fields[2].AsString ; if (password = frmmainmenu.txtpassword.Text) AND (store = frmmainmenu.cmbstore.Text) then begin if frmmaindataadmin.datasetlogin.Fields[3].AsString = '1' then frmmainmenu.mainmenu.Items[0].Enabled := true; frmmainmenu.mainmenu.Items[10].Enabled := true; frmmainmenu.mainmenu.Items[12].Enabled := true; pnlkunci.Visible := False; panel1.Visible := False; txtusername.Visible := False; txtpassword.Visible := False; cmbstore.Visible := False ; lbl1.Visible := True; img1.Visible := True; img2.Visible := True; if frmmaindataadmin.datasetlogin.Fields[4].AsString = '1' then frmmainmenu.mainmenu.Items[2].Enabled := true; frmmainmenu.mainmenu.Items[10].Enabled := true; frmmainmenu.mainmenu.Items[12].Enabled := true; pnlkunci.Visible := False; panel1.Visible := False; txtusername.Visible := False; txtpassword.Visible := False; cmbstore.Visible := False ; lbl1.Visible := True; img1.Visible := True; img2.Visible := True; if frmmaindataadmin.datasetlogin.Fields[5].AsString = '1' then frmmainmenu.mainmenu.Items[4].Enabled := true; frmmainmenu.mainmenu.Items[10].Enabled := true; frmmainmenu.mainmenu.Items[12].Enabled := true; pnlkunci.Visible := False; panel1.Visible := False; txtusername.Visible := False; txtpassword.Visible := False; cmbstore.Visible := False ; lbl1.Visible := True; img1.Visible := True; img2.Visible := True; if frmmaindataadmin.datasetlogin.Fields[6].AsString = '1' then frmmainmenu.mainmenu.Items[6].Enabled := true; frmmainmenu.mainmenu.Items[10].Enabled := true; frmmainmenu.mainmenu.Items[12].Enabled := true; pnlkunci.Visible := False; panel1.Visible := False; txtusername.Visible := False; txtpassword.Visible := False; cmbstore.Visible := False ; lbl1.Visible := True; img1.Visible := True; img2.Visible := True; if frmmaindataadmin.datasetlogin.Fields[7].AsString = '1' then frmmainmenu.mainmenu.Items[8].Enabled := true; frmmainmenu.mainmenu.Items[10].Enabled := true; frmmainmenu.mainmenu.Items[12].Enabled := true; pnlkunci.Visible := False; panel1.Visible := False; txtusername.Visible := False; txtpassword.Visible := False; cmbstore.Visible := False ; lbl1.Visible := True; img1.Visible := True; img2.Visible := True; procedure Tfrmmainmenu.FormShow(Sender: TObject); begin frmmainmenu.mainmenu.Items[0].Enabled := False; frmmainmenu.mainmenu.Items[2].Enabled := False; frmmainmenu.mainmenu.Items[4].Enabled := False; frmmainmenu.mainmenu.Items[6].Enabled := False; frmmainmenu.mainmenu.Items[8].Enabled := False; frmmainmenu.mainmenu.Items[10].Enabled := False; frmmainmenu.mainmenu.Items[12].Enabled := False; end; Semoga dapat membantu