Membuat 2 form yang saling berinteraksi

Ini terjadi pada saat kita mau entry data transaksi stok, untuk mempermudah pengisian kode stok, kita tingal tampilkan data stok tersebu dan cukup di click and stok tsb akan masuk ke form transaksi tanpa unload.....
sorry kalu kurang sempurna, silahkan teman tambahkan..
**
Nih aku kasih sourcenya sedikit yaaa
Pada saat click tambah.
****
DO FORM fr_pr_add NAME FR_PR_ADD1 WITH "TAMBAH"
thisform.init_pr_grid()
thisform.grid_new1.setfocus()

****
DO FORM FR_GRID_STK NAME FR_GRID_STK1


****
SELECT cur_rstk
SCATTER memvar
IF fmode = "EDIT"
INSERT INTO cur_tdpr(stk_cde, stk_des, uom_cde, req_qty);
values(m.stk_cde,m.exp_2, m.uom_cde, 0)
fr_pr_add1.refresh
ELSE
SELECT tmp_cur
INSERT INTO tmp_cur(stk_cde, stk_des, uom_cde, req_qty);
values(m.stk_cde,m.exp_2, m.uom_cde, 0)
SELECT * from tmp_cur ORDER BY stk_cde DESC INTO CURSOR cur_tdpr READWRITE
fr_pr_add1.Grid1.RecordSourceType = 1
fr_pr_add1.Grid1.RecordSource = "cur_tdpr"
fr_pr_add1.grid1.ColumnCount = 5

fr_pr_add1.grid1.column1.header1.Caption = "KODE"
fr_pr_add1.grid1.column1.Width = 65
fr_pr_add1.grid1.column1.alignment = 0
fr_pr_add1.grid1.column1.ReadOnly = .F.

fr_pr_add1.grid1.column2.header1.Caption = "NAMA BARANG"
fr_pr_add1.grid1.column2.Width = 240
fr_pr_add1.grid1.column2.alignment = 0

fr_pr_add1.grid1.column3.header1.Caption = "UNIT SAT."
fr_pr_add1.grid1.column3.Width = 65
fr_pr_add1.grid1.column3.alignment = 0

fr_pr_add1.grid1.column4.header1.Caption = "JUMLAH"
fr_pr_add1.grid1.column4.Width = 80
fr_pr_add1.grid1.column4.alignment = 1

fr_pr_add1.grid1.column5.header1.Caption = "KETERANGAN"
fr_pr_add1.grid1.column5.Width = 230
fr_pr_add1.grid1.column5.alignment = 0
fr_pr_add1.grid1.column5.text1.format = "!"

fr_pr_add1.grid1.column1.ReadOnly = .F.

fr_pr_add1.refresh
endif

Read More......

Merubah directory

Banyak hal yang membuat directory pada komp kita tidak beraturan seperti dari (A, C, D, F..)
sehingga kadang apabila mo manambah new harddrive tidak terdetect lagi directorynya, nah kita susun aja directorynya menjadi (A, B, C, D, E)
caranya..
Click kanan mycomputer --> Manage --> Disk Management --> click kanan drive yang akan dirubah --> change drive later and paths --> change --> masukan drive sesuai dengan kehendak.

Read More......

Mempercepat startup

Bosan dengan startup yang terlalu lama, mungkin terlalu banyak data yang diload, salah satu untuk mengatasinya buka aja msconfig, pilih startup--> matikan/uncentang yang tidak akan diload waktu restart... boot ulang komputer, lumayan cepat kan

Read More......

mIRC ngak cuma untuk chating

Selama ini mIRC yang aku kenal cuma buat chating, ternyata ngak looo, bisa untuk download mp3. banyak juga nihhh dpt lagu2 baru dari mIRC., jadi telingga ngak rada ketingalan pendengaran.
gimana caranya...?
1. Install dulu dont mIRC(wakakakakaaka, ya iyalah rekkkk)
2. Log in ke mIRC, masuk ke server EFnet
3. Masuk ke channel indomp3z.
setelah conect gimana cara mencari lagi favorite kita..?
di Publick room
1. ketik aja @find... Judul lagu.mp3 ( @find andai ku tahu.mp3) setelah ada server or teman yang balas or kasih tau bahwa dia ada.
2. Masuk ke server or room teman tsb dan hilight dari namaserver sampai judul lagu yang mo didownload (!gila unggu andai ku tahu.mp3) tekan control C (ctr + c) mouse jangan dilepas.
3. Paste kan ke public room, ntar ada reaksi dari yang memberi, click aja accept dan akan download otomatis.
sip dehhh
kalu ada yang salah tolong perbaiki.

Read More......

Virus Borax memang bikin pusing

Bukan hanya Pegi Melati sukma yang dibuat pusing, setiap orang bisa dibuat pusing oleh nihhh virus, sebab dia akan mendisable registry kita dan komputer name akan dirubah nama menjadi BoraxBoraxBoraxBoraxBoraxBoraxBoraxBorax. Pusinggggggggggggggggggggggg
cara mengatasinya. scan dulu komp dengan antivir avas, atau yang lainlah atau bisa juga degan Boraxremover.... untuk menenablekan registry ketik seperti dibawah ini dengan notpad save dengan nama run.vbs. trus jalankan aja dari command prompt
On Error Resume Next
'Prevents errors from values that don't exist
Set WshShell = WScript.CreateObjec

t("WScript.Shell")
'Delete DisableRegistryTools registry values

WshShell.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
WshShell.RegDelete"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"

'display message
Message = "You should have access to Regedit now"

X = MsgBox(Message, vbOKOnly, "Done")
Set WshShell = Nothing
Set fso = Nothing

untuk menganti nama komp Borax dengan sebenarnya masuk ke regedit

HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\Svchost

cari nama BoraxBoraxBoraxBoraxBorax, ganti dengan nama yang sebenarnya.

Nah itu saja kalu ada penambahan dari rekan2 silahkan.

Read More......