penggalan listing program pengaturan setting awal untuk aplikasi Inventory.
*program: Inventory.prg
parameters p1,p2,p3,p4,p5,p6,p7,p8,p9,p10
release all except p1
p1=iif(type(‘p1′)#’C',”,p1)
set procedure to invlib, prosedur
do setenv
set sysmenu to
if wexist(“Standard”)
deactivate window(“Standard”) &&-hide standard toolbar
endif
set status bar off
_screen.icon=”net01.ico”
_screen.caption = “Prog.AC Mobil”
_screen.width=1024
_screen.height=768
_screen.maxwidth=1024
_screen.maxheight=768
_screen.minwidth=1024
_screen.minheight=768
_screen.borderstyle=3
if sysmetric(21) <= 1024
_screen.left=0
_screen.top=44
_screen.maxbutton=.t.
_screen.windowstate=2
else
_screen.left=4
_screen.top=40
_screen.maxbutton=.f.
_screen.windowstate=0
endif
for i = 1 to 12
set function i to
endfor
on shutdown do tbl_keluar
***form name & variable***
public vp_company,vp_address,vp_npwp,;
vp_tanggal,vl_tanggal,;
DataPath,BackupPath,;
opsPeriode,opsGrid,opsStruk,;
opsPreview,IDPemakai,Terus
public Proses,pesan
public NamaForm[33]
NamaForm[ 1] = ‘Utama’
NamaForm[ 2] = ‘Pembelian’
NamaForm[ 3] = ‘Penjualan’
NamaForm[ 4] = ‘Koreksi’
NamaForm[ 5] = ‘Opname’
NamaForm[ 6] = ‘JualNotaBaru’
*
NamaForm[ 7] = ‘Barang’
NamaForm[ 8] = ‘Pemasok’
NamaForm[ 9] = ‘pelanggan’
NamaForm[10] = ‘Pemakai’
NamaForm[11] = ‘Stock’
NamaForm[12] = ‘Mutasi’
NamaForm[13] = ‘RekapBarang’
NamaForm[14] = ‘RekapKelompok’
NamaForm[15] = ‘RekapBulanan’
NamaForm[16] = ‘RekapTahunan’
NamaForm[17] = ‘HPPBarang’
NamaForm[18] = ‘HPPKelompok’
NamaForm[19] = ‘HPPBulanan’
NamaForm[20] = ‘BeliNota’
NamaForm[21] = ‘BeliBarang’
NamaForm[22] = ‘JualNota’
NamaForm[23] = ‘JualBarang’
NamaForm[24] = ‘TraSupl’
NamaForm[25] = ‘Brg2Supl’
NamaForm[26] = ‘Supl2Brg’
NamaForm[27] = ‘RekapSupl’
NamaForm[28] = ‘TraCust’
NamaForm[29] = ‘Brg2Cust’
NamaForm[30] = ‘Cust2Brg’
NamaForm[32] = ‘RekapCust’
NamaForm[33] = ‘Validasi’
for i = 1 to alen(NamaForm)
public Namaform[i]
endfor
vl_tanggal = vp_tanggal
IDpemakai = “”
Terus = .F.
*** Display screen layout ***
do form Utama NAME Utama LINKED
*Ciptakan window untuk print preview
opsPreview = ‘Pre’
DEFINE WINDOW (opsPreview) FROM 0,0 to 56,128.1;
SYSTEM CLOSE TITLE “Print Preview”
*** General/Option ***
*IF !FILE(‘Inventor.ocx’)
* OCX1=’DATA\’
* SAVE TO INVENTOR.OCX ALL LIKE OCX*
* DO FORM LDATA2
*ENDIF
restore from inventor.ocx additive
datapath = alltrim(iif(type(‘ocx1′)#’C',’wawhishdfisy’,ocx1))
release all like ocx*
_screen.caption = ‘Program AC MOBIL ‘ + ’88 SHOP’
Utama.tanggal.caption = NamaTgl(date())
i = “inventor.jpg”
if file(i)
@ 0,0 say i BITMAP CENTER
else
@ 0,0 say “Logo.jpg” BITMAP CENTER
endif
set path to (datapath)
DO MENU
do form login
if !empty(IDPemakai)
utama.IDPemakai.caption = ALLTRIM(IDpemakai)
utama.IDPemakai.BorderStyle = 1
= bunyi (1)
READ EVENTS
ELSE
dO tbl_keluar with .T.
endif
*program: Inventory.prg*Programmer : Rudy.Nparameters p1,p2,p3,p4,p5,p6,p7,p8,p9,p10release all except p1p1=iif(type(‘p1′)#’C',”,p1)
set procedure to invlib, prosedurdo setenv
set sysmenu toif wexist(“Standard”) deactivate window(“Standard”) &&-hide standard toolbarendifset status bar off_screen.icon=”net01.ico”_screen.caption = “Prog.AC Mobil”_screen.width=1024_screen.height=768_screen.maxwidth=1024_screen.maxheight=768_screen.minwidth=1024_screen.minheight=768_screen.borderstyle=3
if sysmetric(21) <= 1024 _screen.left=0 _screen.top=44 _screen.maxbutton=.t. _screen.windowstate=2else _screen.left=4 _screen.top=40 _screen.maxbutton=.f. _screen.windowstate=0endif
for i = 1 to 12 set function i toendfor
on shutdown do tbl_keluar
***form name & variable***public vp_company,vp_address,vp_npwp,; vp_tanggal,vl_tanggal,; DataPath,BackupPath,; opsPeriode,opsGrid,opsStruk,; opsPreview,IDPemakai,Teruspublic Proses,pesanpublic NamaForm[33]
NamaForm[ 1] = ‘Utama’NamaForm[ 2] = ‘Pembelian’NamaForm[ 3] = ‘Penjualan’NamaForm[ 4] = ‘Koreksi’NamaForm[ 5] = ‘Opname’NamaForm[ 6] = ‘JualNotaBaru’*NamaForm[ 7] = ‘Barang’NamaForm[ 8] = ‘Pemasok’NamaForm[ 9] = ‘pelanggan’NamaForm[10] = ‘Pemakai’NamaForm[11] = ‘Stock’NamaForm[12] = ‘Mutasi’NamaForm[13] = ‘RekapBarang’NamaForm[14] = ‘RekapKelompok’NamaForm[15] = ‘RekapBulanan’NamaForm[16] = ‘RekapTahunan’NamaForm[17] = ‘HPPBarang’NamaForm[18] = ‘HPPKelompok’NamaForm[19] = ‘HPPBulanan’NamaForm[20] = ‘BeliNota’NamaForm[21] = ‘BeliBarang’NamaForm[22] = ‘JualNota’NamaForm[23] = ‘JualBarang’NamaForm[24] = ‘TraSupl’NamaForm[25] = ‘Brg2Supl’NamaForm[26] = ‘Supl2Brg’NamaForm[27] = ‘RekapSupl’NamaForm[28] = ‘TraCust’NamaForm[29] = ‘Brg2Cust’NamaForm[30] = ‘Cust2Brg’NamaForm[32] = ‘RekapCust’NamaForm[33] = ‘Validasi’
for i = 1 to alen(NamaForm) public Namaform[i]endfor
vl_tanggal = vp_tanggalIDpemakai = “”Terus = .F.*** Display screen layout ***do form Utama NAME Utama LINKED
*Ciptakan window untuk print previewopsPreview = ‘Pre’DEFINE WINDOW (opsPreview) FROM 0,0 to 56,128.1; SYSTEM CLOSE TITLE “Print Preview” *** General/Option ****IF !FILE(‘Inventor.ocx’) * OCX1=’DATA\’* SAVE TO INVENTOR.OCX ALL LIKE OCX** DO FORM LDATA2*ENDIFrestore from inventor.ocx additivedatapath = alltrim(iif(type(‘ocx1′)#’C',’wawhishdfisy’,ocx1))release all like ocx*
_screen.caption = ‘Program Inventory ‘ + ’88 SHOP’Utama.tanggal.caption = NamaTgl(date())
i = “inventor.jpg”if file(i) @ 0,0 say i BITMAP CENTERelse @ 0,0 say “Logo.jpg” BITMAP CENTERendif
set path to (datapath)DO MENU
do form loginif !empty(IDPemakai) utama.IDPemakai.caption = ALLTRIM(IDpemakai) utama.IDPemakai.BorderStyle = 1 = bunyi (1) READ EVENTSELSEdO tbl_keluar with .T.endif
Konsep menjual di internet sebenarnya sama dengan bisnis offline (konvensional) seperti pada umumnya, yakni Anda bisa menjual apapun macam dan jenis produk yang ada di dunia offline.
