Simpan dan tampil data dengan Delphi+SQL Server

Setelah belajar koneksi delphiPrinsip dasar pembuatan Keylogger. Read more ... » denganTrik Aman Berinternet I. Read more ... » SQL Server, kaliMenjalankan Aplikasi Android di Windows. Read more ... » ini sayaCara Mudah Compilasi File Java. Read more ... » akan coba sedikit share bagaimana caraMenjalankan Aplikasi Android di Windows. Read more ... » 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 untukTrik Aman Berinternet I. Read more ... » 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

    Tabel Barang

  • Buat form seperti berikut yangPengumuman Calon Asisten Praktikum Basisdata. Read more ... » berisi : Adoconnectio (tab Ado), 2 adoquery (tab ADO), 1 datasource (tab data access) dan dbgrid (tab data Control).

    Form Simpan View Delphi

    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 :
    +++++++++++++++++ STARTMembuka Command Prompt mode Administrator. Read more ... » 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

Kolom DbGrid

Object Inspector

Object Inspector

Sekian dulu yah…
mau ujian PW.WKWKWK
by 1n53ct4

Posted in Delphi 7, Programing, SQL SERVER and tagged , , .