銀行設(shè)備管理系統(tǒng)(參考版)
2025-08-11 04:49本頁(yè)面
【正文】 參考文獻(xiàn)[1] 蘇嘯，周成義，王強(qiáng),《 Visual Basic 程序設(shè)計(jì)教程 》,[2] 何旭洪,《Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例導(dǎo)航》,人民郵電出版社 2002[3] 孫健鵬,《VB數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析》,機(jī)械工業(yè)出版社[4] 王漢新,《Visual Basic程序設(shè)計(jì)》,科學(xué)出版社 2002。但是由于經(jīng)驗(yàn)方面的原因，以及對(duì)庫(kù)存方面的操作流程了解不足，該系統(tǒng)還有許多不盡如人意的地方和功能上的缺陷，這些都有待于進(jìn)一步改善。其功能通過(guò)個(gè)別單位的使用及改動(dòng)，能夠完成銀行設(shè)備管理的需求。啟動(dòng)窗體FrmUserEdit .Show 1 End With 39。如果當(dāng)前用戶(hù)為Admin，則不能修改用戶(hù)名 If Format(, ) = admin Then . = False End If 39。如果沒(méi)有選擇用戶(hù)名，則返回 If = Then MsgBox 請(qǐng)選擇要修改的用戶(hù) Exit Sub End If 39。單擊“用戶(hù)管理”按鈕可以激活窗體，然后依次填寫(xiě)相關(guān)的內(nèi)容，你只有正確的填寫(xiě)了相關(guān)的內(nèi)容，才可以將光標(biāo)移動(dòng)到下一個(gè)項(xiàng)目上，你可以使用“Tab”鍵來(lái)移動(dòng)光標(biāo)，確認(rèn)所有內(nèi)容正確填寫(xiě)完成后，請(qǐng)單擊“添加”，在保存之前你可以修改相關(guān)的內(nèi)容，在任何時(shí)候“退出”按鈕都是可用的，你可以隨時(shí)終止你的操作。單擊“設(shè)備巡檢管理”按鈕可以激活窗體，然后依次填寫(xiě)相關(guān)的內(nèi)容，你只有正確的填寫(xiě)了相關(guān)的內(nèi)容，才可以將光標(biāo)移動(dòng)到下一個(gè)項(xiàng)目上，你可以使用“Tab”鍵來(lái)移動(dòng)光標(biāo)，確認(rèn)所有內(nèi)容正確填寫(xiě)完成后，請(qǐng)單擊“添加”，在保存之前你可以修改相關(guān)的內(nèi)容，在任何時(shí)候“退出”按鈕都是可用的，你可以隨時(shí)終止你的操作。單擊“設(shè)備報(bào)廢審批管理”按鈕可以激活窗體，然后依次填寫(xiě)相關(guān)的內(nèi)容，你只有正確的填寫(xiě)了相關(guān)的內(nèi)容，才可以將光標(biāo)移動(dòng)到下一個(gè)項(xiàng)目上，你可以使用“Tab”鍵來(lái)移動(dòng)光標(biāo)，確認(rèn)所有內(nèi)容正確填寫(xiě)完成后，請(qǐng)單擊“添加”，在保存之前你可以修改相關(guān)的內(nèi)容，在任何時(shí)候“退出”按鈕都是可用的，你可以隨時(shí)終止你的操作。單擊“設(shè)備移機(jī)信息管理”按鈕可以激活窗體，然后依次填寫(xiě)相關(guān)的內(nèi)容，你只有正確的填寫(xiě)了相關(guān)的內(nèi)容，才可以將光標(biāo)移動(dòng)到下一個(gè)項(xiàng)目上，你可以使用“Tab”鍵來(lái)移動(dòng)光標(biāo)，確認(rèn)所有內(nèi)容正確填寫(xiě)完成后，請(qǐng)單擊“添加”，在保存之前你可以修改相關(guān)的內(nèi)容，在任何時(shí)候“退出”按鈕都是可用的，你可以隨時(shí)終止你的操作。界面如下：?jiǎn)螕簟霸O(shè)備維護(hù)管理”按鈕可以激活窗體，然后依次填寫(xiě)相關(guān)的內(nèi)容，你只有正確的填寫(xiě)了相關(guān)的內(nèi)容，才可以將光標(biāo)移動(dòng)到下一個(gè)項(xiàng)目上，你可以使用“Tab”鍵來(lái)移動(dòng)光標(biāo)，確認(rèn)所有內(nèi)容正確填寫(xiě)完成后，請(qǐng)單擊“添加”，在保存之前你可以修改相關(guān)的內(nèi)容，在任何時(shí)候“退出”按鈕都是可用的，你可以隨時(shí)終止你的操作。判斷此設(shè)備編號(hào)是否存在 If .In_DB(Trim(txtDevNo)) = True Then MsgBox (已經(jīng)存在此設(shè)備編號(hào)) Exit Sub End If .Insert Else .Update (OriId) End If End With 39。把用戶(hù)錄入的數(shù)據(jù)賦值到數(shù)據(jù)庫(kù)對(duì)象變量中 With MyDevice .DevNo = MakeStr(txtDevNo) .TypeID = Val() .EnterpriseID = Val() .Model = MakeStr(txtModel) .Price = Val(txtPrice) .Place = MakeStr(txtPlace) .BranchID = Val() .StartDate = Format(, yyyymmdd) .Administrator = MakeStr(txtAdmin) .Poster = MakeStr(txtPoster) .Status = 正常 39。界面如下：?jiǎn)螕舸_定按鈕觸發(fā) Cmd_OK_Click事件,代碼如下:Private Sub Cmd_OK_Click() 39。界面如下：“設(shè)備運(yùn)行管理設(shè)備管理”或是單擊工具欄的第二個(gè)圖標(biāo)打開(kāi)下面的窗體。刷新分類(lèi)列表End Sub4. 你可以通過(guò)選擇菜單欄中的“基本信息管理設(shè)備信息管理”或是單擊工具欄的第二個(gè)圖標(biāo)打開(kāi)下面的窗體。判斷新的名稱(chēng)是否已經(jīng)存在 If (Trim(txtName), 1) = True Then MsgBox (已經(jīng)存在此分類(lèi)名稱(chēng)) Exit Sub End If 39。修改分類(lèi)名稱(chēng) If Len(Trim()) = 0 Then MsgBox (請(qǐng)選擇記錄) Exit Sub End If 39。判斷數(shù)據(jù)庫(kù)中是否已經(jīng)存在此分類(lèi)名稱(chēng) If (Trim(txtName), 1) = True Then MsgBox (已經(jīng)存在此分類(lèi)名稱(chēng)) Exit Sub End If 39。單擊添加按鈕觸發(fā)Cmd_Add_Click事件,代碼如下:Private Sub Cmd_Add_Click() 39。單擊“設(shè)備類(lèi)型管理”按鈕可以激活窗體，然后依次填寫(xiě)相關(guān)的內(nèi)容，你只有正確的填寫(xiě)了相關(guān)的內(nèi)容，才可以將光標(biāo)移動(dòng)到下一個(gè)項(xiàng)目上，你可以使用“Tab”鍵來(lái)移動(dòng)光標(biāo)，確認(rèn)所有內(nèi)容正確填寫(xiě)完成后，請(qǐng)單擊“添加”，在保存之前你可以修改相關(guān)的內(nèi)容，在任何時(shí)候“退出”按鈕都是可用的，你可以隨時(shí)終止你的操作。 Set Db = OpenDatabase( + \) Set RS = (sql) If = False Then Username = (UserName) ElseIf i
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1