atm機器系統(tǒng)主板選型aimb-562laimb-267-資料下載頁
2024-11-04 13:54本頁面
【正文】 amp。 ss = adCmdText sql = ”select * from ATM“ = sql 39。連接數(shù)據(jù)庫Do While Not Set addLIST = (, , !ATM機編號, , i)(1)= IIf(IsNull((”狀態(tài)“).Value), (”狀態(tài)“).Value)(2)= IIf(IsNull((”余額“).Value), (”余額“).Value) Loop = False End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case Is = 2 39。 1Case Is = 339。 1Case Is = 4Call addLIST End Select End Sub界面截圖：”“, ”“，六）、單位信息界面功能：顯示單位信息代碼： Private Sub cmdBC_Click()39。修改銀行信息 Dim s As String If Not Text1(0).Text = ”“ And Not Text1(1).Text = ”“ And Not Text1(2).Text = ”“ And Not Text1(3).Text = ”“ And Not Text1(4).Text = ”“ Thens = ”update 銀行信息 set 銀行名稱=39?！?amp。 Text1(0).Text amp。 ”39。,銀行地址=39?！?amp。 Text1(1).Text amp。 ”39。,郵政編號=39?！?amp。 Text1(2).Text amp。 ”39。,負責(zé)人=39?！?amp。 Text1(3).Text amp。 ”39。, 聯(lián)系電話=39?！?amp。 Text1(4).Text amp。 ”39?！?= sMsgBox(”修改成功“)ElseMsgBox ”修改信息不全，請檢查！“End If End SubPrivate Sub Form_Load()Dim ss As String Dim sql As String ss = + ”“ = ”Provider=。Jet OLEDB:Database Password=gxl。Persist Security Info=False。Data Source=“ amp。 ss = adCmdText sql = ”select * from 銀行信息“ = sql 39。連接數(shù)據(jù)庫 End Sub界面截圖：七）、下面給出數(shù)據(jù)備份還原的代碼 Private Sub a14_Click()On Error GoTo ERR_line newname = amp。 ”“ datapath = amp。 ”backup“ amp。 Date amp。 ” “ FileCopy newname, datapath MsgBox ”數(shù)據(jù)已備份到“ amp。 datapath, 64, ”提示“ Exit Sub ERR_line: MsgBox ”不能完成數(shù)據(jù)備份！“, 48, ”運行錯誤“ End SubPrivate Sub a15_Click()On Error GoTo ERR_linesnewname = sdatapath = amp。 ”“If snewname ”“ ThenIf MsgBox(”還原后將覆蓋原有數(shù)據(jù)，確定還原嗎?“, vbInformation + vbYesNo, ”提示“)= vbYes ThenFileCopy snewname, sdatapathMsgBox ”數(shù)據(jù)已經(jīng)成功還原！請重新登陸 “, 48, ”提示“Unload MeElseExit Sub End IfEnd If Exit SubERR_line: MsgBox ”不能完成數(shù)據(jù)還原，請進入系統(tǒng)后未做任何操作時進行！“, 48, ”運行錯誤 End Sub四、數(shù)據(jù)庫本系統(tǒng)使用的是access數(shù)據(jù)庫。數(shù)據(jù)庫密碼為gxl。本系統(tǒng)共有5張表，分別為：ATM，事務(wù)，系統(tǒng)用戶表，銀行信息，賬戶。下面給出數(shù)據(jù)庫的相關(guān)截圖。表圖：ATM的設(shè)計視圖事務(wù)的設(shè)計視圖系統(tǒng)用戶表的設(shè)計視圖銀行信息的設(shè)計視圖賬戶的設(shè)計視圖
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1