tambah,ubah,hapus,bersih,tampil,keluar

My connection

·        Name = conakademik

·        Database = dbakademik

·        Username = root

·        Loginprompt = false

·        Connected = true

My query

·        Name = qrymahasiswa

·        Sql = select * from mahasiswa

·        Active = true

My datasource

·        Name = dsmahasiswa

·        Dataset = qrymahasiswa

Button tambah

procedure TForm1.btntambahClick(Sender: TObject);

begin

  edtnim.Enabled := True ;

  with qrymahasiswa do

  begin

    Append;

    qrymahasiswa.FieldByName('nim').AsString := edtnim.Text ;

    qrymahasiswa.FieldByName('nama').AsString := edtnama.Text ;

    qrymahasiswa.FieldByName('alamat').AsString := edtalamat.Text ;

    qrymahasiswa.FieldByName('jenis_kelamin').AsString := cbbjk.Text ;

    qrymahasiswa.FieldByName('tempat_lahir').AsString := edttempatlahir.Text ;

    qrymahasiswa.FieldByName('tanggal_lahir').AsDateTime := dtptanggallahir.date ;

    qrymahasiswa.FieldByName('phone').AsString := edtphone.Text ;

    Post ;

  end;

end;

button ubah

procedure TForm1.btnUbahClick(Sender: TObject);

begin

  edtnim.Enabled :=False;

  with qrymahasiswa do

  begin

     Append;

    qrymahasiswa.FieldByName('nim').AsString := edtnim.Text ;

    qrymahasiswa.FieldByName('nama').AsString := edtnama.Text ;

    qrymahasiswa.FieldByName('alamat').AsString := edtalamat.Text ;

    qrymahasiswa.FieldByName('jenis_kelamin').AsString := cbbjk.Text ;

    qrymahasiswa.FieldByName('tempat_lahir').AsString := edttempatlahir.Text ;

    qrymahasiswa.FieldByName('tanggal_lahir').AsDateTime := dtptanggallahir.date ;

    qrymahasiswa.FieldByName('phone').AsString := edtphone.Text ;

    Post ;

  end;

end;

button hapus

procedure TForm1.btnhapusClick(Sender: TObject);

begin

  if MessageDlg('hapus baris aktif?',mtConfirmation,[mbYes,mbNo],0)=mryes then qrymahasiswa.Delete;

end;

button bersih

procedure TForm1.btnbersihClick(Sender: TObject);

begin

  edtnim.Clear;

  edtnama.Clear;

  edtalamat.Clear;

  cbbjk.Text :='';

  edttempatlahir.Clear;

  edtphone.Clear;

end;

button tampil

procedure TForm1.btntampilClick(Sender: TObject);

begin

  with qrymahasiswa do

  begin

    edtnim.text :=fieldbyname ('nim').asstring ;

    edtnama.text :=fieldbyname ('nama').asstring ;

    edtalamat.text :=fieldbyname ('alamat').asstring ;

    cbbjk.text:=fieldbyname ('jenis_kelamin').asstring ;

    edttempatlahir.text :=fieldbyname ('tempat_lahir').asstring ;

    dtptanggallahir.date :=fieldbyname ('tanggal_lahir').asdatetime ;

    edtphone.text :=fieldbyname ('phone').asstring ;

  end;

end;

button first

procedure TForm1.btnfirstClick(Sender: TObject);

begin

  qrymahasiswa.first;

end;

button prior

procedure TForm1.btnpriorClick(Sender: TObject);

begin

  qrymahasiswa.prior;

end;

button next

procedure TForm1.btnnextClick(Sender: TObject);

begin

  qrymahasiswa.next;

end;

button last

procedure TForm1.btnlastClick(Sender: TObject);

begin

  qrymahasiswa .last ;

end;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

Pada combobox jenis kelamin jangan lupa pada items isi pria dan wanita.