//เพิ่มข้อมูลลูกค้�
procedure appcust
use customer
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
ans=0;ans1=0
do while .t.
if lastkey()=27
return
use
endif
_custid=0
go bottom
_custid=custid+1
_custname=space(25)
_custadd=space(30)
_custtel=space(10)
@ 2,25 say "[...โปรแกรมการเพิ่มลูกค้�...]"
@ 8,5 say "รหัสลูกค้า :" get _custid
set color to w/g,/w
@ 10,5 say "ชื่อลูกค้า :" get _custname
@ 12,5 say "ที่อยู� :" get _custadd
@ 14,5 say "โทรศัพท์XXX-xxxxx:" get _custtel
@ 22,5 clear to 22,70
@ 22,15 say "## ต้องการบันทึกหรือไม่ ##"
@ 22,50 prompt "[Yes]"
@ 22,60 prompt "[No]"
read
menu to ans1
if ans1=1
append blank
replace custid with _custid,custadd with _custadd,;
custname with _custname,custtel with _custtel
endif
@ 22,5 clear to 22,70
@ 22,15 say "ต้องการเพิ่มเติมต่อไปหรือไม่"
@ 22,50 prompt "[Yes]"
@ 22,60 prompt "[No]"
menu to ans
if ans=1
loop
else
return
endif
enddo
use
inkey(0)
restore screen from x
return
//=========================
//เพิ่มข้อมูลพนักงาน
procedure appemp
use employee
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
ans=0;ans1=0
do while .t.
if lastkey()=27
return
use
endif
_empid=0
go bottom
_empid=empid+1
_empname=space(25)
_empadd=space(30)
_position=space(15)
_salary=0
@ 2,25 say "[...โปรแกรมการเพิ่มพนักงาน...]"
set color to w/g,/w
@ 8,5 say "รหัส :" get _empid
@ 10,5 say "ชื่อ :" get _empname
@ 12,5 say "ที่อยู� ## :" get _empadd
@ 14,5 say "ตำแหน่� :" get _position
@ 16,5 say "เงินเดือ�:" get _salary
@ 22,5 clear to 22,70
@ 22,15 say "## ต้องการบันทึกหรือไม่ ##"
@ 22,50 prompt "[Yes]"
@ 22,60 prompt "[No]"
read
menu to ans1
if ans1=1
append blank
replace empid with _empid,empadd with _empadd,empname with _empname,;
position with _position,salary with _salary
endif
@ 22,5 clear to 22,70
@ 22,15 say "ต้องการเพิ่มเติมต่อไปหรือไม่"
@ 22,50 prompt "[Yes]"
@ 22,60 prompt "[No]"
menu to ans
if ans=1
loop
else
return
endif
enddo
use
inkey(0)
restore screen from x
return
//===================
//เพิ่มข้อมูลสินค้�
procedure apppro
use product
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
ans=0;ans1=0
do while .t.
if lastkey()=27
return
use
endif
_proid=0
go bottom
_proid=proid+1
_proname=space(25)
_proadd=space(30)
_quantity=0
_price=0
_cost=0
_reorder=0
@ 2,25 say "[...โปรแกรมการเพิ่มสินค้�...]"
set color to w/g,/w
@ 8,5 say "รหัสสินค้า :" get _proid
@ 10,5 say "ชื่อสินค้า :" get _proname
@ 12,5 say "จำนว� :" get _quantity
@ 14,5 say "ราคา/หน่ว� :" get _price
@ 16,5 say "ราคาทุ� :" get _cost
@ 18,5 say "จุดสั่งซื้� :" get _reorder
@ 22,5 clear to 22,70
@ 22,15 say "## ต้องการบันทึกหรือไม่ ##"
@ 22,50 prompt "[Yes]"
@ 22,60 prompt "[No]"
read
menu to ans1
if ans1=1
append blank
replace proid with _proid,quantity with _quantity,;
proname with _proname,price with _price,;
reorder with _reorder,cost with _cost
endif
@ 22,5 clear to 22,70
@ 22,15 say "ต้องการเพิ่มเติมต่อไปหรือไม่"
@ 22,50 prompt "[Yes]"
@ 22,60 prompt "[No]"
menu to ans
if ans=1
loop
else
return
endif
enddo
use
inkey(0)
restore screen from x
return
//==============================
//เพิ่มข้อมูลแฟ้มผู้จำหน่า�
procedure appsup
use supplier
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
ans=0;ans1=0
do while .t.
if lastkey()=27
return
use
endif
_suppid=0
go bottom
_suppid=suppid+1
_suppname=space(25)
_suppadd=space(30)
_supptel=space(10)
@ 2,25 say "[...โปรแกรมการเพิ่มผู้จำหน่า�...]"
set color to w/g,/w
@ 8,5 say "รหัสผู้จำหน่าย :" get _suppid
@ 10,5 say "ชื่อผู้จำหน่าย :" get _suppname
@ 12,5 say "ที่อยู� :" get _suppadd
@ 14,5 say "โทรศัพท์ XXX-xxxxx:" get _supptel
@ 22,5 clear to 22,70
@ 22,15 say "## ต้องการบันทึกหรือไม่ ##"
@ 22,50 prompt "[Yes]"
@ 22,60 prompt "[No]"
read
menu to ans1
if ans1=1
append blank
repl suppid with _suppid,suppadd with _suppadd,;
suppname with _suppname,supptel with _supptel
endif
@ 22,5 clear to 22,70
@ 22,15 say "ต้องการเพิ่มเติมต่อไปหรือไม่"
@ 22,50 prompt "[Yes]"
@ 22,60 prompt "[No]"
menu to ans
if ans=1
loop
else
return
endif
enddo
use
inkey(0)
restore screen from x
return
//===========================
//เพิ่มข้อมูลแฟ้มเจ้าหนี�
procedure apppay
use payable
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
ans=0;ans1=0
do while .t.
if lastkey()=27
return
use
endif
_suppid=0
_pay=0
_recid=0
_less=0
_date=ctod(" / / ")
@ 2,25 say "[...โปรแกรมการเพิ่มเจ้าหนี�...]"
set color to w/g,/w
@ 8,5 say "รหัสผู้จำหน่าย :" get _suppid
@ 10,5 say "รหัสใบรับสินค้� :" get _recid
@ 12,5 say "เงินที่จ่า� :" get _pay
@ 14,5 say "เงินค้างจ่าย :" get _less
@ 16,5 say "กำหนดชำระเงิ�(mm/dd/yy):" get _date
@ 22,5 clear to 22,70
@ 22,15 say "## ต้องการบันทึกหรือไม่ ##"
@ 22,50 prompt "[Yes]"
@ 22,60 prompt "[No]"
read
menu to ans1
if ans1=1
append blank
repl suppid with _suppid,recid with _recid,;
pay_money with _pay,;
pay_less with _less,date_paid with _date
endif
@ 22,5 clear to 22,70
@ 22,15 say "ต้องการเพิ่มเติมต่อไปหรือไม่"
@ 22,50 prompt "[Yes]"
@ 22,60 prompt "[No]"
menu to ans
if ans=1
loop
else
return
endif
enddo
use
inkey(0)
restore screen from x
return
//=============================
//เพิ่มข้อมูลแฟ้มลูกหนี้
procedure apprec
use receivab
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
ans=0;ans1=0
do while .t.
if lastkey()=27
return
use
endif
_custid=0
_saleid=0
_pay=0
_less=0
_datep=ctod(" / / ")
_datesale=ctod(" / / ")
_total=0
@ 2,25 say "[...โปรแกรมการเพิ่มลูกหนี้...]"
set color to w/g,/w
@ 6,15 say "รหัสลูกหนี� :" get _custid
@ 8,15 say "รหัสผู้ขาย :" get _saleid
@ 10,15 say "วันที่ขา� (mm/dd/yy): " get _datesale
@ 12,15 say "วันที่ชำระ(mm/dd/yy):" get _datep
@ 14,15 say "ยอดรวม :" get _total
@ 16,15 say "เงินที่ชำร� :" get _pay
@ 18,15 say "ยอดคงค้างชำร� :" get _less
@ 22,5 clear to 22,70
@ 22,15 say "## ต้องการบันทึกหรือไม่ ##"
@ 22,50 prompt "[Yes]"
@ 22,60 prompt "[No]"
read
menu to ans1
if ans1=1
append blank
repl custid with _custid,saleid with _saleid,date_sale with _datesale
// day_pay with _datep,total with _total,pay with _pay
//,less with _less
endif
@ 22,5 clear to 22,70
@ 22,15 say "ต้องการเพิ่มเติมต่อไปหรือไม่"
@ 22,50 prompt "[Yes]"
@ 22,60 prompt "[No]"
menu to ans
if ans=1
loop
else
return
endif
enddo
use
inkey(0)
restore screen from x
return
//===========================
//การแก้ไขลูกหนี�
procedure editrec
use receivab
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
ans1=0
do while .t.
_custid =0
ans=0
@ 2,25 say "[การแก้ไข�อมูลลูกหนี�]"
set color to b/gr,/w
@ 6,10 say "รหัสลูกหนี� # :" get _custid
read
locate for custid=_custid
if found()
_saleid=saleid
_datesale=date_sale
_datepay=date_pay
_total=total
_less=less
_pay=pay
@ 8,10 say "เลขที่ใบเสร็� :" get _saleid
@ 10,10 say "วันที่ขา� :" get _datesale
@ 12,10 say "กำหนดชำร� :" get _datepay
@ 14,10 say "ยอดรวม :" get _total
@ 16,10 say "เงินที่ชำร� # :" get _pay
@ 18,10 say "ยอดคงเหลือ #:" get _less
read
@ 22,10 clear to 22,75
@ 22,15 say " ต้องการบันทึกหรือไม่"
@ 22,50 prompt "[yes]"
@22,60 prompt"[no]"
menu to ans
if ans=1
repl saleid with _saleid ,date_sale with _datesale,;
date_pay with _datepay,total with _total,;
less with _less,pay with _pay
endif
else
@ 6,10 clear to 18,65
@ 11,25 to 13,60
@ 12,27 say "ลูกหนี้รหั�"+ltrim(str(_custid))+"ไม่พบในแฟ้มข้อมู�"
@ 22,10 clear to 22,75
endif
@ 22,10 clear to 22,75
@ 22,15 say "ต้องการแก้ไขต่อไปหรือไม่"
@ 22,50 prompt "[yes]"
@ 22,60 prompt "[no]"
menu to ans1
if ans1=1
@ 6,10 clear to 18,70
else
return
endif
enddo
use
inkey(0)
restore screen from x
return
//=========================
//แก้ไขข้อมูลพนักงาน
procedure editemp
use employee
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
ans1=0
do while .t.
_empid =0
ans=0
@ 2,25 say "[การแก้ไข�อมูลพนักงา�]"
set color to b/gr,/w
@ 6,10 say "รหัสพนีกงา�:" get _empid
read
locate for empid= _empid
if found()
_empname=empname
_empadd=empadd
_position=position
_salary=salary
@ 8,10 say "ชื่อ :" get _empname
@ 10,10 say "ที่อยู� :" get _empadd
@ 12,10 say "ตำแหน่� :" get _position
@ 14,10 say "เงินเดือ� #:" get _salary
read
@ 22,10 clear to 22,75
@ 22,15 say " ต้องการบันทึกหรือไม่"
@ 22,50 prompt "[yes]"
@22,60 prompt"[no]"
menu to ans
if ans=1
repl empname with _empname ,empadd with _empadd,;
position with _position,salary with _salary
endif
else
@ 6,10 clear to 18,65
@ 11,25 to 13,60
@ 12,27 say "พนักงานรหั�"+ltrim(str(_empid))+"ไม่พบในแฟ้มข้อมู�"
@ 22,10 clear to 22,75
endif
@ 22,10 clear to 22,75
@ 22,15 say "ต้องการแก้ไขต่อไปหรือไม่"
@ 22,50 prompt "[yes]"
@ 22,60 prompt "[no]"
menu to ans1
if ans1=1
@ 6,10 clear to 18,70
else
return
endif
enddo
use
inkey(0)
restore screen from x
return
//=========================
//การแก้ไขลูกค้า
procedure editcust
use customer
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
ans1=0
do while .t.
_custid =0
ans=0
@ 2,25 say "[การแก้ไข�อมูลลูกค้า]"
set color to b/gr,/w
@ 6,10 say "รหัสลูกค้า # :" get _custid
read
locate for custid= _custid
if found()
_custname=custname
_custadd=custadd
_custtel=custtel
@ 8,10 say "ชื่อลูกค้า # :" get _custname
@ 10,10 say "ที่อยู� :" get _custadd
@ 12,10 say "โทรศัพท์ # :" get _custtel
read
@ 22,10 clear to 22,75
@ 22,15 say " ต้องการบันทึกหรือไม่"
@ 22,50 prompt "[yes]"
@22,60 prompt"[no]"
menu to ans
if ans=1
repl custname with _custname ,custadd with _custadd,;
custtel with _custtel
endif
else
@ 6,10 clear to 18,65
@ 11,25 to 13,60
@ 12,27 say "ลูกค้ารหัส"+ltrim(str(_custid))+"ไม่พบในแฟ้มข้อมู�"
@ 22,10 clear to 22,75
endif
@ 22,10 clear to 22,75
@ 22,15 say "ต้องการแก้ไขต่อไปหรือไม่"
@ 22,50 prompt "[yes]"
@ 22,60 prompt "[no]"
menu to ans1
if ans1=1
@ 6,10 clear to 18,70
else
return
endif
enddo
use
inkey(0)
restore screen from x
return
//=========================
//แก้ไขข้อมูลสินค้�
procedure editpro
use product
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
ans1=0
do while .t.
_proid =0
ans=0
@ 2,25 say "[การแก้ไข�อมูลสินค้า]"
set color to b/gr,/w
@ 6,10 say "รหัสสินค้า:" get _proid
read
locate for proid= _proid
if found()
_proname=proname
_quantity=quantity
_price=price
_cost=cost
_reorder=reorder
@ 8,10 say "ชื่อสินค้า :" get _proname
@ 10,10 say "จำนวนในสต๊อก #:" get _quantity
@ 12,10 say "ราคา/หน่ว� :" get _price
@ 14,10 say "ราคาทุ� :" get _cost
@ 16,10 say "จุดสั่งซื้� :" get _reorder
read
@ 22,10 clear to 22,75
@ 22,15 say " ต้องการบันทึกหรือไม่"
@ 22,50 prompt "[yes]"
@22,60 prompt"[no]"
menu to ans
if ans=1
repl proname with _proname ,quantity with _quantity,;
price with _price,reorder with _reorder,;
cost with _cost
endif
else
@ 6,10 clear to 18,65
@ 11,25 to 13,60
@ 12,27 say "สินค้ารหัส"+ltrim(str(_proid))+"ไม่พบในแฟ้มข้อมู�"
@ 22,10 clear to 22,75
endif
@ 22,10 clear to 22,75
@ 22,15 say "ต้องการแก้ไขต่อไปหรือไม่"
@ 22,50 prompt "[yes]"
@ 22,60 prompt "[no]"
menu to ans1
if ans1=1
@ 6,10 clear to 18,70
else
return
endif
enddo
use
inkey(0)
restore screen from x
return
//===========================
//การแก้ไขผู้จำหน่าย
procedure editsup
use supplier
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
ans1=0
do while .t.
_suppid =0
ans=0
@ 2,25 say "[การแก้ไข�อมูลผู้จำหน่าย]"
set color to b/gr,/w
@ 6,10 say "รหัสผู้จำหน่าย # :" get _suppid
read
locate for suppid= _suppid
if found()
_suppname=suppname
_suppadd=suppadd
_supptel=supptel
@ 8,10 say "ชื่อจำหน่า� :" get _suppname
@ 10,10 say "ที่อยู� :" get _suppadd
@ 12,10 say "โทรศัพท์ :" get _supptel
read
@ 22,10 clear to 22,75
@ 22,15 say " ต้องการบันทึกหรือไม่"
@ 22,50 prompt "[yes]"
@22,60 prompt"[no]"
menu to ans
if ans=1
repl suppname with _suppname ,suppadd with _suppadd,;
supptel with _supptel
endif
else
@ 6,10 clear to 18,65
@ 11,25 to 13,60
@ 12,27 say "ผู้จำหน่ายรหัส"+ltrim(str(_suppid))+"ไม่พบในแฟ้มข้อมู�"
@ 22,10 clear to 22,75
endif
@ 22,10 clear to 22,75
@ 22,15 say "ต้องการแก้ไขต่อไปหรือไม่"
@ 22,50 prompt "[yes]"
@ 22,60 prompt "[no]"
menu to ans1
if ans1=1
@ 6,10 clear to 18,70
else
return
endif
enddo
use
inkey(0)
restore screen from x
return
//=========================
//แก้ไขข้อมูลเจ้าหนี�
procedure editpay
use payable
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
ans1=0
do while .t.
_suppid=0
_recid=0
ans=0
@ 2,25 say "[การแก้ไข�อมูลเจ้าหนี้]"
set color to b/gr,/w
@ 6,10 say "รหัสเจ้าหนี้ :" get _suppid
@ 8,10 say "รหัสใบรับสินค้� # :" get _recid
read
locate for suppid= _suppid .and. recid=_recid
if found()
// _recid=recid
_paymoney=pay_money
_payless=pay_less
_datepaid=date_paid
// @ 8,10 say "รหัสใบรับสินค้� # :" get _recid
@ 10,10 say "เงินที่จ่า� :" get _paymoney
@ 12,10 say "เงินค้างจ่าย :" get _payless
@ 14,10 say "วันที่ชำระ :" get _datepaid
read
@ 22,10 clear to 22,75
@ 22,15 say " ต้องการบันทึกหรือไม่"
@ 22,50 prompt "[yes]"
@22,60 prompt"[no]"
menu to ans
if ans=1
repl recid with _recid ,pay_money with _paymoney,;
pay_less with _payless,date_paid with _datepaid
endif
else
@ 6,10 clear to 18,65
@ 11,25 to 13,60
@ 12,27 say "เจ้าหนี้รหัส"+ltrim(str(_suppid))+"ไม่พบในแฟ้มข้อมู�"
@ 22,10 clear to 22,75
endif
@ 22,10 clear to 22,75
@ 22,15 say "ต้องการแก้ไขต่อไปหรือไม่"
@ 22,50 prompt "[yes]"
@ 22,60 prompt "[no]"
menu to ans1
if ans1=1
@ 6,10 clear to 18,70
else
return
endif
enddo
use
inkey(0)
restore screen from x
return
//===========================
//การลบข้อมูลผู้จำหน่า�
procedure delsup
use supplier
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
do while .t.
_suppid=0
ans=0
ans1=0
@ 2,26 say "การลบข้อมูลผู้จำหน่า�"
set color to w/g,/w
@ 6,10 say "รหัสผู้จำหน่าย # :" get _suppid
read
locate for suppid=_suppid
if found()
delete
@ 8,10 say "ชื่อผู้จำหน่าย #:"+rtrim(suppname)
@ 10,10 say "ที่อยู� :"+rtrim(suppadd)
@ 12,10 say "เบอร์โทรศัพท� :"+rtrim(supptel)
@ 22,9 clear to 22,70
@ 22,18 say "Are you sure to delete ?"
@ 22,50 prompt "Yes"
@ 22,60 prompt "No"
menu to ans
if ans=1
pack
else
recall
endif
else
@ 6,5 clear to 18,70
@ 11,25 to 13,65
@ 12,27 say "ไม่พบรหัสผู้จำหน่ายในแฟ้�"+ltrim(str(_suppid))
@22,10 clear to 22,75
endif
@ 22,10 clear to 22,75
@ 22,15 say "ต้องการลบข้อมูลอีกหรือไม�"
@ 22,50 prompt"Yes"
@ 22,60 prompt"No"
menu to ans1
if ans1=1
@ 6,5 clear to 18,70
else
return
endif
enddo
use
inkey(1)
restore screen from x
return
//===============================
//การลบข้อมูลพนักงาน
procedure delemp
use employee
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
do while .t.
_empid=0
ans=0
ans1=0
@ 2,26 say "การลบข้อมูลพนักงาน"
set color to w/g,/w
@ 6,10 say "รหัสพนักงา� :" get _empid
read
locate for empid=_empid
if found()
delete
@ 8,10 say "ชื่อพนักงา� :"+rtrim(empname)
@ 10,10 say "ที่อยู� :"+rtrim(empadd)
@ 12,10 say "เงินเดือ� #:"+ltrim(str(salary))
@ 14,10 say "หน้าที่หลั� #:"+rtrim(position)
@ 22,9 clear to 22,70
@ 22,18 say "Are you sure to delete ?"
@ 22,50 prompt "Yes"
@ 22,60 prompt "No"
menu to ans
if ans=1
pack
else
recall
endif
else
@ 6,5 clear to 18,70
@ 11,25 to 13,65
@ 12,27 say "ไม่พบรหัสพนักงานในแฟ้ม"+ltrim(str(_empid))
@22,10 clear to 22,75
endif
@ 22,10 clear to 22,75
@ 22,15 say "ต้องการลบข้อมูลอีกหรือไม�"
@ 22,50 prompt"Yes"
@ 22,60 prompt"No"
menu to ans1
if ans1=1
@ 6,5 clear to 18,70
else
return
endif
enddo
use
inkey(1)
restore screen from x
return
//========================
//การลบข้อมูลลูกหนี้
procedure delrec
use receivab
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
do while .t.
_custid=0
ans=0
ans1=0
@ 2,26 say "การลบข้อมูลพลูกหนี�"
set color to w/g,/w
@ 6,10 say "รหัสลูกหนี� :" get _custid
read
locate for custid=_custid
if found()
delete
@ 8,10 say "รหัสใบเสร็� #:"+ltrim(str(saleid))
@ 10,10 say "วันที่ขา� :"+dtoc(date_sale)
@ 12,10 say "กำหนดชำร� :"+dtoc(date_pay)
@ 14,10 say "ยอดรวม :"+ltrim(str(total))
@ 16,10 say "เงินชำระ :"+ltrim(str(pay))
@ 18,10 say "เงินคงค้างชำระ:"+ltrim(str(less))
@ 22,9 clear to 22,70
@ 22,18 say "Are you sure to delete ?"
@ 22,50 prompt "Yes"
@ 22,60 prompt "No"
menu to ans
if ans=1
pack
else
recall
endif
else
@ 6,5 clear to 18,70
@ 11,25 to 13,65
@ 12,27 say "ไม่พบรหัสลูกหนี้ในแฟ้ม"+ltrim(str(_custid))
@22,10 clear to 22,75
endif
@ 22,10 clear to 22,75
@ 22,15 say "ต้องการลบข้อมูลอีกหรือไม�"
@ 22,50 prompt"Yes"
@ 22,60 prompt"No"
menu to ans1
if ans1=1
@ 6,5 clear to 18,70
else
return
endif
enddo
use
inkey(1)
restore screen from x
return
//=======================
//การลบข้อมูลสินค้�
procedure delpro
use product
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
do while .t.
_proid=0
ans=0
ans1=0
@ 2,26 say "การลบสินค้�"
set color to w/g,/w
@ 6,10 say "รหัสสินค้า :" get _proid
read
locate for proid=_proid
if found()
delete
@ 8,10 say "ชื่อสินค้า :"+rtrim(proname)
@ 10,10 say "ราคาทุ�/หน่ว� :"+ltrim(str(cost))
@ 12,10 say "ราคาขา�/หน่ว�:"+ltrim(str(price))
@ 14,10 say "จำนวนที่เหลืออยู�:"+ltrim(str(quantity))
@ 16,10 say "จุดสั่งซื้� :"+ltrim(str(reorder))
@ 22,5 clear to 22,70
@ 22,18 say "Are you sure to delete ?"
@ 22,50 prompt "Yes"
@ 22,60 prompt "No"
menu to ans
if ans=1
pack
else
recall
endif
else
@ 6,5 clear to 18,70
@ 11,25 to 13,65
@ 12,27 say "ไม่พบรหัสสินค้าในแฟ้�"+ltrim(str(_proid))
@22,10 clear to 22,75
endif
@ 22,10 clear to 22,75
@ 22,15 say "ต้องการลบข้อมูลอีกหรือไม�"
@ 22,50 prompt"Yes"
@ 22,60 prompt"No"
menu to ans1
if ans1=1
@ 6,5 clear to 18,70
else
return
endif
enddo
use
inkey(1)
restore screen from x
return
//========================
//การลบข้อมูลลูกค้�
procedure delcust
use customer
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
do while .t.
_custid=0
ans=0
ans1=0
@ 2,26 say "การลบลูกค้�"
set color to w/g,/w
@ 6,10 say "รหัสลูกค้า :" get _custid
read
locate for custid=_custid
if found()
delete
@ 8,10 say "ชื่อลูกค้า # :"+rtrim(custname)
@ 10,10 say "ที่อยู� :"+rtrim(custadd)
@ 12,10 say "โทรศัพท์ # :"+rtrim(custtel)
@ 22,5 clear to 22,70
@ 22,18 say "Are you sure to delete ?"
@ 22,50 prompt "Yes"
@ 22,60 prompt "No"
menu to ans
if ans=1
pack
else
recall
endif
else
@ 6,5 clear to 18,70
@ 11,25 to 13,65
@ 12,27 say "ไม่พบรหัสลูกค้าในแฟ้�"+ltrim(str(_custid))
@22,10 clear to 22,75
endif
@ 22,10 clear to 22,75
@ 22,15 say "ต้องการลบข้อมูลอีกหรือไม�"
@ 22,50 prompt"Yes"
@ 22,60 prompt"No"
menu to ans1
if ans1=1
@ 6,5 clear to 18,70
else
return
endif
enddo
use
inkey(1)
restore screen from x
return
//===========================
//การลบข้อมูลเจ้าหนี�
procedure delpay
use payable
save screen to x
set color to w/bg+
cls
set color to w/b
@ 1,2 clear to 3,77
set color to w/gr
@5,2 clear to 19,77
set color to w/rb+
@ 21,2 clear to 23,77
do while .t.
_suppid=0
_recid=0
ans=0
ans1=0
@ 2,26 say "การลบเจ้าหนี�"
set color to w/g,/w
@ 6,10 say "รหัสเจ้าหนี้ :" get _suppid
@ 8,10 say "รหัสใบรับสินค้� # :" get _recid
read
locate for suppid=_suppid .and. recid=_recid
if found()
delete
@ 8,10 say "รหัสใบรับสินค้� :"+ltrim(str(recid))
@ 10,10 say "เงินที่จ่า� ## :"+ltrim(str(pay_money))
@ 12,10 say "เงินค้างจ่าย #:"+ltrim(str(pay_less))
@ 14,10 say "วันที่ชำระ ## :"+dtoc(date_paid)
@ 22,5 clear to 22,70
@ 22,18 say "Are you sure to delete ?"
@ 22,50 prompt "Yes"
@ 22,60 prompt "No"
menu to ans
if ans=1
pack
else
recall
endif
else
@ 6,5 clear to 18,70
@ 11,25 to 13,65
@ 12,27 say "ไม่พบรหัสเจ้าหนี้ในแฟ้�"+ltrim(str(_suppid))
@22,10 clear to 22,75
endif
@ 22,10 clear to 22,75
@ 22,15 say "ต้องการลบข้อมูลอีกหรือไม�"
@ 22,50 prompt"Yes"
@ 22,60 prompt"No"
menu to ans1
if ans1=1
@ 6,5 clear to 18,70
else
return
endif
enddo
use
inkey(1)
restore screen from x
return
//========================
procedure b_browse
set cursor on
opt5=0
do while lastkey()!=27
set color to w/g,w
set color to "w/rb+"
@5,28 say [ **BROWSE** ]
set color to "w/bg+"
@6,28 prompt[ 1.แฟ้มสั่งซื้อ ]
@7,28 prompt[ 2.แฟ้มสั่งซื้อละเอีย� ]
@8,28 prompt[ 3.แฟ้มรับสินค้� ]
@9,28 prompt[ 4.แฟ้มรับสินค้าละเอียด ]
@10,28 prompt[ 5.แฟ้มชำระหนี้ ]
@11,28 prompt[ 6.แฟ้มจ่ายชำระหนี้ ]
@12,28 prompt[ 7.แฟ้มสินค้า ]
@13,28 prompt[ 8.แฟ้มขา� ]
@14,28 prompt[ 9.แฟ้มขายละเอียด ]
@15,28 prompt[ 10.แฟ้มลูกค้า ]
@16,28 prompt[ 11.แฟ้มพนักงา� ]
@17,28 prompt[ 12.แฟ้มผู้จำหน่าย ]
@18,28 prompt[ 13.เลิกการทำงาน หรือกด ESC ]
menu to opt5
do case
case opt5 = 1
cls
@7,13,23,73 box replicate(chr(177),9)
@3,10 say "esc:exit"
@3,30 say "แฟ้มสั่งซื้อสินค้า"
use order
set color to 0/9
browse(6,10,22,70)
close all
case opt5=2
cls
@7,13,23,73 box replicate(chr(177),9)
@3,10 say "esc:exit"
@3,30 say "แฟ้มสั่งซื้อละเอีย�"
use orderdet
set color to 0/5
browse(6,10,22,70)
close all
case opt5=3
cls
@7,13,23,73 box replicate(chr(177),9)
@3,10 say "esc:exit"
@3,30 say "แฟ้มรับสินค้�"
use receive
set color to 0/4
browse(6,10,22,70)
close all
case opt5=4
cls
@7,13,23,73 box replicate(chr(177),9)
@3,10 say "esc:exit"
@3,30 say "แฟ้มรับสินค้าละเอียด"
use receidet
set color to 0/2
browse(6,10,22,70)
close all
case opt5=5
cls
@7,13,23,73 box replicate(chr(177),9)
@3,10 say "esc:exit"
@3,30 say "แฟ้มรับชำระหนี�"
use receivab
set color to 0/6
browse(6,10,22,70)
close all
case opt5=6
cls
@7,13,23,73 box replicate(chr(177),9)
@3,10 say "esc:exit"
@3,30 say "แฟ้มจ่ายชำระหนี้"
use payable
set color to 0/7
browse(6,10,22,70)
close all
case opt5=7
cls
@7,13,23,73 box replicate(chr(177),9)
@3,10 say "esc:exit"
@3,30 say "แฟ้มสินค้า"
use product
set color to 0/6
browse(6,10,22,70)
close all
case opt5=8
cls
@7,13,23,73 box replicate(chr(177),9)
@3,10 say "esc:exit"
@3,30 say "แฟ้มขา�"
use sale
set color to 0/4
browse(6,10,22,70)
close all
case opt5=9
cls
@7,13,23,73 box replicate(chr(177),9)
@3,10 say "esc:exit"
@3,30 say "แฟ้มขายละเอียด"
use saledet
set color to 0/3
browse(6,10,22,70)
close all
case opt5=10
cls
@7,13,23,73 box replicate(chr(177),9)
@3,10 say "esc:exit"
@3,30 say "แฟ้มลูกค้า"
use customer
set color to 0/9
browse(6,10,22,70)
close all
case opt5=11
cls
@7,13,23,73 box replicate(chr(177),9)
@3,10 say "esc:exit"
@3,30 say "แฟ้มพนักงา�"
use employee
set color to 0/5
browse(6,10,22,70)
close all
case opt5=12
cls
@7,13,23,73 box replicate(chr(177),9)
@3,10 say "esc:exit"
@3,30 say "แฟ้มผู้จำหน่าย"
use supplier
set color to 0/6
browse(6,10,22,70)
close all
case opt5=13
cls
exit
endcase
enddo
set cursor off
return
//=======================================
procedure sort1
opt=0
inkey(0.2)
do while lastkey()!=27
while .t.
@ 5,12 say " การจัดเรียงข้อมู� "
@ 6,12 say repl("*",33)
set color to w/g,/w
@ 7,12 prompt [1.จัดเรียงตามรหัสสินค้� ]
@ 8,12 prompt [2.จัดเรียงตามรหัสพนักงาน ]
@ 9,12 prompt [3.จัดเรียงตามรหัสลูกค้� ]
@ 10,12 prompt [4.จัดเรียงตามเงินเดือนมากไปน้อ� ]
@ 11,12 prompt [5.จัดเรียงตามเงินเดือนน้อยไปมา� ]
@ 12,12 prompt [6.exit ]
menu to opt
do case
case opt=1; do sort11
case opt=2; do sort12
case opt=3; do sort13
case opt=4; do sort14
case opt=5; do sort15
case opt=6; return
endcase
enddo
enddo
//==========================จัดเรียงแฟ้มสินค้าตามรหั�
procedure aa
set color to w/b+
use product
sort on idpro to tmp2
use tmp2;copy to product;close
//ตัวเลือกที� 1
procedure sort11
do aa
use product
browse(5,5,22,75)
pack
return
close all
cls
//==============================
procedure bb
set color to w/b+
use supplier
sort on id to tmp1
use tmp1;copy to supplier;close
//ตัวเลือกที� 2
procedure sort12
do bb
use supplier
browse(5,5,22,75)
pack
return
close all
cls
//==========================จัดเรียงแฟ้มลูกค้าตามรหั�
procedure cc
set color to w/b+
use customer
sort on idcu to tmp3
use tmp3;copy to customer;close
//ตัวเลือกที� 3
procedure sort13
do cc
use customer
browse(5,5,22,75)
pack
return
close all
cls
//=========================จัดเรียงแฟ้มลูกค้าตามรหั�
procedure dd
cls
use supplier
sort on val(salary)/d to tmp4
use tmp4;copy to seller;close
//ตังเลือกที� 4
procedure sort14
do dd
use supplier
browse(5,5,22,75)
pack
return
close all
cls
//==========================
procedure pp
cls
use supplier
sort on salary/a to tmp5
use tmp5;copy to seller;close
//ตัวเลือกที� 5
procedure sort15
do pp
use suplier
browse(5,5,22,75)
pack
return
restore screen from scr1
close all
//=======================
|