【正文】 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。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 沒有這個(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ù)過多！??！系統(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。我永遠(yuǎn)不會(huì)忘記我們一起共同奮斗的時(shí)光！此外，我還要感謝我的同班同學(xué)和宿舍你的兄弟。2022致 謝本文的成功完成首先需要特別感謝我的指導(dǎo)教師曲朝霞老師。Ray McNamara。如在求指標(biāo)的增長特性；指標(biāo)數(shù)據(jù)各年同期比較等方面進(jìn)行完善，使系統(tǒng)實(shí)現(xiàn)更多的功能。在本文中我們只針對(duì)同業(yè)對(duì)標(biāo)指標(biāo)設(shè)計(jì)了一個(gè)簡單的供電公司同業(yè)對(duì)標(biāo)指標(biāo)管理系統(tǒng)。這就涉及到了系統(tǒng)工程屬性的設(shè)置和可執(zhí)行程序（.exe 程序）的生成。圖 Data Report 顯示數(shù)據(jù)表信息23 / 45圖 指標(biāo)管理報(bào)表預(yù)覽 數(shù)據(jù)環(huán)境設(shè)計(jì)器的設(shè)計(jì)建立指標(biāo)管理報(bào)表需要使用數(shù)據(jù)環(huán)境設(shè)計(jì)器實(shí)現(xiàn)數(shù)據(jù)庫表與 Data Report 的連接，在工程中選“添加 Data Environment”命令，通過數(shù)據(jù)環(huán)境設(shè)計(jì)器的連接對(duì)象Connection1 將數(shù)據(jù)庫表與數(shù)據(jù)環(huán)境設(shè)計(jì)器相連。*在設(shè)計(jì)器的窗體內(nèi)右鍵單擊選擇“檢索結(jié)構(gòu)”命令，出現(xiàn)對(duì)話框選“確定” 。指標(biāo)算法展現(xiàn)界面和指標(biāo)查詢界面相似，同時(shí)也具有部分指標(biāo)查詢的功能。查詢獲得的數(shù)據(jù)將顯示在上的表格中。因此需要在數(shù)據(jù)輸入時(shí)進(jìn)行判定，若指標(biāo)重復(fù)則提示指標(biāo)重復(fù)，不允許輸入。 指標(biāo)錄入用戶信息輸入完畢，點(diǎn)擊確認(rèn)按鈕，系統(tǒng)將自動(dòng)判斷用戶名是否重復(fù)、兩次密碼是否一致。 用戶注冊(cè) 在公用模塊中對(duì)以下 3 個(gè)函數(shù)進(jìn)行聲明：1添加自定義函數(shù) ExecuteSQL（用于執(zhí)行各種 SQL 語句）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 sqlMsgString = sTokens(0) amp。 主體窗口的設(shè)計(jì)過程在工程資源管理器中新建一個(gè) Form 窗體，保存名稱為“系統(tǒng)界面” 。列名 數(shù)據(jù)類型 允許空指標(biāo)名稱 Nvarchar（50） 是報(bào)送周期 Char（10） 是表 指標(biāo)信息表的物理結(jié)構(gòu)列名 數(shù)據(jù)類型 允許空指標(biāo)名稱 Nvarchar（50） 是指標(biāo)單位 Char（10） 是報(bào)送時(shí)間 Datatime 是報(bào)送周期 Char（10） 是指標(biāo)大小 Float 是表 指標(biāo)數(shù)據(jù)管理表的物理結(jié)構(gòu)在系統(tǒng)的實(shí)際運(yùn)行中需要用到的表如下圖 ，在本設(shè)計(jì)中只選取 users、電網(wǎng)運(yùn)行指標(biāo)和電網(wǎng)運(yùn)行指標(biāo)信息三個(gè)表。 系統(tǒng)的功能模塊 根據(jù)系統(tǒng)系統(tǒng)的功能分析得到系統(tǒng)應(yīng)該具有的功能模塊圖：9 / 45圖 系統(tǒng)具有的功能模塊圖 數(shù)據(jù)庫設(shè)計(jì)本系統(tǒng)的數(shù)據(jù)庫開發(fā)部分選用 SQL sever 2022 數(shù)據(jù)庫，要求建立供電公司同業(yè)對(duì)標(biāo)指標(biāo)數(shù)據(jù)庫（這里用 GDGS 表示） ，由于同業(yè)對(duì)標(biāo)指標(biāo)分為安全管理、資產(chǎn)經(jīng)營、營銷服務(wù)、電網(wǎng)運(yùn)行、人力資源五個(gè)方面。本設(shè)計(jì)中的供電公司同業(yè)對(duì)標(biāo)指標(biāo)管理系統(tǒng)實(shí)現(xiàn)的主要功能如下：1實(shí)現(xiàn)對(duì)供電公司同業(yè)對(duì)標(biāo)指標(biāo)的管理，如各指標(biāo)數(shù)據(jù)的錄入、查詢、修改等。供電公司同業(yè)對(duì)標(biāo)指標(biāo)管理系統(tǒng)是一個(gè)基于供電公司同業(yè)對(duì)標(biāo)指標(biāo)數(shù)據(jù)庫的一個(gè)管理系統(tǒng)，對(duì)已經(jīng)使用的類似的系統(tǒng)進(jìn)調(diào)查分析、類比，本課題具有的特點(diǎn)：開發(fā)工作量小，可以有兩個(gè)人合作開發(fā)或一個(gè)人獨(dú)立開發(fā)，開發(fā)周期短，有熟練的開發(fā)人員一個(gè)月就可以完成系統(tǒng)的開發(fā)與測試。適合采用數(shù)據(jù)庫系統(tǒng)。它能夠代替人做各種重復(fù)、繁瑣的勞動(dòng)，并且擁有操作簡單、可信度好、不易出錯(cuò)等優(yōu)點(diǎn)，大大減少了不必要的人力消耗，提高個(gè)人的工作效率。Windows XP Service Pack。SQL Server 保留了前期版本中的“Web 助手” ，同時(shí)增加了支持 HTTP 和 XML 技術(shù)，這使得 SQL Server 在數(shù)據(jù)挖掘和分析服務(wù)領(lǐng)域的應(yīng)用得到擴(kuò)展。我們用于該同業(yè)對(duì)標(biāo)指標(biāo)管理系統(tǒng)的數(shù)據(jù)庫開發(fā)部分。● 處理器：Pentium （R）90MHz 或更高的微處理器。 VB 的程序與 Windows 操作系統(tǒng)十分相像，包含一個(gè)或多個(gè)窗體，或者一個(gè)主窗體和多個(gè)子窗體。VB 是一種面向?qū)ο蟮摹翱梢暬钡木幊绍浖?VB 的程序很大一部分是它提供的各種控件的有機(jī)組合，程序開發(fā)者可以對(duì)這些組件的屬性和方法進(jìn)行選擇，并且由于許多組件的一些屬性和方法已經(jīng)默認(rèn)定義在了組件內(nèi)，所以程序開發(fā)者完成一個(gè)簡單的程序所需要寫的代碼將變得很少。 第三章通過調(diào)研，提出系統(tǒng)的需求分析?！駥?duì)指標(biāo)報(bào)表進(jìn)行靈活的查詢分析，如時(shí)間序列分析等。但是這兩套系統(tǒng)僅僅是大大提高了統(tǒng)計(jì)指標(biāo)結(jié)果數(shù)據(jù)的效率，而在和具體業(yè)務(wù)結(jié)合緊密的的地市級(jí)供電企業(yè)，應(yīng)該有一套既能夠能夠收集指標(biāo)數(shù)據(jù)，而且還能夠?qū)χ笜?biāo)進(jìn)行綜合分析評(píng)價(jià)，以及對(duì)指標(biāo)進(jìn)行持續(xù)的閉環(huán)改進(jìn)的系統(tǒng)。在 1976 年以后，如佳能、NEC 等公司開始挑戰(zhàn)施樂公司在全球復(fù)印機(jī)市場的壟斷地位，它們的產(chǎn)品售價(jià)僅為施樂產(chǎn)品的成本價(jià)，開發(fā)一款新產(chǎn)品所需用的開發(fā)周期與人員僅為施樂公司的 50%，施樂公司的市場占有率從 82%直線下降到 35%。 “正視激烈競爭的電力市場，立足實(shí)際，不盲目攀比，求真務(wù)實(shí)，力求實(shí)效” 。同時(shí)，由于國家不斷深入電力體制改革，經(jīng)濟(jì)建設(shè)飛速發(fā)展，電網(wǎng)企業(yè)在經(jīng)濟(jì)高效、安全穩(wěn)定、發(fā)展速度等方面提出了更高的要求。 strict access control mechanisms. Including users, roles, permissions, log management functions.The analysis of papers from the same industry background and status of the standard system to clear the significance of research projects。論文從同業(yè)對(duì)標(biāo)系統(tǒng)的背景和現(xiàn)狀分析入手，明確了課題的研究意義；文中對(duì)系統(tǒng)所設(shè)計(jì)的技術(shù)進(jìn)行了簡單介紹，包括 Visual Basic 和 SQL sever 2022。建立先進(jìn)的同業(yè)對(duì)標(biāo)指標(biāo)信息管理平臺(tái)，快速、準(zhǔn)確地收集各部門同業(yè)對(duì)標(biāo)指標(biāo)數(shù)據(jù)，將供電公司同業(yè)對(duì)標(biāo)工作全面信息化。進(jìn)而對(duì)指標(biāo)及報(bào)表數(shù)據(jù)進(jìn)行計(jì)算并用不同的算法展現(xiàn)，如展現(xiàn)指標(biāo)的平均值、中位數(shù)、去年同期值、指標(biāo)的增長特征等；對(duì)指標(biāo)報(bào)表進(jìn)行靈活的查詢分析，如時(shí)間序列分析等；設(shè)置指標(biāo)的上下界。 the calculation of the set indicators. Indicators and report data thus show the calculation and use a different algorithm, such as to show the average of the indicators, the me