【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 分類表 明細(xì)表 庫存表 領(lǐng)用表 汕尾電大 2021 級(jí)計(jì)算機(jī)科學(xué)與技術(shù)本科班畢業(yè)設(shè)計(jì)論文 —— 電氣設(shè)備管理系統(tǒng)的設(shè)計(jì) 第 19頁 共 85頁 4． 5 系統(tǒng)數(shù)據(jù)模型設(shè)計(jì) ER圖 日期 設(shè)備 編號(hào) 數(shù)值 描述 查詢次數(shù) 員工 部 門 姓名 職稱 證號(hào) 班組 汕尾電大 2021 級(jí)計(jì)算機(jī)科學(xué)與技術(shù)本科班畢業(yè)設(shè)計(jì)論文 —— 電氣設(shè)備管理系統(tǒng)的設(shè)計(jì) 第 20頁 共 85頁 數(shù)據(jù)表 本系統(tǒng)的數(shù)據(jù)庫采用了大量的數(shù)據(jù)表： 1)管理 信息表 字段 數(shù)據(jù)類型 數(shù)據(jù)長度 名稱 文本 20 密碼 文本 20 2)設(shè)備 信息表 字段 數(shù)據(jù)類型 數(shù)據(jù)長度 信息編號(hào) 數(shù)字 6 名稱 文本 10 值 文本 20 類別 數(shù)字 10 描述 文本 10 3)員工 信息表 字段 數(shù)據(jù)類型 數(shù)據(jù)長度 查詢證號(hào) 數(shù)字 6 姓名 文本 10 職稱 文本 20 部門 數(shù)字 20 罰款 文本 10 4)使用 信息表 字段 數(shù)據(jù)類型 數(shù)據(jù)長度 類別 數(shù)字 6 入庫 文本 20 出庫 文本 10 信息編號(hào) 文本 20 汕尾電大 2021 級(jí)計(jì)算機(jī)科學(xué)與技術(shù)本科班畢業(yè)設(shè)計(jì)論文 —— 電氣設(shè)備管理系統(tǒng)的設(shè)計(jì) 第 21頁 共 85頁 第五章 系統(tǒng)實(shí)現(xiàn) 與 操作 5． 1 登錄 首先，運(yùn)行程序，在管理員登陸界面登陸 （已設(shè)置 3個(gè)管理員） ，管理員登錄界面如下圖所示： 輸入管理員名及相應(yīng)密碼后，即可進(jìn)入系統(tǒng)主界面進(jìn)行操作。系統(tǒng)主界面如下圖所示： 汕尾電大 2021 級(jí)計(jì)算機(jī)科學(xué)與技術(shù)本科班畢業(yè)設(shè)計(jì)論文 —— 電氣設(shè)備管理系統(tǒng)的設(shè)計(jì) 第 22頁 共 85頁 該主界面的程序源代碼如下： Dim db1 As Database Dim db2 As Database Dim db3 As Database Dim rst As Recordset Dim rst1 As Recordset 39。打開表 Personal Dim rst2 As Recordset 39。打開表 BookFlag Dim rst3 As Recordset 39。打開表 Book Dim ws1 As Workspace Dim ws2 As Workspace Dim qry2 As QueryDef Dim RecNumBookFf As Integer 39。表 BookFf的記錄個(gè)數(shù) Dim SFlag As String Private Type MSet BookNum As Integer BookCost As Single End Type Dim SetFlag As MSet Option Explicit Private Sub AboutMnu_Click() (1) End Sub Private Sub AddMnu_Click() (1) End Sub Private Sub BackMnu_Click() cmdBackBook_Click End Sub Private Sub cmdBackBook_Click() 39。打開 歸還設(shè)備 對(duì)話框 cmdKong_Click (1) cmdKong_Click End Sub Private Sub cmdKong_Click() 39。清空所有文本 = = = = = txtBookName = txtZhiCheng = 汕尾電大 2021 級(jí)計(jì)算機(jī)科學(xué)與技術(shù)本科班畢業(yè)設(shè)計(jì)論文 —— 電氣設(shè)備管理系統(tǒng)的設(shè)計(jì) 第 23頁 共 85頁 = = = False = True 39。 End Sub Private Sub cmdOkCancel_Click(Index As Integer) Select Case Index Case 1 If (是否修改 ) = True Then MsgBox 此信息已經(jīng)修改！ , 0 + 48, 提示 = = False = True Exit Sub End If (信息編號(hào) ) = (信息編號(hào) ) (名稱 ) = (名稱 ) (值 ) = (值 ) (描述 ) = (描述 ) (日期 ) = Date (查詢證號(hào) ) = BookId (姓名 ) = (類別 ) = (類別 ) (是否修改 ) = True (修改日期 ) = Date DataRef = = False = True End Select End Sub Private Sub CmdLogin_Click() loop1: 39。如果沒有此證，返回 (1) If LoginFlag Then 汕尾電大 2021 級(jí)計(jì)算機(jī)科學(xué)與技術(shù)本科班畢業(yè)設(shè)計(jì)論文 —— 電氣設(shè)備管理系統(tǒng)的設(shè)計(jì) 第 24頁 共 85頁 =, BookId 39。查找借 出 證號(hào)碼 If Then MsgBox 沒有此員工證號(hào)碼！ , 0 + 48, 錯(cuò)誤 LoginFlag = False GoTo loop1 39。返回 loop1 End If = BookId = (姓名 ) amp。 vbNullString = (班組 ) amp。 vbNullString = (部門 ) amp。 vbNullString txtZhiCheng = (職稱 ) amp。 vbNullString = (罰款 ) amp。 Empty = = False = True DataRef 39。輸出所借 設(shè)備 LoginFlag = False If (罰款 ) 0 Then If MsgBox(txtBookId amp。 amp。 txtName amp。 共計(jì)欠費(fèi) _ amp。 (罰款 ) amp。 元 是否從數(shù)據(jù)庫中刪除？ , 4 + 48, 欠費(fèi) ) _ = vbYes Then 39。從數(shù)據(jù)庫中刪除欠費(fèi)記錄 (罰款 ) = 0 = (罰款 ) amp。 Empty End If Else 39。把罰款復(fù)制為 0 (罰款 ) = 0 End If End If End Sub Private Sub EditIdMnu_Click() (1) End Sub Private Sub EditMnu_Click() 汕尾電大 2021 級(jí)計(jì)算機(jī)科學(xué)與技術(shù)本科班畢業(yè)設(shè)計(jì)論文 —— 電氣設(shè)備管理系統(tǒng)的設(shè)計(jì) 第 25頁 共 85頁 (1) End Sub Private Sub ExitMnu_Click() Unload Me End Sub Private Sub FenMnu_Click() (1) End Sub 39。響應(yīng)快捷鍵 Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) 39。按下 Ctrl鍵了 If Shift = 2 Then Select Case KeyCode Case 68 39。D登錄證 CmdLogin_Click Case 72 39。H歸還 Case 81 39。Q清空文本 cmdKong_Click Case 83 39。S修改 If Then cmdOkCancel_Click 1 Case 71 39。G改回 cmdBackBook_Click End Select End If End Sub Private Sub Form_Load() Set db1 = Workspaces(0).OpenDatabase( amp。 \Database\, False) Set rst1 = (Personal, dbOpenTable) = 查詢證號(hào) Set db2 = Workspaces(0).OpenDatabase( amp。 \Database\, False) Set rst2 = (BookFf, dbOpenTable) Set qry2 = () = 信息編號(hào) 汕尾電大 2021 級(jí)計(jì)算機(jī)科學(xué)與技術(shù)本科班畢業(yè)設(shè)計(jì)論文 —— 電氣設(shè)備管理系統(tǒng)的設(shè)計(jì) 第 26頁 共 85頁 Set db3 = Workspaces(0).OpenDatabase( amp。 \Database\, False) Set rst3 = (Book, dbOpenTable) = 信息編號(hào) Open amp。 \Database\ For Random As 1 Len = Len(SetFlag) Get 1, 1, SetFlag BookNum = FaCost = = lvwReport , , 證件號(hào) , , 查詢?nèi)诵彰? , , 信息編號(hào) , , 名稱 , , 值 , , 類別 , , 描述 , , 修改日期 = = = = = txtBookName = txtZhiCheng = = txtCost = txtChuBan = txtLentDate = End Sub Private Sub Form_Unload(Cancel As Integer) 汕尾電大 2021 級(jí)計(jì)算機(jī)科學(xué)與技術(shù)本科班畢業(yè)設(shè)計(jì)論文 —— 電氣設(shè)備管理系統(tǒng)的設(shè)計(jì) 第 27頁 共 85頁 Close 1 End Sub Private Sub LoginMnu_Click() CmdLogin_Click End Sub Private Sub MnuOP_Click() End Sub Private Sub SearchMnu_Click() End Sub Private Sub SetMnu_Click() (1) End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 3 39。 (1).Text = 編輯借 出 證 (1) 39。 (1).Text = 編輯借 出 證 Case 5 (1) End Select End Sub Private Sub Toolbar1_ButtonMenuClick(ByVal buttonmenu As ) Select C