Arsip: tanya, supaya proses bisa berulang-ulang..

 
user image
more 10 years ago

suwarno

{$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 :)
user image
more 10 years ago

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
user image
more 10 years ago

suwarno

@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
user image
more 10 years ago

ImanD

tambahkan TADOQuery satu lagi(misal: ADOQueryBarangUpdate) yang berfungsi khusus update data barang, mudah2an clear masalahnya.
user image
more 10 years ago

suwarno

@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...
user image
more 10 years ago

ImanD

coba cek DBKodeBarang nyambungnya ke mana? table/query nya di refresh/close open az!
user image
more 10 years ago

suwarno

@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
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com