Senin, 15 Juni 2015

Cara Membuat Coding Simpan dengan Delphi7 + Microsoft Database Access

Berjumpa lagi dengan saya Een Pahlevi, kali ini saya akan menulis sebuah catatan kecil mengenai saya belajar pemprograman delphi7, disini saya menggunakan Microsoft Access Database 2013 sebagai database penyimpanan data nya. 

Baiklah, saya anggap anda sudah bisa mendesain sebuah form sederhana, seperti gambar disamping ini.

Logika program nya seperti ini



1. Jika inputan username atau password kosong maka pesan akan muncul inputan anda masih kosong
2. Jika inpuan username atau password sudah di inputkan, tetapi data username sudah ada di database maka akan muncul pesan "username sudah ada"
3. Jika inputan username sudah di inputkan, dan username tidak ada yang sama didalam database maka username dan password tersebut bisa di simpan didalam database

procedure TForm5.btndaftarClick(Sender: TObject);
begin
  if edtuser.Text='' then
    begin
    MessageDlg('Username masih kosong',mtError,[mbOK],0);
    edtuser.SetFocus;
    end else
  if edtpass.Text='' then
    begin
    MessageDlg('Password masih kosong',mtError,[mbOK],0);
    edtpass.SetFocus;
    end else
  if DataModule1.qry_users.Locate('username',edtuser.Text,[]) then
    begin
    MessageDlg('Maaf username sudah ada',mtError,[mbOK],0);
    end else
  begin
    DataModule1.qry_users.Append;
    DataModule1.qry_users.FieldByName('username').AsString:=edtuser.Text;
    DataModule1.qry_users.FieldByName('password').AsString:=edtpass.Text;
    DataModule1.qry_users.Post;
    ShowMessage('Data berhasil di simpan');
    edtuser.Clear;
    edtpass.Clear;
  end;
end;
end.

0 comments:

Posting Komentar

Bank Saya

Pembayaran melalui Bank berikut :

Norek : 013 1 001384 5
An. Een Pahlefi

Norek BRI Rencana : 0623 01 000074-55-6
An. Een Pahlefi

Norek : 0623 01 015938 50 9
An. Een Pahlefi

Norek : 0623 01 015938 50 9
An. Een Pahlefi

Norek : 0623 01 015938 50 9
An. Een Pahlefi

Norek : 0623 01 015938 50 9
An. Een Pahlefi

Google+ Followers

Monitoring

Status Panel Admin
Jam Sekarang
Tanggal
Salam Sapa :
Status Admin :
User : User Online

Popular Posts