Temen2 saya mo nanya neh: Gemana caranya biar kita bisa input data langsung di grid dengan validasi. misal: saat transaksi penjualan. ketika kita ngetik kode trus muncul nama barang disampingnya, dan ketika kita masukan jumlah, langsung muncul totalnya. trus ditambahin tombol untuk browse kode barang pada grid tersebut. makasih sebelumnya.

buat ajha spt : tp itu hrs terkoneksi dgn dbase yg diinginkan,(dsource, adotable en adoconection) dn sptnya gambararanya ada dithread sebleum2nya klo ngga... liat contohnya dgn post2 yg pnah aku buat :) sbp aku lg ngerjain spt ini :) sampe...... yaa ngga lama siy.. hehehe klo browse kode..? kyknya ngga usah.. pake ajha pencarian dgn FIND

kalo mo nama barang bisa keluar sisampingnya tinggal buat Lookup Field dengan keyFields Kode_Barang, dan LookupDataset tablebarang, LookupKeyFiled : Kode_Barang, LookupResultField Nama_Barang dari Master Barang. Dan klo mo menampilkan lookup pada kode, buat lookup filed Kode_Barang dengan Result Kode_Barang dengan seperti itu, bisa diplih kode_barang dan Nama_barang terserah user, data data akan selalu sinkron.

wah makasih atas infonya :P . cuman masalahnya saya masih sangat awan dengan istilah2 seperti LookupDataset dsb. maklum saya baru migrasi dari vb ke delphi :oops: . untuk saat ini biasanya saya pake database paradox dengan pembuatan tabel saat runtime (dari help delphi). jadi untuk pencarian saya biasa menggunakan query. selain itu saya menggunakan database mysql dengan menggunakan myodbc. klo bisa neh, ada sedikit tutor ato contoh aplikasinya. biar nanti saya yg kembangkan. nanti klo udah berhasil insya allah saya posting kesini. makasih atas perhatiannya.

Ya uda tak Coba Bantu...

kalo mo nama barang bisa keluar sisampingnya tinggal buat Lookup Field dengan keyFields Kode_Barang, dan LookupDataset tablebarang, LookupKeyFiled : Kode_Barang, LookupResultField Nama_Barang dari Master Barang. Dan klo mo menampilkan lookup pada kode, buat lookup filed Kode_Barang dengan Result Kode_Barang dengan seperti itu, bisa diplih kode_barang dan Nama_barang terserah user, data data akan selalu sinkron.

Klu Untuk Lookup Field Udah benar yang dikatakan Akhi fafaneil...itu Juga Mesti Doubleclick Agar Bisa Muncul data Yang sudah diinput sebelumnya...Klu Untuk

saat transaksi penjualan. ketika kita ngetik kode trus muncul nama barang disampingnya, dan ketika kita masukan jumlah, langsung muncul totalnya. trus ditambahin tombol untuk browse kode barang pada grid tersebut.

Proses Yang Ini Ana Rasa Jangan DiDBgrid Coz Beda Diluar fungsi DbGrids...Nah Klu Hanya untuk Sekedar Innsert,Save,Delete,edit..dll ana bikin contoh sederhana aja ...Kira2 Tampilannya seperti ini Nah..Lumayan Lah.... Sorce Codenya..seperti Ini.....

procedure TForm1.Button1Click(Sender: TObject);// Insert Data
begin
 dbgrid1.DataSource.DataSet.Append;
 dbgrid1.SetFocus;
end;
procedure TForm1.Button2Click(Sender: TObject);//Save Data
begin
  dbgrid1.DataSource.DataSet.UpdateRecord;
end;
procedure TForm1.Button3Click(Sender: TObject);//Delete Data 
begin
   dbgrid1.DataSource.DataSet.Delete;
   dbgrid1.DataSource.DataSet.FindNext;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
   dbgrid1.DataSource.DataSet.Edit;//Edit Data
end;

Nah..Dipersilahkan...xixixixixi Kata2 Akhi Ulil Wakakakakakaka NB : Maaf Downloadtannya nga ada..Situs Ana Disuspend ama Mas Ulil Mas Ulil Jahat...wakakakakka Keterangan : Ini Menggunakan Database Acsess..silakan Terapkan ndiri Mau pake Database apa aja..wakakakaka

oot 2 saysansay

NB : Maaf Downloadtannya nga ada..Situs Ana Disuspend ama Mas Ulil Mas Ulil Jahat...wakakakakka

