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

　　

【正文】 ) i = MsgBox(是否確定退出系統(tǒng)！ , vbYesNo, 提示 ) If i = vbNo Then Exit Sub End End Sub Private Sub yonghu_Click() End Sub Private Sub yundongyun_Click() End Sub 運動員報名模塊 運動員報名 管理 界面 實現(xiàn) 報名數(shù)據(jù)新增修改刪除刷新 等 方面的設(shè)計，是系統(tǒng)的核心內(nèi)容，其實現(xiàn)界面及代碼如下： 東北電力大學(xué)本科畢業(yè)論文 28 1． 報名管理界面 圖 43 數(shù)據(jù)管理界面 2． 該模塊實現(xiàn)代碼 Dim yf% Private Sub Command3_Click() If yf 0 Then MsgBox 現(xiàn)在正在執(zhí)行其他操作，不能進(jìn)行查詢！ , , 提示 Exit Sub End If If = Then MsgBox 請選擇要查詢的字段！ , , 提示 Exit Sub End If If = Then MsgBox 請輸入要查詢的條件！ , , 提示 第 4 章 學(xué)生運動會成績管理系統(tǒng)的實現(xiàn) 29 Exit Sub End If If = 報名編號 Then select * From baoming where 報名編號 =39。 + Trim() + 39。 If = 0 Then MsgBox 沒有要查詢的記錄！ , , 提示 End If = select * From baoming where 報名編號 =39。 + Trim() + 39。 ElseIf = 姓名 Then select * From baoming where 姓名 =39。 + Trim() + 39。 If = 0 Then MsgBox 沒有要查詢的記錄！ , , 提示 End If = select * From baoming where 姓名 =39。 + Trim() + 39。 Else MsgBox 請選擇要查詢的正確字段！ , , 提示 End If End Sub Private Sub Form_Load() =driver={SQL Server}。server=(local)。database=ydhcj = select * From baoming 東北電力大學(xué)本科畢業(yè)論文 30 Call Up(比賽項目名稱 , bisaixm, Me) End Sub Private Sub Command1_Click() On Error Resume Next If yf = 1 Then 39。新增 select * From baoming, Cnn, adOpenKeyset, adLockOptimistic Call Check(報名編號 , Text1(0), Me, 2) If Fh = 1 Then Fh = 0 Exit Sub End If For i = 0 To 2 (i) = Text1(i) Next i (參賽項目 ) = (報名日期 ) = (性別 ) = For i = 0 To 2 Text1(i) = Next i yf = 0 ElseIf yf = 2 Then 39。修改 select * From baoming where 報名編號 =39。 + Trim((0)) + 39。, Cnn, adOpenKeyset, adLockOptimistic For i = 0 To 2 第 4 章 學(xué)生運動會成績管理系統(tǒng)的實現(xiàn) 31 (i) = Text1(i) Next i (參賽項目 ) = (報名日期 ) = (性別 ) = yf = 0 End If = False = False End Sub Private Sub Command2_Click() For i = 0 To 2 Text1(i) = Next i yf = 0 = False = False End Sub Private Sub DataGrid1_Click() If yf = 1 Or yf = 2 Then Exit Sub For i = 0 To 2 Text1(i) = (i) Next i End Sub Private Sub Toolbar1_ButtonClick(ByVal button As ) Select Case button 東北電力大學(xué)本科畢業(yè)論文 32 Case 新增 For i = 0 To 2 Text1(i) = Next i Text1(0).SetFocus = True = True yf = 1 Case 退出 Unload Me Case 修改 If Text1(0) = Then MsgBox 請選擇要修改的崗位 , vbCritical, 警告 Else = True = True Text1(0).SetFocus yf = 2 End If Case 刪除 If yf 0 Then MsgBox 現(xiàn)在正在執(zhí)行其他操作，不能進(jìn)行刪除！ , , 提示 Exit Sub End If On Error Resume Next select * From baoming where 報名編號 =39。 + Trim(Text1(0)) + 39。, Cnn, adOpenKeyset, adLockOptimistic If Text1(0) = Then MsgBox 請選擇要刪除的崗位 , vbCritical, 警告 Else 第 4 章 學(xué)生運動會成績管理系統(tǒng)的實現(xiàn) 33 i = MsgBox(是否確定刪除報名編號為“ amp。 Text1(0) amp。 ”的崗位 , vbYesNo, 提示 ) If i = vbYes Then For i = 0 To 2 Text1(i) = Next i Else Exit Sub End If End If End Select End Sub 成績錄入界面 該界面可以實現(xiàn)對成績信息的新增修改刪除刷新等操作 ， 其實現(xiàn)界面及代碼如下 ： 1． 實現(xiàn)界面 圖 44 成績錄入界面 東北電力大學(xué)本科畢業(yè)論文 34 2． 實現(xiàn)代碼 Private Sub Command1_Click() On Error Resume Next If = Or = Then MsgBox 請將信息填寫完整！ , , 提示 Exit Sub End If select * From baoming where 報名編號 =39。 + Trim() + 39。 (成績 ) = (是否打破記錄 ) = (狀態(tài) ) = 已錄入成績 MsgBox 成績錄入成功！ , , 提示 = : = End Sub Private Sub Command2_Click() = : = End Sub Private Sub Command3_Click() On Error Resume Next If = Then MsgBox 請選擇要查詢的項目 ！ , , 提示 Exit Sub End If select * From bisaixm where 比 賽 項 目 名 稱 =39。 + 第 4 章 學(xué)生運動會成績管理系統(tǒng)的實現(xiàn) 35 Trim() + 39。 If = 0 Then MsgBox 沒有要查詢的記錄 ！ , , 提示 Exit Sub End If = (項目最佳記錄 ) select * From baoming where 參賽項目 =39。 + Trim() + 39。 If = 0 Then MsgBox 沒有要查詢的記錄 ！ , , 提示 Exit Sub End If For i = 0 To 1 (報名編號 ) Next i End Sub Private Sub Command4_Click() If = Then MsgBox 請選擇要查詢的項目！ , , 提示 Exit Sub 東北電力大學(xué)本科畢業(yè)論文 36 End If select * From bisaixm where 比 賽 項 目 名 稱 =39。 + Trim() + 39。 If = 0 Then MsgBox 沒有要查詢的記錄 ！ , , 提示 Exit Sub End If = (項目 最佳記錄 ) select * From baoming where 參賽項目 =39。 + Trim() + 39。 and 狀態(tài) =39。已錄入成績 39。 If = 0 Then MsgBox 沒有要查詢的記錄 ！ , , 提示 Exit Sub End If For i = 0 To 1 (報名編號 ) Next i End Sub 比賽項目管理功能 比賽項目管理功能主要實現(xiàn)對比賽項目信息的錄入 ， 其實現(xiàn)界面如下圖所示 ： 第 4 章 學(xué)生運動會成績管理系統(tǒng)的實現(xiàn) 37 圖 45 比賽項目管理界面 成績查詢管理功能 成績查詢管理功能主要實現(xiàn)對成績信息的查詢，界面如下： 圖 46 成績查詢界面 東北電力大學(xué)本科畢業(yè)論文 38 用戶管理功能 對用戶的信息錄入到數(shù)據(jù)庫中，可以隨時地對用戶信息進(jìn)行添加，刪除和修改，并把處理以后的信息保存到數(shù)據(jù)庫中，以方便一般用戶和管理員查詢，該部分可以實現(xiàn)管理員的增加及密碼的修改等功能，詳細(xì)描述如下： 1． 模塊操作流程圖如下 圖 47 系統(tǒng)管理流程圖 2． 用戶修改密碼 管理員必須通過輸入正確的用戶名和密碼 才能進(jìn)入系統(tǒng)進(jìn)行管理、修改和查詢， 用戶名和密碼不正確管理員將無法進(jìn)行對圖書館的管理和操作 ． 登陸界面后可以選擇系統(tǒng)管理進(jìn)行用戶密碼的修 改，密碼修改界面如下： 登錄 選擇操作（用戶新增、密碼修改） 系統(tǒng)管理界面 開 始 輸入相關(guān)信息 界面下端顯示 第 4 章 學(xué)生運動會成績管理系統(tǒng)的實現(xiàn) 39 圖 48 用戶修改密碼界面 3． 新增用戶功能 系統(tǒng)管理