源代碼一封面(1)Lable1的Timer1控件的Timer事件中添加如下代碼：ifthisform.label1.left=thisform.widththisform.label1.left=0elsethisform.label1.left=thisform.label1.left+1endifi=int(rand()*255)j=int(rand()*255)k=int(rand()*255)thisform.label2.forecolor=rgb(i,j,k)(2)Command1按鈕控件的Click事件中添加如下代碼：*設(shè)置文件目錄為c:金孝鎮(zhèn)123456789setpathtoc:金孝鎮(zhèn)123456789*調(diào)用用戶登陸界面doform用戶登陸界面*釋放開始界面二登陸界面(1)Command1按鈕控件的Click事件中添加如下代碼：opendatabase管理數(shù)據(jù)庫useyhgotop*先打開“管理數(shù)據(jù)庫”文件，然后使用yh表，并定位到第一個記錄user_n=thisform.text1.valueuser_p=thisform.text2.valueis_user=.f.*定義邏輯變量is_user,用于判斷是否為合法用戶dowhile.not.eof()is_user=(user_n=yh.user_name).and.(user_p=yh.user_password)ifis_userexitelseskipendifenddo*編歷yh中所有的記錄，判斷輸入的用戶名稱和用戶密碼是否存在ifis_userdoform主界面*調(diào)用主界面useelsemessagebox(用戶名或用戶密碼不正確！,0+16,提示)closallendif(2)Command2按鈕控件的Click事件中添加如下代碼：usecloseall*關(guān)閉所有的表和數(shù)據(jù)庫文件thisform.release*釋放登陸界面三主界面主界面表單的init事件中添加如下代碼：thisform.edit1.width=thisform.widththisform.edit1.height=thisform.height*控制edit1控件隨表單自動調(diào)整大小doc:金孝鎮(zhèn)123456789主菜單.mprwiththisform,.t.*加載主菜單四商品管理界面（一）商品信息(1)Form1的Init事件中添加如下代碼：(2)Command1(第一個)按鈕控件的Click事件中添加如下代碼：mand2.enabled=.mand8.enabled=.t.thisform.refresh()*定位到第一個記錄，同時刷新表單(3)Command2（上一個）按鈕控件的Click事件中添加如下代碼：if!bof()mand8.endbled=.t.thisform.refresh()*刷新表單(4)Command3（下一個）按鈕控件的Click事件中添加如下代碼：if!bof()mand2.endbled=.t.thisform.refresh()*刷新表單(5)Command4(最后一個)按鈕控件的Click事件中添加如下代碼：mand8.endbled=.mand2.endbled=.t.thisform.refresh()(6)Command6(添加)按鈕控件的Click事件中添加如下代碼：appenblank*給貨物信息表添加空白記錄mand7.caption=保存thisform.refresh()(7)Command9(退出)按鈕控件的Click事件中添加如下代碼：mand9.caption=退出mand6.caption=保存replace庫存表.貨號withthisform.text_貨號.valuereplace庫存表.namewiththisform.text_name.valuereplace庫存表.specwiththisform.text_spec.valuereplace庫存表.preduced_areawiththisform.text_area.valuereplace庫存表.descriptionwiththisform.text_mand9.caption=退出endcase（二）商品查詢form1的click事件中添加如下代碼：dotoplocatefor庫存表_name=alltrim(thisform.text1.value)thisform.release五進貨管理界面（一）進貨管理(1)List1控件的Dbclick事件中添加如下代碼：貨號_select=list1.value*返回當前選擇的貨物的編號locatefor庫存表.貨號=貨號_select*定位到與當前選擇貨號相同的記錄thisform.text1.value=庫存表.貨號thisform.text2.value=庫存表.namethisform.text8-value=庫存表.spec*自動填寫貨物編號,名稱,規(guī)格(2)Command1按鈕控件的Click事件中添加如下代碼：appendblank*在表尾添加空記錄replace進貨表.貨號wlthalltrim(thisform.text1.value)replace進貨表.unitwlthalltrim(thisform.text4.value)replace進貨表.salerwlthalltrim(thisform.text8.value)replace進貨表.keeperwlthalltrim(thisform.text6.value)replace進貨表.in_timewlthalltrim(thisform.text7.value)replace進貨表.in_comwlthalltrim(thisform.text8.value)replace進貨表.amountwlththisform.spinner1.value*填寫進貨信息到進貨表中thisform.list2.additem(thisform.text2.value)*將選中的貨物添加到進貨信息列表框的列表中(3)Command2按鈕控件的Click事件中添加如下代碼：ifthisform.list2.value=messGEBOX(請先選取要移去的貨物編號！,0+64,提示)elsethisform.list2.removeitem*將選中的進貨從列表清單中刪除locatefor進貨表.貨號=alltrim(thisform.text1.value)delect*刪除當前選中的進貨endif(4)Command3按鈕控件的Click事件中添加如下代碼：pack*清理紀錄releasethisform*釋放菜單（二）進貨統(tǒng)計(1)Command1按鈕控件的Click事件中添加如下代碼：star_time=thisform.text1.v