kok diriku? coba kontak langsung ma servermerdeka dong deh.. pasti situs-nya ga pernah update yah.. :)

Proses Yang Ini Ana Rasa Jangan DiDBgrid Coz Beda Diluar fungsi DbGrids...Nah Klu Hanya untuk Sekedar Innsert,Save,Delete,edit..dll

wah2... makacih2.... cuman gebini eh salah maksudnya begini: tabel barang itu sudah ada isinya (bukan input data ke tabel barang). klo saya biasa pake query begini:

procedure tform1.cari(cari :  string);
begin
   query1.sql.clear;
   query1.sql.add('select * from tabel barang where kode='+quotedstr(cari));
   query1.open;
   namabarang.caption:='';
   if query1.recordcount>0 then namabarang.caption:=query1['namabarang'];
end;

nah begitu kira2. cuman saya maunya searching pas di grid. saya pernah lihat contoh aplikasinya di toko/swalayan. tapi klo memang susah ya ga usah aja :roll: lha saya cuman pengin belajar koq. ntar mungkin ketemu sendiri biasanya . :idea: maklumlah belajar delphi dari nol secara otodidak.

hello mumpung lagi ngomongin masalah input di dbgrid ada yg aku tanyakan. tapi saya bikin dengan cara mencari data di Tedit dan jika ketemu ditampilkan di DBGrid dan pertanyaan saya: 1. mengapa waktu data tampil di dbgrid , data terakhir yg dimasukkan ditampilkan diatas data pertama yg dimasukkan. kalo di supermarket kan kelihatan barang yg di scan pasti kelihatan di bawah kode barang yang dimasukkan sebelumnya. yang saya alami malah kebalikannya. nah gimana caranya nya. 2.contoh kita scan barang A dan tampil di DBgrid jumlah kelihatan 1 pcs. nah jika kita scan lagi barang A maka di bagian jumlah nantinya langsung berubah menjadi 2. artinya kode barang A ada satu dengan jumlah 2 meskipun kita scan dua kali (digabung gitu). dan jumlah harganya nantinya perkalian antatra harga dan jumlah terakhir. kolom di dbgrid saya bikin Barcode, Kode, Harga, Banyak, Jumlah dan field di table tmpbeli saya bikin sama. bisa kasi tahu caranya. saya pake DB mysql thank's b4

wah ternyata ada juga topik ini tapi saya belum mudeng juga euy.. pertanyaannya sih sama apa yang ditanyain ayocool... gimana caranya ketika saya inputkan kode_barang descp barangnya muncul di field sebelahnya lalu cursornya nunjuk ke field qty?..setelah qty terisi maka cursor langsung nunjuk ke record selanjutnya (kode barang)..data brangnya ngambil dari table mstr_barang..Setelah di klik tmbl simpan maka datanya masuk ke tabel transaksi dan mengurangi stock yang ada di mstr_barang berdasarkan kode_barangnya.. komponen yg dipake dbgrid/stringgrid? Boleh minta contohnya ga?

Perpindahan column dan row pada stringgrid setelah pengetikan atau scan barcode, gunakan event keypress

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var g:TGridRect;
    namabarang,kodebarang:String;
begin
    if Key =#13then begin
       g:=StringGrid1.Selection;//ambil cell aktif
       //contoh colum 1 adalah input kodebarang
       if g.Left =1 then
       begin
          Key :=#0;
          //ambil kodebarang
          kodebarang:= StringGrid1.Cells[g.left,g.top];
          //cari kode barang di table masterbarang
          if AdoQuery.locate('kodebarang',kodebarang,[locase..])=true then
          begin
             namabarang :=AdoQuery.findfield('descp').asstring;
             //letakkan nama barang di column nama barang
             StringGrid1.Cells[g.Left +1,g.Top]:=namabarang;
             //move cursor to qty column
             StringGrid1.Col:= <kolumn qty>;
          end else begin
            //error handle : kodebarang not found
          end;
       end else
       if g.Left = <kolumn qty> begin
          Key :=#0;
          //tambahkan variabel baris
          g.Top :=g.top+1;
          //cek jika baris melebihi jumlah baris stringgrid
          if g.Top > StringGrid1.RowCount -1 then
              //tambahkan baris
          //pindahkan cursor  ke kolum kode barang
          StringGrid1.Col :=1;
          StringGrid1.Row :=g.Top
       end;
    end;
end;

Tombol simpan..hehe..di coba sendiri dulu ya.. :D