【正文】 [J]。Qinghai Electric Power。2022致 謝本文的成功完成首先需要特別感謝我的指導(dǎo)教師曲朝霞老師。感謝她在我整個(gè)畢業(yè)設(shè)計(jì)過(guò)程中的細(xì)心指導(dǎo)和提出的珍貴建議。同時(shí)，在我整個(gè)設(shè)計(jì)過(guò)程中每當(dāng)我遇到難題而堅(jiān)持不下，想要放棄時(shí)又是她通過(guò)耐心的教導(dǎo)給了我無(wú)窮的信心，讓我能夠堅(jiān)持下來(lái)。感謝曲朝霞老師，感謝她在論文的寫(xiě)作過(guò)程中給與我的無(wú)私的幫助。曲老師嚴(yán)以治學(xué)的態(tài)度，誨人不倦的精神，為人師表的道德風(fēng)范將會(huì)一直影響這我今后的學(xué)習(xí)、生活和工作，是我終生受益匪淺。感謝曲朝霞老師！其次，感謝我們畢業(yè)設(shè)計(jì)小組的每一個(gè)成員！是你們讓我在為一個(gè)問(wèn)題感到毫無(wú)頭緒的時(shí)候給了我無(wú)私的幫助?；蛟S你們并不能給我問(wèn)題的答案。但你們會(huì)與我一同思考，讓我在感到無(wú)助時(shí)明白我并不是一個(gè)人！感謝我們的團(tuán)隊(duì)，我們的共同努力讓我們走到了今天，取得了成功。我永遠(yuǎn)不會(huì)忘記我們一起共同奮斗的時(shí)光！此外，我還要感謝我的同班同學(xué)和宿舍你的兄弟。感謝他們?cè)谖彝瓿僧厴I(yè)論文期間給予我的關(guān)心和幫助。感謝他們讓我度過(guò)了令人愉快的大學(xué)生活。最后，我要感謝我的家人。他們雖然和我相距很遠(yuǎn)，但他們卻一直關(guān)心著我的學(xué)習(xí)和畢業(yè)論文的完成工作。是他們?yōu)槲姨峁┝肆己玫沫h(huán)境能夠完成我的論文。我衷心的感謝他們！衷心感謝在百忙中抽出時(shí)間審閱本論文和參加我畢業(yè)答辯的老師！30 / 45附 錄本系統(tǒng)設(shè)計(jì)過(guò)程中各模塊主要程序一 公用模塊（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。 條紀(jì)錄 End If ExecuteSQL_Exit: Set rst = Nothing Exit Function Set n = Nothing ExecuteSQL_Error: MsgString = 查詢錯(cuò)誤: 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 沒(méi)有這個(gè)用戶，請(qǐng)重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from users where 用戶名=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 沒(méi)有這個(gè)用戶，請(qǐng)重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then OK = True UserName = Trim() Else MsgBox 輸入密碼不正確，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 = End If End IfEnd If32 / 45miCount = miCount + 1If miCount = 3 Then MsgBox 用戶名或密碼錯(cuò)誤次數(shù)過(guò)多?。?！系統(tǒng)將退出，請(qǐ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二 用戶注冊(cè)（1）用戶注冊(cè)Private Sub Command1_Click()Dim txtSQL As StringDim mrc As Dim MsgText As StringIf Trim() = Then MsgBox 請(qǐng)輸入用戶名！, vbOKOnly + vbExclamation, 警告 Exit Sub Else txtSQL = select*from users Set mrc = ExecuteSQL(txtSQL, MsgText)While ( = False) If Trim((0) = Trim(Text1)) Then MsgBox 用戶已存在，請(qǐng)重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 = = = Exit SubElseEnd IfWendEnd IfIf Trim( ) ThenMsgBox 兩次輸入的密碼不一樣，請(qǐng)確認(rèn)！, vbOKOnly + vbExclamation, 警告 = = Exit SubElseIf = ThenMsgBox 密碼不能為空！ , vbOKOnly + vbExclamation, 警告 = = 33 / 45Else(0) = Trim()(1) = Trim()MsgBox 添加用戶成功！ , vbOKOnly + vbExclamation, 添加用戶End IfEnd IfEnd Sub（2）退出注冊(cè)Private Sub Command2_Click()Unload MeEnd Sub三 指標(biāo)管理模塊一指標(biāo)錄入（1）指標(biāo)錄入Private Sub Command1_Click()Dim mrc As New Dim txtSQL As StringDim MsgText As StringtxtSQL = select *from 電網(wǎng)運(yùn)行指標(biāo) Set mrc = ExecuteSQL(txtSQL, MsgText)If Not Testtxt() ThenMsgBox 請(qǐng)輸入指標(biāo)單位！ , vbOKOnly + vbExclamation, 警告Exit SubEnd IfIf Not Testtxt() ThenMsgBox 請(qǐng)輸入報(bào)送時(shí)間！ , vbOKOnly + vbExclamation, 警告Exit SubEnd IfIf Not IsDate() Then MsgBox 報(bào)送時(shí)間應(yīng)輸入日期格式（yyyymmdd ）！ , vbOKOnly + vbExclamation, 警告 Else Text2 = Format(Text2, yyyymmdd)If Not Testtxt() ThenMsgBox 請(qǐng)輸入指標(biāo)大小！ , vbOKOnly + vbExclamation, 警告Exit SubEnd IfIf Not Testtxt() ThenMsgBox 請(qǐng)選擇指標(biāo)名稱！ , vbOKOnly + vbExclamation, 警告End IfIf Not Testtxt() ThenMsgBox 請(qǐng)選擇報(bào)送周期！ , vbOKOnly + vbExclamation, 警告Exit SubEnd If34 / 45txtSQL = select * from 電網(wǎng)運(yùn)行指標(biāo) where 指標(biāo)名稱=39。 amp。 Trim() amp。 39。Set mrc = ExecuteSQL(txtSQL, MsgText)If = True Then txtSQL = select*from 電網(wǎng)運(yùn)行指標(biāo) Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() MsgBox 添加指標(biāo)成功！, vbOKOnly + vbExclamation, 警告 ElsetxtSQL = select * from 電網(wǎng)運(yùn)行指標(biāo) where 報(bào)送時(shí)間=39。 amp。 Trim() amp。 39。Set mrc = ExecuteSQL(txtSQL, MsgText)If = True Then txtSQL = select*from 電網(wǎng)運(yùn)行指標(biāo) Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() MsgBox 添加指標(biāo)成功！, vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from 電網(wǎng)運(yùn)行指標(biāo) where 指標(biāo)名稱=39。 amp。 Trim()amp。39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() MsgBox 添加指標(biāo)成功！, vbOKOnly + vbExclamation, 警告 Else MsgBox 指標(biāo)重復(fù)，請(qǐng)重新輸入, vbOKOnly + vbExclamation, 警告 End If End If End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub（2）更新數(shù)據(jù)庫(kù)Private Sub Form_Load()Dim mrc As 35 / 45Dim txtSQL As StringDim MsgText As String