某銀行存取款管理信息系統(tǒng)(編輯修改稿)
2024-09-06 03:30 本頁面
【文章內(nèi)容簡介】 account\form\checker2 *打開下級表單 checker2 Command3(取款機)的Click代碼： Do form account\form\atm *打開下級表單 atm Command4（退出）的Click代碼： do account\form\end執(zhí)行結(jié)束表單主界面的設(shè)計到此就完成了，注意結(jié)束是將其存為“D：\account\form\”。 身份驗證界面的設(shè)計因為本系統(tǒng)的特殊性，本系統(tǒng)各處會涉及到密碼即驗證身份。如管理員身份驗證，用戶身份驗證等。下面設(shè)計進入“管理員管理帳戶的界面”的身份驗證。界面如圖53所示。如圖43所示添加各控件圖51 管理員身份驗證表單的Init時間代碼：public inpswd1inpswd1=0*聲明全局變量作為計數(shù)器*“確定”按鈕 的Click事件代碼：if empty() or empty ()*檢查輸入的信息是否完整messagebox(“對不起！你輸入的信息不完整”,48,”信息不全”)=”=” elsesele tms*選擇數(shù)據(jù)表 tmslocate for tms_user=alltrim() *查找輸入的”管理員”相同的記錄if tms_pswd=alltrim()*密碼正確時進入系統(tǒng) messagebx(“密碼正確”，64，”通過”) cMessageTitle=’進入系統(tǒng)’ cMessagetext=’選擇”是”進入帳戶管理,選擇”否”進入ATM機管理’ nDialogType=4+32 nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) do case *使用分支進入不同的表單 case nAnswer=6 do form account\form\supervise1*進入下級表單supervise1(設(shè)置為帳戶管理表單) case nAnswer=7 do form account\form\supervise2*進入下級表單supervise2(設(shè)置為ATM機管理表單) endcase *關(guān)閉本表單 else*密碼錯誤顯示提示,并將計數(shù)器加1 messagebox(“對不起!你輸入的信息有誤,請重試”,64,”錯誤”) inpswd1=inpswd+1 if inpswd1=3*當計時器大于3時,關(guān)閉本表單 else = = *將光標位置重置到文本框1,等待輸入 endif endifendif通過”身份驗證”的這段代碼,實現(xiàn)了對進入銀行操作的人員的限制.”取消”按鈕Click事件代碼:此表單的設(shè)計與”管理員身份驗證”表單類似,可參照前例設(shè)計。if empty()or empty()*判斷輸入信息是否為空 messagebox(“對不起！你輸入的信息不完整”，48，“信息不全”) =” =”*信息不全時情況文本框2的內(nèi)容else use user locate for user_id=alltrim()*根據(jù)輸入信息查詢 if user_pswd=alltrim()messagebox=(“密碼正確”，64，”通過”)par=alltrim()do form account\form\chaxun *密碼正確時執(zhí)行查詢表單 else messagebox(“對不起！你輸入的信息有誤，請重試”，64，”錯誤”) inpswd2=inpswd2+1 if inpswd2=3 *輸入錯誤達3次后退出本表單 =” =” *輸入錯誤未達3次后清空文本框2，等待輸入 endif endif endif 帳戶管理模塊的設(shè)計 本模塊的功能在于管理員通過簡單的操作，可以實現(xiàn)銀行對帳戶管理的一般功能。向表單中添加控件PageFrame9頁框），設(shè)置頁框的PageCount屬性為7，即頁框中包含7個子頁面。為表單設(shè)置Init事件代碼：public lastuser ,lastcard*聲明全局變量lastuser，lastcardsele banklastuser=alltrim()lastcard=alltrim()*將表bank中的值賦給相應(yīng)變量為OptionGroup（選項按鈕組）設(shè)置InteractiveChange事件代碼： if =1*如果帳戶欄被選中 =.T.*將帳號欄對應(yīng)的文本框設(shè)為可用=.F.*如果卡號欄被選中=.T.*將卡號欄對應(yīng)的文本框設(shè)為可用=.F.endif=’’=’’*更換選項時清空兩個文本框中的信息添加4個TEXT(文本框)控件，設(shè)置外觀屬性，如表4－1所示控件EnabledInputmaskfomartText1.F.9999999999999Text2.F.9999999999999999Text3.T.Text4.F.為4個text控件設(shè)計事件響應(yīng)。tex1的InteractiveChange 事件代碼為：select userlocate for =*在表USER中查找匹配的記錄=*將相應(yīng)的記錄的“存款“字段寫入Text4中Text2的的InteractiveChange 事件代碼為：select cardlocate for card. card_id=*在表card中查找匹配的記錄=*將相應(yīng)記錄的“存款”字段寫入Tex4中這兩個InteractiveChange事件代碼的功能分別為通過獲得“用戶帳號”和“用戶卡號”的方式直接動態(tài)的顯示用戶的相關(guān)信息。為“存入”按鈕設(shè)置Click事件代碼：local countid ,cardid,moneyin,allhere*聲明局部變量countid=alltrim()cardid=alltrim()moneyin=( )*給局部變量賦值if empty(cardid) and empty(countid) messagebox(“您輸入的信息不完整，請重輸！”,48)else if empty(cardid)*當使用帳號存款時sele userlocate for alltrim()=counted*查找輸入的帳號if eof() messagebox(“對不起，沒有這個帳號！”)elseif moneyin=0*當存款金額為0或負值時，顯示錯誤提示messagebox(“您輸入的存款金額有誤，請重輸！”,48)else allhere=user_all allhere=allhere+moneyin*計算帳戶的存款replace with allhere*將表中的相應(yīng)數(shù)據(jù)更新 if allhere=0 replace with “正?！? sele card locate for alltrim()=alltrim(countid) replace with allhere with”正?！? sele userall*在userall表（賬戶存取信息表）中作記錄 go bottom ap
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1