- Beranda
- Komunitas
- Tech
- Programmer Forum
[DELPHI PROGRAMMING] Bikin Program Buat System Management Bengkel [2]
TS
dfasto_corp
[DELPHI PROGRAMMING] Bikin Program Buat System Management Bengkel [2]
Selamat siang juragan semua.. sambil menikmati roti tawar + keju dan ditemani secangkir kopi, enaknya nulis lagi disini nih...
Oia yang mau lihat eps sebelumnya bisa di klik dibawah ini ya
Oke..
Kemarin kita sudah nulis soal apa sih isi dari si form Administrasi ini, nah.. sekarang ini ane mau coba nulis lebih detail soal si tab "User".
![[DELPHI PROGRAMMING] Bikin Program Buat System Management Bengkel [2]](https://s.kaskus.id/images/2021/07/01/913153_20210701124004.JPG)
Seperti yang juragan semua bisa lihat, sedikit banget componen yang dipakai disini, mostly TLable, TEdit, TImage, dan beberapa componen untuk menyambungkan dengan database, bicara soal database ini ane pakai yang sederhana banget ya.
Pada Intinya form ini dipakai untuk mendaftarkan user yang akan mengakses si program ini, biar bisa log in gitu...
Nah karena intinya adalah mendaftarkan, ane akan kutip source code yang disematkan pada Button Submit pada event onClick nya.
Kurang lebih seperti itu lah... Mungkin sampe sini dulu ya update kali ini, tar ane bikin lagi lanjutan prosesnya, kebetulan roti dan habis tinggal kopinya doang..
Oia seperti biasa ane sangat mengharapkan masukan dari agan - agan sekalian.
Terimakasih sudah mampir.. sampai jumpa lagi ya...
Oia yang mau lihat eps sebelumnya bisa di klik dibawah ini ya
Spoiler for Eps 01:
Oke..
Kemarin kita sudah nulis soal apa sih isi dari si form Administrasi ini, nah.. sekarang ini ane mau coba nulis lebih detail soal si tab "User".
Seperti yang juragan semua bisa lihat, sedikit banget componen yang dipakai disini, mostly TLable, TEdit, TImage, dan beberapa componen untuk menyambungkan dengan database, bicara soal database ini ane pakai yang sederhana banget ya.
Pada Intinya form ini dipakai untuk mendaftarkan user yang akan mengakses si program ini, biar bisa log in gitu...
Nah karena intinya adalah mendaftarkan, ane akan kutip source code yang disematkan pada Button Submit pada event onClick nya.
Quote:
procedure TFAdm.BUSubmitClick(Sender: TObject);
var
Gambar:TMemoryStream;
KTP : string;
begin
KTP := EUKTP.Text;
With ADOQUERY1 do
begin
Close;
SQL.Text := 'Select * From TUser where KTP = '+ QuotedStr(KTP);
Active := True;
end;
if (ADOQuery1.RecordCount=0) then
begin
With ADOQUERY1 do
Begin
Close;
SQL.Text := 'Select * From TUser where User_Name =' + QuotedStr(EUserName.Text);
Active := True;
End;
if (ADOQuery1.RecordCount=0) then
begin
try
Gambar := TMemoryStream.Create;
IUser.Picture.Graphic.SaveToStream(Gambar);
With ADOQUERY1 do
begin
Close;
SQL.Clear;
SQL.Text := 'Insert Into TUser (Name,KTP,Phone,Email,Address,User_Name,Pass,Account_Type,Photo) values (
0, 1, 2, 3, 4, 5, 6, 7, 8)';
Parameters[0].Value := EUName.Text;
Parameters[1].Value := EUKTP.Text;
Parameters[2].Value := EUPhone.Text;
Parameters[3].Value := EUEmail.Text;
Parameters[4].Value := MUAddress.Text;
Parameters[5].Value := EUserName.Text;
Parameters[6].Value := EUPass.Text;
Parameters[7].Value := CBUType.Text;
Parameters[8].LoadFromStream(Gambar,ftBlob);
ExecSQL;
ShowMessage('Data Telah Tersimpan');
EUName.Clear;
EUKTP.Clear;
EUPhone.Clear;
EUEmail.Clear;
MUAddress.Clear;
EUSerName.Clear;
EUPass.Clear;
CBUType.Clear;
IUser.Picture:=nil;
end;
Except
on E:Exception do
ShowMessage('Maaf Terjadi Kesalahan '+#13+'Error : '+E.Message);
end;
end
else
Begin
ShowMessage('User Name Sudah Terdaftar');
End;
end
Else
Begin
ShowMessage('User Sudah Terdaftar');
End;
end;
var
Gambar:TMemoryStream;
KTP : string;
begin
KTP := EUKTP.Text;
With ADOQUERY1 do
begin
Close;
SQL.Text := 'Select * From TUser where KTP = '+ QuotedStr(KTP);
Active := True;
end;
if (ADOQuery1.RecordCount=0) then
begin
With ADOQUERY1 do
Begin
Close;
SQL.Text := 'Select * From TUser where User_Name =' + QuotedStr(EUserName.Text);
Active := True;
End;
if (ADOQuery1.RecordCount=0) then
begin
try
Gambar := TMemoryStream.Create;
IUser.Picture.Graphic.SaveToStream(Gambar);
With ADOQUERY1 do
begin
Close;
SQL.Clear;
SQL.Text := 'Insert Into TUser (Name,KTP,Phone,Email,Address,User_Name,Pass,Account_Type,Photo) values (
0, 1, 2, 3, 4, 5, 6, 7, 8)';Parameters[0].Value := EUName.Text;
Parameters[1].Value := EUKTP.Text;
Parameters[2].Value := EUPhone.Text;
Parameters[3].Value := EUEmail.Text;
Parameters[4].Value := MUAddress.Text;
Parameters[5].Value := EUserName.Text;
Parameters[6].Value := EUPass.Text;
Parameters[7].Value := CBUType.Text;
Parameters[8].LoadFromStream(Gambar,ftBlob);
ExecSQL;
ShowMessage('Data Telah Tersimpan');
EUName.Clear;
EUKTP.Clear;
EUPhone.Clear;
EUEmail.Clear;
MUAddress.Clear;
EUSerName.Clear;
EUPass.Clear;
CBUType.Clear;
IUser.Picture:=nil;
end;
Except
on E:Exception do
ShowMessage('Maaf Terjadi Kesalahan '+#13+'Error : '+E.Message);
end;
end
else
Begin
ShowMessage('User Name Sudah Terdaftar');
End;
end
Else
Begin
ShowMessage('User Sudah Terdaftar');
End;
end;
Kurang lebih seperti itu lah... Mungkin sampe sini dulu ya update kali ini, tar ane bikin lagi lanjutan prosesnya, kebetulan roti dan habis tinggal kopinya doang..
Oia seperti biasa ane sangat mengharapkan masukan dari agan - agan sekalian.
Terimakasih sudah mampir.. sampai jumpa lagi ya...
0
201
0
Komentar yang asik ya
Komentar yang asik ya
Komunitas Pilihan