【正文】 [J]。Qinghai Electric Power。2022致 謝本文的成功完成首先需要特別感謝我的指導教師曲朝霞老師。感謝她在我整個畢業(yè)設計過程中的細心指導和提出的珍貴建議。同時，在我整個設計過程中每當我遇到難題而堅持不下，想要放棄時又是她通過耐心的教導給了我無窮的信心，讓我能夠堅持下來。感謝曲朝霞老師，感謝她在論文的寫作過程中給與我的無私的幫助。曲老師嚴以治學的態(tài)度，誨人不倦的精神，為人師表的道德風范將會一直影響這我今后的學習、生活和工作，是我終生受益匪淺。感謝曲朝霞老師！其次，感謝我們畢業(yè)設計小組的每一個成員！是你們讓我在為一個問題感到毫無頭緒的時候給了我無私的幫助?；蛟S你們并不能給我問題的答案。但你們會與我一同思考，讓我在感到無助時明白我并不是一個人！感謝我們的團隊，我們的共同努力讓我們走到了今天，取得了成功。我永遠不會忘記我們一起共同奮斗的時光！此外，我還要感謝我的同班同學和宿舍你的兄弟。感謝他們在我完成畢業(yè)論文期間給予我的關心和幫助。感謝他們讓我度過了令人愉快的大學生活。最后，我要感謝我的家人。他們雖然和我相距很遠，但他們卻一直關心著我的學習和畢業(yè)論文的完成工作。是他們?yōu)槲姨峁┝肆己玫沫h(huán)境能夠完成我的論文。我衷心的感謝他們！衷心感謝在百忙中抽出時間審閱本論文和參加我畢業(yè)答辯的老師！30 / 45附 錄本系統(tǒng)設計過程中各模塊主要程序一 公用模塊（Module）（1）聲明變量Dim MsgText As StringDim mrc As Dim UserName As String（2）定義 ExecuteSQL 函數(shù)Public Function ExecuteSQL(ByVal sql As String, MsgString As String) As Dim n As Dim rst As Dim sTokens() As StringsTokens = Split(sql)Set n = New ConnectStringIf InStr(INSERT,DELETE,UPDATE , UCase$(sTokens(0))) Then sql MsgString = sTokens(0) amp。 query successful Else Set rst = New Trim$(sql), n, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst MsgString = 查詢到 amp。 amp。 條紀錄 End If ExecuteSQL_Exit: Set rst = Nothing Exit Function Set n = Nothing ExecuteSQL_Error: MsgString = 查詢錯誤: amp。 Resume ExecuteSQL_ExitEnd Function（3）定義 ConnecString 函數(shù)Public Function ConnectString() As String31 / 45ConnectString = FileDSN=。UID=sa。PWD=saEnd Function（4）定義 Testtxt 函數(shù)Public Function Testtxt(txt As String) As BooleanIf Trim(txt) = Then Testtxt = False Else Testtxt = TrueEnd IfEnd Function二 用戶管理模塊一用戶登錄（1）通用聲明Option ExplicitPublic OK As BooleanPublic UserName As StringDim miCount As IntegerDim p As Picture（2）用戶登錄Private Sub Command1_Click()Dim txtSQL As StringDim mrc As Dim MsgText As StringUserName = If Trim( = ) Then MsgBox 沒有這個用戶，請重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from users where 用戶名=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 沒有這個用戶，請重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then OK = True UserName = Trim() Else MsgBox 輸入密碼不正確，請重新輸入！, vbOKOnly + vbExclamation, 警告 = End If End IfEnd If32 / 45miCount = miCount + 1If miCount = 3 Then MsgBox 用戶名或密碼錯誤次數(shù)過多?。?！系統(tǒng)將退出，請重新登入！ End IfEnd Sub（3）用戶退出Private Sub Command2_Click()If MsgBox(是否真的退出本系統(tǒng)？, vbQuestion Or vbYesNo Or vbDefaultButton2, 系統(tǒng)提示) = vbNo Then Exit SubUnload MeEnd Sub二 用戶注冊（1）用戶注冊Private Sub Command1_Click()Dim txtSQL As StringDim mrc As Dim MsgText As StringIf Trim() = Then MsgBox 請輸入用戶名！, vbOKOnly + vbExclamation, 警告 Exit Sub Else txtSQL = select*from users Set mrc = ExecuteSQL(txtSQL, MsgText)While ( = False) If Trim((0) = Trim(Text1)) Then MsgBox 用戶已存在，請重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 = = = Exit SubElseEnd IfWendEnd IfIf Trim( ) ThenMsgBox 兩次輸入的密碼不一樣，請確認！, vbOKOnly + vbExclamation, 警告 = = Exit SubElseIf = ThenMsgBox 密碼不能為空！ , vbOKOnly + vbExclamation, 警告 = = 33 / 45Else(0) = Trim()(1) = Trim()MsgBox 添加用戶成功！ , vbOKOnly + vbExclamation, 添加用戶End IfEnd IfEnd Sub（2）退出注冊Private Sub Command2_Click()Unload MeEnd Sub三 指標管理模塊一指標錄入（1）指標錄入Private Sub Command1_Click()Dim mrc As New Dim txtSQL As StringDim MsgText As StringtxtSQL = select *from 電網(wǎng)運行指標 Set mrc = ExecuteSQL(txtSQL, MsgText)If Not Testtxt() ThenMsgBox 請輸入指標單位！ , vbOKOnly + vbExclamation, 警告Exit SubEnd IfIf Not Testtxt() ThenMsgBox 請輸入報送時間！ , vbOKOnly + vbExclamation, 警告Exit SubEnd IfIf Not IsDate() Then MsgBox 報送時間應輸入日期格式（yyyymmdd ）！ , vbOKOnly + vbExclamation, 警告 Else Text2 = Format(Text2, yyyymmdd)If Not Testtxt() ThenMsgBox 請輸入指標大??！ , vbOKOnly + vbExclamation, 警告Exit SubEnd IfIf Not Testtxt() ThenMsgBox 請選擇指標名稱！ , vbOKOnly + vbExclamation, 警告End IfIf Not Testtxt() ThenMsgBox 請選擇報送周期！ , vbOKOnly + vbExclamation, 警告Exit SubEnd If34 / 45txtSQL = select * from 電網(wǎng)運行指標 where 指標名稱=39。 amp。 Trim() amp。 39。Set mrc = ExecuteSQL(txtSQL, MsgText)If = True Then txtSQL = select*from 電網(wǎng)運行指標 Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() MsgBox 添加指標成功！, vbOKOnly + vbExclamation, 警告 ElsetxtSQL = select * from 電網(wǎng)運行指標 where 報送時間=39。 amp。 Trim() amp。 39。Set mrc = ExecuteSQL(txtSQL, MsgText)If = True Then txtSQL = select*from 電網(wǎng)運行指標 Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() MsgBox 添加指標成功！, vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from 電網(wǎng)運行指標 where 指標名稱=39。 amp。 Trim()amp。39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() MsgBox 添加指標成功！, vbOKOnly + vbExclamation, 警告 Else MsgBox 指標重復，請重新輸入, vbOKOnly + vbExclamation, 警告 End If End If End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub（2）更新數(shù)據(jù)庫Private Sub Form_Load()Dim mrc As 35 / 45Dim txtSQL As StringDim MsgText As String