 |
| DESIGN FORM MASTER USER |
Komponen
|
Name
|
Caption
|
Password Char
|
|
Edit1
|
Ed_user
|
-
|
||
Edit2
|
Ed_password
|
-
|
*
|
|
Button1
|
Btn_tambah
|
Tambah
|
||
Button2
|
Btn_edit
|
Edit
|
||
Button3
|
Btn_hapus
|
Hapus
|
||
Button4
|
Btn_selesai
|
Selesai
|
||
Button5
|
Btn_simpan
|
Simpan
|
||
Panel1
|
Panel 1
|
-
|
||
Zquery1
|
quser
|
Connection :
dm.koneksidb
SQL : select * from user
|
||
Data source
|
dsuser
|
Dataset : Quser, Allign : All Client
|
||
dbgrid
|
griduser
|
Data Sorce :
dsuser
|
||
Modul
|
Global unit_master
|
Coding
var
Fuser: TFuser;
sts:smallint;
implementation
uses unit_modul_data;
|
|
Komponen
|
Form
|
Event
|
On Close
|
Coding
|
Quser.close
|
Komponen
|
Form
|
Event
|
On Show
|
Coding
|
quser.Close;
quser.open;
panel1.Enabled:=true;
panel2.Enabled:=true;
panel3.Visible:=false;
ed_user.Text := '';
ed_password.Text
:= '';
|
Komponen
|
Tombol Tambah
|
Event
|
On Click
|
Coding
|
panel1.Enabled:=false;
panel2.Enabled:=false;
panel3.Visible:=true;
|
Komponen
|
Tombol
Simpan
|
Event
|
On Click
|
Coding
if (ed_user.Text =
'') or (ed_password.Text='') then
begin
application.MessageBox ('Lengkapi data
Terlebih Dahulu..','SIMKorin',MB_ok + MB_NOFOCUS + MB_ICONERROR);
ed_user.SetFocus;
exit;
end;
if sts=1 then
begin //tambah data
with dm.qr do
begin
close;
sql.Clear;
sql.Add('insert into
user(name,pass)values("'+Ed_user.Text+'",md5("'+Ed_password.Text+'"))
');
ExecSQL;
ShowMessage('tambah data
berhasil..');
close;
end;
end;
if sts=0 then
begin //edit data
with dm.qr do
begin
close;
sql.Clear;
sql.Add('update user set
name="'+Ed_user.Text+'",pass=md5("'+Ed_password.Text+'")
where name="'+quser['name']+'" ');
ExecSQL;
ShowMessage('edit data
berhasil..');
close;
end;
end;
quser.Refresh;
panel1.Enabled:=true;
panel2.Enabled:=true;
panel3.Visible:=false;
|
|
Komponen
|
Tombol Batal
|
Event
|
On Click
|
Coding
|
panel3.Hide;
panel1.Enabled :=
true;
panel2.Enabled :=
true;
|
Komponen
|
Tombol
Edit
|
Event
|
On Click
|
Coding
panel1.Enabled:=false;
panel2.Enabled:=false;
panel3.Visible:=true;
ed_user.Text:=quser['name'];
ed_password.clear;
sts:=0;
|
|
Komponen
|
Tombol
Hapus
|
Event
|
On Click
|
Coding
if quser.Active and not quser.IsEmpty
then
begin
with dm.qr do
begin
close;
sql.Clear;
sql.Add('delete from user where
name="'+quser['name']+'" ');
ExecSQL;
ShowMessage('Hapus data
berhasil..');
close;
end;
quser.Refresh;
end;
|
|
Komponen
|
Tombol Batal
|
Event
|
On Click
|
Coding
|
application.Terminate;
|
 | ||
| ADD DATA USER |
 |
| VALIDASI DATA |
 |
| EDIT DATA USER |