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