餐飲管理系統(tǒng)設(shè)計(jì)-文庫吧
2025-03-31 02:20 本頁面
【正文】 xelsToUnits!)Move((l_scrwidth )/2,(l_scrheight )/2)//移動窗口到屏幕中間setredraw(true)//打開窗口刷新(2) 按鈕控件cb_1（確定）的Click事件中的程序代碼如下：string l_id,l_passwardstring l_passward0int il_id=trim()l_passward=trim()if l_id= then messagebox(提示,請輸入用戶名!)returnend if()if l_passward= then messagebox(提示,請輸入密碼!)returnend if()select count(*)into :ifrom zbywhere rtrim(zby_name) = :l_idusing sqlca。if i1 then messagebox(提示,該用戶不存在!) = = ()returnend ifselect zby_pawd into:l_passward0from zbywhere rtrim(zby_name)=:l_idusing sqlca。if trim(l_passward0)=l_passward then open(w_main) close(parent) integer li_FileNum string ls_Emp_Input long ll_FLength ll_FLength = FileLength(D:\Microsoft SQL Server\) li_FileNum = FileOpen(D:\Microsoft SQL Server\,StreamMode!,read!, shared!) IF ll_FLength 32767 THEN FileRead(li_FileNum, ls_Emp_Input) filewrite(li_FileNum,ls_Emp_Input) messagebox(,ls_Emp_Input,None!) return END IF//顯示交班管理制度else messagebox(警告,密碼錯(cuò)誤,請重新輸入法!) = ()end if（3）按鈕控件cb_2（取消）的Click事件中的程序代碼如下：Halt用于終止應(yīng)用程序的執(zhí)行.(4) 按鈕控件cb_3（免費(fèi)注冊）的Click事件中的程序代碼如下：open(w_zhuche)用來打開注冊窗口.交班管理制度顯示的制作。(5)在該系統(tǒng)文件目錄下新建一個(gè)””在里面輸入相應(yīng)的內(nèi)容。在登錄窗口的cb_1（確定）下的代碼 integer li_FileNum string ls_Emp_Input long ll_FLength ll_FLength = FileLength(D:\Microsoft SQL Server\) li_FileNum = FileOpen(D:\Microsoft SQL Server\,StreamMode!,read!, shared!) IF ll_FLength 32767 THEN FileRead(li_FileNum, ls_Emp_Input) filewrite(li_FileNum,ls_Emp_Input) messagebox(,ls_Emp_Input,None!) return END IF這段代碼就是在進(jìn)入系統(tǒng)時(shí)顯示該信息,如下圖,3. 注冊窗口的設(shè)計(jì)(1)在”檢測用戶名”按扭控件的click事件中輸入如下代碼:string l_userl_user=if l_user= then messagebox(警告,請輸入用戶名!,Exclamation!) () return 1end ifint iselect count(*)into :ifrom ZBYwhere ZBY_NAME = :l_user。if i0 then messagebox(警告,用戶名已存在,請重試!,Exclamation!) = () returnelse messagebox(,恭喜你,該用戶名可以使用!) return end if(2) 在”提交”按扭控件的click事件中輸入如下代碼:string l_userl_user=if = then messagebox(提示,請輸入用戶名!) return 1end ifstring aa,bbaa=bb=if aa= then messagebox(提示,密碼不能為空!) return 1end ifif aabb then messagebox(提示,輸入的密碼不一致~n~r請重新輸入!) = = () return end ifinsert INTO zby ( zby_name, zby_pawd ) VALUES ( :l_user, :aa ) using sqlca。if =0 then messagebox(提示,注冊成功,請牢記~r~n用戶名++~r~n密碼+) close(parent)else messagebox(提示,注冊失敗!) return end if(3) 在”取消”按扭控件的click事件中輸入如下代碼: close(parent)（1）“系統(tǒng)維護(hù)”菜單下“退出”子菜單的Click事件程序代碼：halt其功能是關(guān)閉主窗口w_main，退出應(yīng)用程序。（2）“系統(tǒng)維護(hù)”菜單下“值班員信息維護(hù)”子菜單的Click事件程序代碼：open(w_zby)（3）“系統(tǒng)維護(hù)”菜單下“菜譜信息維護(hù)”子菜單的Click事件程序代碼：open(w_choose_receive)(4) “系統(tǒng)維護(hù)”菜單下“修改口令”子菜單的Click事件程序代碼：open(w_changekl)（5）“訂餐管理”菜單下“訂餐”子菜單的Click事件程序代碼：open(w_dc)（6）“訂餐管理”菜單下“訂餐修改”子菜單的Click事件程序代碼：open(w_ujttyyytt)(7) “訂餐管理”菜單下“訂餐取消”子菜單的Click事件程序代碼：open(w_dc_qc)(8) “訂餐管理”菜單下“訂餐查詢”子菜單的Click事件程序代碼：open(w_dc_search)(9) “收款管理”菜單的“折扣設(shè)定”子菜單的Click事件程序代碼：open(w_zksd)(10) “收款管理”菜單下的“客戶信息”子菜單的CLICK事件程序代碼： open(w_kh)(11) “打印”菜單的“打印帳單”子菜單的Click事件程序代碼：open(w_print)(12) “幫助”菜單的”版本信息”子菜單的Click事件程序代碼：open(w_help)(13)快捷鍵及工具欄如圖所示。還要建個(gè)w_main窗口用來掛上菜單。該窗口類
公司管理相關(guān)推薦
鄂ICP備17016276號-1