{$R .dfm} Procedure TFormTransaksi.Tampil ; BEGIN ADOQueryPenujualan.SQL.Clear ; ADOQueryPenujualan.SQL.Add('Select From PENJUALAN'); ADOQueryPenujualan.Open; END; procedure TFormTransaksi.BitBtnExitClick(Sender: TObject); begin Close; end; procedure TFormTransaksi.FormCreate(Sender: TObject); begin SG.RowCount:=1; SG.ColCount:=5; SG.Cells[0,0]:='NO'; SG.Cells[1,0]:='KODE BARANG'; SG.Cells[2,0]:='TANGGAL'; SG.Cells[3,0]:='JUMLAH JUAL'; SG.Cells[4,0]:='STOCK'; SG.ColWidths[0]:=33; SG.ColWidths[1]:=99; SG.ColWidths[2]:=99; SG.ColWidths[3]:=99; SG.ColWidths[4]:=99; end; procedure TFormTransaksi.BitBtnClearClick(Sender: TObject); begin EditNoFaktur.Clear; EditJumlahAmbil.Clear; DBEditNamaBarang.Clear; DBEditHarga.Clear; DBEditBanyakBarang.Clear; EditJumlahStokBarang.Clear; end; procedure TFormTransaksi.BitBtnProcesClick(Sender: TObject); VAR I:INTEGER; A,B,C:INTEGER; begin SG.RowCount:=SG.RowCount +1; SG.Cells:=DBKodeBarang.Text; SG.Cells:=DATETOSTR(DTPTanggalFaktur.DateTime); SG.Cells:=EditJumlahAmbil.Text; SG.Cells:=EditJumlahStokBarang.Text; FOR I:=1 TO SG.RowCount DO BEGIN END; SG.Cells[0,I]:=INTTOSTR(I); END; ======================================================= procedure TFormTransaksi.BitBtnSaveClick(Sender: TObject); VAR I:INTEGER; begin FOR I:=1 TO SG.RowCount -1 DO BEGIN ADOQueryPenujualan.SQL.Clear; ADOQueryPenujualan.SQL.Add('INSERT INTO PENJUALAN(NO_FAKTUR,KD_BARANG,TGL_FAKTUR,JUMLAH_JUAL)VALUES("'+ EditNoFaktur.Text+'","'+SG.Cells[1,I]+'","'+SG.Cells[2,I]+'","'+SG.Cells[3,I]+'")'); ADOQueryPenujualan.ExecSQL; // upadate banyak barang pada tabel barang ADOQueryBarang.SQL.Clear; ADOQueryBarang.SQL.Add('update BARANG set BANYAK_BARANG="'+ sg.Cells[4,i] +'" where KD_BARANG="'+ sg.Cells[1,i] +'"'); ADOQueryBarang.ExecSQL; TAMPIL; FormActivate(Sender); SG.RowCount:= -1 END; end; ======================================================= procedure TFormTransaksi.EditNoFakturKeyPress(Sender: TObject; var Key: Char); begin IF NOT(KEY=CHR(13)) THEN EXIT; DBKodeBarang.SetFocus; end; procedure TFormTransaksi.DBKodeBarangKeyPress(Sender: TObject; var Key: Char); begin IF NOT(KEY=CHR(13)) THEN EXIT; DBEditNamaBarang.SetFocus; end; procedure TFormTransaksi.DBEditNamaBarangKeyPress(Sender: TObject; var Key: Char); begin IF NOT(KEY=CHR(13)) THEN EXIT; DBEditHarga.SetFocus; end; procedure TFormTransaksi.DBEditHargaKeyPress(Sender: TObject; var Key: Char); begin IF NOT(KEY=CHR(13)) THEN EXIT; DTPTanggalFaktur.SetFocus; end; procedure TFormTransaksi.DTPTanggalFakturKeyPress(Sender: TObject; var Key: Char); begin IF NOT(KEY=CHR(13)) THEN EXIT; EditJumlahAmbil.SetFocus; end; procedure TFormTransaksi.ButtonHitungClick(Sender: TObject); VAR A,B,C:INTEGER; begin A:=STRTOINT(DBEditBanyakBarang.Text); B:=STRTOINT(EditJumlahAmbil.Text); C:=A-B; EditJumlahStokBarang.Text:=INTTOSTR(C); end; =================================================== ko kenapa ya pada waktu melakukan proses save data, proses hanya bisa dilakukan 1 kali... ketika mau melakukan nya lagi malah tombol kode barang (DBKodeBarang) mati... tidak bisa melakukan pengisian data.. bagaimana ya supaya proses save bisa dilakukan berulang2.. :D :) :D :D :)

procedure TFormTransaksi.BitBtnSaveClick(Sender: TObject);
VAR I:INTEGER;
begin
.
.
  TAMPIL;
  FormActivate(Sender); // <--
.
.
end; 

disitu ada perintah FormActivate(Sender); tapi procedure nya ga di sertakan, mungkin masalahnya ada di procedure tersebut

@ImanD:

procedure TFormTransaksi.BitBtnSaveClick(Sender: TObject);
VAR I:INTEGER;
begin
.
.
  TAMPIL;
  FormActivate(Sender); // <--
.
.
end; 

disitu ada perintah FormActivate(Sender); tapi procedure nya ga di sertakan, mungkin masalahnya ada di procedure tersebut

terima kasih mas... ketika sya matikan source code ini mas: // upadate banyak barang pada tabel barang ADOQueryBarang.SQL.Clear; ADOQueryBarang.SQL.Add('update BARANG set BANYAK_BARANG="'+ sg.Cells[4,i] +'" where KD_BARANG="'+ sg.Cells[1,i] +'"'); ADOQueryBarang.ExecSQL proses bisa dilakukan beberapa kali tapi tidak bisa mengupdate tabel barang, tapi kalo saya hidupkan lagi proses cuma 1 kali selanjutnya tidak bisa tapi bisa mengupdate data yang ada di tabel barang (DBKodeBarang menjadi disable) kalo masalahnya procedure di FormActivate(Sender); bagaimana ya mas seharusnya?? terima kasih :D :P :P :P :P :P :P

tambahkan TADOQuery satu lagi(misal: ADOQueryBarangUpdate) yang berfungsi khusus update data barang, mudah2an clear masalahnya.

@ImanD: tambahkan TADOQuery satu lagi(misal: ADOQueryBarangUpdate) yang berfungsi khusus update data barang, mudah2an clear masalahnya.

terima ksih banyak mas,program dah bener.. tapi ko kenapa ya combobox barang (DBKodeBarang) tidak langsung update setelah melakukan proses tadi.... program harus keluar dulu,di jalankan lagi baru dia update...

coba cek DBKodeBarang nyambungnya ke mana? table/query nya di refresh/close open az!

@ImanD: coba cek DBKodeBarang nyambungnya ke mana? table/query nya di refresh/close open az!

untuk DBBarang nyambung nya ke ADOQueryBarang, maksud di "refresh/close open az" maksud nya gimana ya mas.. code tambahan program apa yang harus ditambahkan??? terima kasih mas