atm機(jī)器系統(tǒng)主板選型aimb-562laimb-267-資料下載頁(yè)
2024-11-04 13:54本頁(yè)面
【正文】 amp。 ss = adCmdText sql = ”select * from ATM“ = sql 39。連接數(shù)據(jù)庫(kù)Do While Not Set addLIST = (, , !ATM機(jī)編號(hào), , 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 銀行名稱(chēng)=39?！?amp。 Text1(0).Text amp。 ”39。,銀行地址=39?！?amp。 Text1(1).Text amp。 ”39。,郵政編號(hào)=39?！?amp。 Text1(2).Text amp。 ”39。,負(fù)責(zé)人=39?！?amp。 Text1(3).Text amp。 ”39。, 聯(lián)系電話(huà)=39?！?amp。 Text1(4).Text amp。 ”39?！?= sMsgBox(”修改成功“)ElseMsgBox ”修改信息不全，請(qǐng)檢查！“End If End SubPrivate Sub Form_Load()Dim ss As String Dim sql As String ss = + ”“ = ”P(pán)rovider=。Jet OLEDB:Database Password=gxl。Persist Security Info=False。Data Source=“ amp。 ss = adCmdText sql = ”select * from 銀行信息“ = sql 39。連接數(shù)據(jù)庫(kù) 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, ”運(yùn)行錯(cuò)誤“ 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)成功還原！請(qǐng)重新登陸 “, 48, ”提示“Unload MeElseExit Sub End IfEnd If Exit SubERR_line: MsgBox ”不能完成數(shù)據(jù)還原，請(qǐng)進(jìn)入系統(tǒng)后未做任何操作時(shí)進(jìn)行！“, 48, ”運(yùn)行錯(cuò)誤 End Sub四、數(shù)據(jù)庫(kù)本系統(tǒng)使用的是access數(shù)據(jù)庫(kù)。數(shù)據(jù)庫(kù)密碼為gxl。本系統(tǒng)共有5張表，分別為：ATM，事務(wù)，系統(tǒng)用戶(hù)表，銀行信息，賬戶(hù)。下面給出數(shù)據(jù)庫(kù)的相關(guān)截圖。表圖：ATM的設(shè)計(jì)視圖事務(wù)的設(shè)計(jì)視圖系統(tǒng)用戶(hù)表的設(shè)計(jì)視圖銀行信息的設(shè)計(jì)視圖賬戶(hù)的設(shè)計(jì)視圖
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1