【文章內(nèi)容簡介】 **三年來對我學(xué)習、生活的關(guān)心和幫助。 最后，向我的父親、母親、致謝，感謝他們對我的理解與支持。附錄主要模塊實現(xiàn)的原代碼匯總系統(tǒng)登陸表單設(shè)計系統(tǒng)登陸表單名為admin，表單中添加了1個Combo控件、1個Text控件、2個Label控件、1個Commandgroup控件。重要控件屬性如表62所示。表62 “系統(tǒng)登錄”表單重要控件屬性列表控 件 名屬 性值功 能Combo1PowSourceRowSourceTypeTabpurview操作員姓名6字段提供操作員姓名列表員工性別PassWardChar*提供密碼輸入程序代碼。表單的lnit事件中添加以下代碼：public amp。amp。定義全局變量=0 amp。amp。給全局變量賦初值 “操作員”組合框的KeyPress事件中添加了以下代碼：select tabpurview amp。amp。選擇表tabpurview工作區(qū)為當前工作區(qū)local InRecNo amp。amp。定義局部變量inRecNo=reo()do case case nKeyCode=3 amp。amp。按下PageDown if !eof() skip else go bottom endif =操作員姓名 case nKeyCode=18 amp。amp。 按下PageUp鍵 if !bof() skip1 else go top endif =操作員姓名 otherwise return endcase首先判斷用戶輸入的用戶名是否正確，然后判斷用戶輸入的密碼是否正確，如果正確，根據(jù)用戶選擇操作員所擁有的權(quán)限級別為全局變量賦值；如果不正確，彈出系統(tǒng)警告對話框。具體實現(xiàn)如下。在“確定”按鈕的Click事件中添加了以下代碼：use database\tabpurview ame=alltrim() amp。amp。獲得輸入信息ppassword=alltrim() set order to 操作員姓名 amp。amp。指定控制索引文件seek ame amp。amp?？焖俨檎襰et exact on amp。amp。設(shè)置字符精確比較*判斷操作員是否正確if alltrim()!=ame =+1 cMessagetitle=39。系統(tǒng)登錄39。 cMessagetext=39。操作員錯誤，請重新輸入！39。 nDialogtype=16 nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nanswer=6 =39。39。 endcase if =3 endifelse*判斷密碼是否正確 if alltrim()!=ppassword =+1 cmessagetitle=39。系統(tǒng)登錄39。 cmessagetext=39。密碼錯誤，請重新輸入！39。 ndialogtype=16 nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nanswer=6 =39。39。 endcase if =3 endif else purview=val(alltrim()) pckdj= prkdj= pckth= prkth= pkccx= pkcpd= pckcx= prkcx= pckthcx= prkthcx= pckbb= prkbb= pkcbb= pspinfo= pyginfo= pkhinfo= pgysinfo= pczygl= pqxgl= psjbf= psjhf= endif endifset exact off amp。amp。設(shè)置字符非精確比較日常業(yè)務(wù)設(shè)計表單Init事件中的代碼：l=.f.=.f.=.f.=.t.=.t.=39。tabckdj39。L是全局變量，這個值會集體賦值給相關(guān)控件的Enabled屬性。這種寫法其實將Resize事件當成一個設(shè)置相關(guān)控件是否有效的函數(shù)。表單的Resize事件中添加了以下代碼：store l to ,。,。,。 ,。 ,在表單的Load事件中添加了以下代碼：private l amp。amp。定義全局變量在“產(chǎn)品編號”組合框的KeyPress事件中添加以下代碼：select tabspinfolocal InRecNoinRecNo=reo()do case case nKeyCode=3 amp。amp。 按下PageDown if !eof() skip else go bottom endif =產(chǎn)品編號 case nKeyCode=18 amp。amp。 按下PageUp if !bof() skip1 else go top endif =產(chǎn)品編號 case nKeyCode=13 amp。amp。執(zhí)行該控件的InterActiveChange事件 otherwise return endcase在表單的Resize事件中添加以下代碼：store l to ,。,。,。,。,當用戶輸入或選擇以個產(chǎn)品編號時，系統(tǒng)自動在商品信息表Tabspinfo中查找相應(yīng)的記錄，并顯示在相應(yīng)的文本框中，實現(xiàn)代碼如下：在“產(chǎn)品編號”組合框的InteractiveChange事件中添加了以下代碼：cif=alltrim()select *。from carmanage!tabspinfo。where 產(chǎn)品編號==cif。order by 。into cursor lindepingif reccount()0 = =.f. = =.f. = =.f. = =.f. = =.f. = =.f. = else messagebox(39。無此編號！39。,48,39。操作錯誤39。) amp。amp。調(diào)出系統(tǒng)提示對話框 =39。39。 amp。amp。設(shè)置焦點endif 當用戶輸入或選擇一個零件號時，系統(tǒng)自動在商品信息表Tabspinfo中查找相應(yīng)的記錄，并顯示在相應(yīng)的文本框中，具體實現(xiàn)代碼如下。 在“零件號”組合框的InteractiveChange事件中添加了以下代碼：cif=alltrim()select *。from carmanage!tabspinfo。where 零件號==cif。order by 。into cursor lindepingif reccount()0 = =.f. = =.f. = =.f. = =.f. = =.f. = =.f. = else messagebox(39。無此編號39。,48,39。操作錯誤！39。) =39。39。 endif 在“零件號”組合框的Keypress事件中添加了以下代碼：LPARAMETERS nKeyCode, nShiftAltCtrlselect tabspinfolocal InRecNoinRecNo=reo()do case case nKeyCode=3 amp。amp。按下PageDown if !eof() skip else go bottom endif =零件號 =產(chǎn)品編號 =.f. case nKeyCode=18 amp。amp。按下PageUp if !bof() skip1 else go top endif =零件號 =產(chǎn)品編號 =.f. case nKeyCode=13 amp。amp。按下回車后判斷產(chǎn)品是否存在 amp。amp。執(zhí)行該控件的InterActiveChange事件 otherwise return endcase單擊“登記”按鈕，將清空表單上相關(guān)控件的內(nèi)容，做好接收用戶輸入信息的準備。系統(tǒng)將自動生成出庫票號。出庫票號由系統(tǒng)日期、字母“ckd”、四位數(shù)字組成。首先判斷出庫登記表“Tabckdj”中的出庫票號是否為空，如果為空則出庫票號等于“系統(tǒng)日期+ckd+0001”；如果不為空，則出庫票號等于“系統(tǒng)日期+ckd+四位數(shù)字編碼加1”。具體實現(xiàn)代碼如下。在“登記”按鈕的Click事件中添加了以下代碼：store .t. to ,。 ,。 ,store .f. to ,。 ,store 0 to ,store 39。39。 to ,。 ,。 , =39。ltabckdj39。*自動票號select tabckdjlmonth=padl(alltrim(str(month(date()),2)),2,39。039。)lday=padl(alltrim(str(day(date()),2)),2,39。039。)if empty(出庫票號) set cent on =alltrim(str(year(date()),4)+39。39。+lmonth+39。39。+lday+39。ckd000139。)else select max(出庫票號) from tabckdj into array a amp。amp。把數(shù)據(jù)表中最大的出庫票號存入數(shù)組 cend=val(substr(a(1),14))+1 =alltrim(str(year(date()),4)+39。39。+lmonth+39。39。+lday+39。ckd39。+padl(alltrim(str(cend,4)),4,39。039。))endif=date() amp。amp。默認日期=.f.=.t.=.t.=.f.單擊“保存”按鈕，則將判斷臨時表中的商品的庫存數(shù)量是否小于出庫數(shù)量，如果小于將彈出系統(tǒng)警告對話框；如果不小于則將信息保存到出庫登記表“Tabckdj”中，并清空臨時表。具體實現(xiàn)如下。在“保存”按鈕的Click事件中添加了以下代碼：f empty() messagebox(39。出庫票號不能為空！39。,48,39。操作失敗！39。) else cmessagetitle=39。出庫登記表39。 cmessagetext=39。確定要保存嗎？39。 ndialogtype=4+32 nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)