Simpan dan tampil data dengan Delphi+SQL Server

Setelah belajar koneksi delphi dengan SQL Server, kali ini saya akan coba sedikit share bagaimana cara menyimpan dan menampilkan data dengan Delphi dan SQL server, namun sebelumnya buka project koneksi delphi dengan sql server terlebih dahulu dan aktifkan SQL Service Manager untuk mengaktifkan Service SQL Server.
Langkah-langkah membuat dan menyimpan data sebagai berikut :

• Buka SQL Server Enterprise Manager, pada database ‘coba’, buat table ‘tb_brg’ dan isi dengan kolom seperti ini
  

  Tabel Barang
• Buat form seperti berikut yang berisi : Adoconnectio (tab Ado), 2 adoquery (tab ADO), 1 datasource (tab data access) dan dbgrid (tab data Control).
  

  Form Simpan View
• Tahap berikutnya klik datasource1, pada properties sambungkan dataset => qr_view (adoquery2), yang berfungsi untuk menyambungkan adoquery==>Dbgrid. Klik DBGrid sambungkan datasource==>Datasource1.
• Lahkah selanjutnya, isikan sintak pada tiap button :
  Button Koneksi :
  +++++++++++++++++ START SOURCE +++++++++++++++++
  try

  with ADOConnection1 do
    begin
      Connected:=false;
      ConnectionString:='Provider='+Edit1.Text+'.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+Edit2.Text;
      LoginPrompt:=false;
      Connected:=true;
    end;
    ShowMessage('koneksi Sukses dab...');
  except
    begin
      ShowMessage('Gagal Bro....'+#13+'Ulangi lagi yah...');
      Edit1.SetFocus;
    end;
  end;
  +++++++++++++++++ END CODE +++++++++++++++++
  

  Button Simpan
  
  

  +++++++++++++++++ START SOURCE +++++++++++++++++
  if (edit3.Text<>'') and (edit4.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') then
  begin
  try ADOConnection1.BeginTrans;
    with qr_free do
      begin
        Active:=False;
        sql.Clear;
        close;
        Connection:=ADOConnection1;
        sql.Add('Insert into tb_brg values('+QuotedStr(edit3.Text)+','+QuotedStr(edit4.Text)+','+Edit5.Text+','+Edit6.Text+')');
        ExecSQL;
      end;
      ADOConnection1.CommitTrans;
       ShowMessage('berhasil simpan');
  except
    ADOConnection1.RollbackTrans;
    ShowMessage('Gagal simpan');
  end;
  end
  else
    ShowMessage('Ups!!! Edit diisi doeloe donk...');
  +++++++++++++++++ END CODE +++++++++++++++++
  

  Button Tampilkan
  +++++++++++++++++ START SOURCE +++++++++++++++++
  
  

  try
  With qr_view do
    begin
      Active:=false;
      sql.Clear;
      close;
      Connection:=ADOConnection1;
      sql.Add('Select * from tb_brg');
      Active:=true;
    end;
  with DBGrid1 do
    begin
      Columns.Items[0].FieldName:='kd_brg';
      Columns.Items[1].FieldName:='nm_brg';
      Columns.Items[2].FieldName:='hrg_beli';
      Columns.Items[3].FieldName:='hrg_jual';
    end;
  except
    begin
      ShowMessage('Mungkin Belum Koneksi, silahkan Koneksi dulu yah?');
      edit1.SetFocus;
    end;
  end;

  +++++++++++++++++ END CODE +++++++++++++++++

Program tersebut belum jalan sebelum pada pada dbgrid dibuat kolom-kolom, untuk membuat kolom klik kanan dbgrid==>coloumn Editor. Klik new untuk membuat kolom baru, karena data yang akan ditampilkan 5 maka buat 5 kolom, atur kolom sesuai data yang akan ditampilkan di kolom tersebut, misal pada TColumn – 0 akan ditampilkan kode barang maka atur seperti dibawah.

Kolom DbGrid

Object Inspector

Sekian dulu yah…
mau ujian PW.WKWKWK

Artikel Terkait: