【導(dǎo)讀】機(jī)房管理系統(tǒng)旨在解。存在于機(jī)房中的各種問題，經(jīng)過一段時間的努力，機(jī)房管理系統(tǒng)已經(jīng)日益完善。而機(jī)房管理系統(tǒng)中對學(xué)生上機(jī)的費用計時管理是此系統(tǒng)的關(guān)鍵所在。少數(shù)機(jī)房應(yīng)用一些專業(yè)的管理軟件對機(jī)房進(jìn)行管理，且效果不盡人意。性出發(fā)，全新設(shè)計了此系統(tǒng)。本文在對機(jī)房管理系統(tǒng)進(jìn)行總體介紹后，著重對。本文先從軟件實現(xiàn)的角。度來介紹所有的系統(tǒng)軟硬件資源，再介紹軟件的各項功能和界面。發(fā)的原則是“簡便實用、安全可靠”，始終將系統(tǒng)數(shù)據(jù)安全放在最重要的位置，綜合考慮多方實際需要，經(jīng)過反復(fù)實踐和修改，達(dá)到了令人滿意的結(jié)果。

　　

【正文】 [OPTION] TimeDelayBackup=10 DBF=NULL [USERINFO] UserInfo=計算機(jī)學(xué)院 OrgInfo=江蘇技術(shù)師范學(xué)院 ProductID=0101041905120101 建立系統(tǒng)窗體 建立系統(tǒng)窗體，如圖 41 所示 （ 1）加載窗體和控件，并設(shè)置屬性如下： 窗體 的 Caption 屬性為“用戶管理中心”。 Frame1 的 Caption屬性為 空； Frame1 中標(biāo)簽 Llabel1 的 Caption 屬性為“用戶數(shù)量”， Label2的 Caption 屬性為“部門數(shù)量”； Label3 的 Caption 屬性為“連接數(shù)量”；江蘇技術(shù)師范學(xué)院畢業(yè)生設(shè)計論文（說明書） 24 文本框 Text1， Text2， Text3 的屬性值均為“”；分別添加 8 個 Command 按鈕， Caption 屬性如下圖 ： 控件名稱 Caption Command1 數(shù)據(jù)排序 Command2 清除余額 Command3 保存數(shù)據(jù) Command4 隱藏窗口 Command5 系統(tǒng)設(shè)置 Command6 使用幫助 Command7 關(guān)于 Command8 退出系統(tǒng) 添加 1個 datagrid 控件設(shè)置成綁定“總賬表”，如下圖 DataGrid1 編輯完畢后的主要屬性 DataGrid1 DataSource Adodc1 各列屬性 列 標(biāo)題 數(shù)據(jù)字段 Column0(序號 ) 序號 序號 Column1(時間 ) 設(shè)備編號 設(shè)備編號 Column2(操作類型 ) 設(shè)備名稱 設(shè)備名稱 Column3(用戶 ) 座號 座號 Column4(內(nèi)容 ) 網(wǎng)絡(luò)地址 網(wǎng)絡(luò)地址 Column5(卡號 ) IP地址 IP地址 Column6(自費金額 ) 設(shè)備狀態(tài) 設(shè)備狀態(tài) Column7(教學(xué)金額 ) 折扣情況 折扣情況 江蘇技術(shù)師范學(xué)院畢業(yè)生設(shè)計論文（說明書） 25 圖 41 ① 數(shù)據(jù)庫記錄修改情況 ② 數(shù)據(jù)庫包含總的用戶個數(shù) ③ 數(shù)據(jù)庫包含總的用戶部門個數(shù) ④ 當(dāng)前系統(tǒng)連接網(wǎng)絡(luò)客戶個數(shù) （ 2）編寫代碼如下： Dim conn As New Dim rs As New Private Sub Command1_Click() Dim dDate1 As Date Dim dDate2 As Date 39。從 ListView 中取得數(shù)據(jù) dDate1 = ListView_GetItemDate(hwnd, lParam1) dDate2 = ListView_GetItemDate(hwnd, lParam2) If dDate1 dDate2 Then CompareDates = 0 ElseIf dDate1 = dDate2 Then ① ② ③ ④ 江蘇技術(shù)師范學(xué)院畢業(yè)生設(shè)計論文（說明書） 26 CompareDates = 1 Else: CompareDates = 2 End If Private Sub Command2_Click() Dim ctlControl As Object On Error Resume Next For Each ctlControl In ‘ 清除文本框內(nèi)容 =”” DoEvents Next ctlControl End Sub Private Sub Command3_Click() ‘ 保存數(shù)據(jù) Set ListX = = (0).Value For i = 1 To 1 Set ListSubX = = (i).Value Next i Private Sub Command4_Click() End Sub Private Sub Command5_Click() End Sub Private Sub Command6_Click() 江蘇技術(shù)師范學(xué)院畢業(yè)生設(shè)計論文（說明書） 27 End Sub Private Sub Command7_Click() End Sub Private Sub Command8_Click() End Sub 第五章 二級服務(wù)器端設(shè)計 功能說明 1. 與一級服務(wù)器“用戶中心”連接取得用戶數(shù)據(jù)，并讀取本地數(shù)據(jù)庫 2. 接受管理機(jī)管理軟件的連接并進(jìn)行數(shù)據(jù)維護(hù) 3. 接受刷卡機(jī)的連接并根據(jù)刷卡程序發(fā)來的卡號及管理機(jī)的上機(jī)安排表和設(shè)備表分配機(jī)號，并將分配情況發(fā)給刷卡程序 4．控制客戶機(jī)并接受用戶機(jī)的登錄驗證（當(dāng)客戶端為 pc）或直接控制相應(yīng)設(shè)備的電源（當(dāng)客戶端為設(shè)備電源） 5．系統(tǒng)文件配置為： [NET] ListenTcpIpPort=600 ServerTcpIpPort=1000 ServerName=（一級服務(wù)器端地址） EquipmentListenTcpIpPort=500 JanitorListenTcpIpPort=800 MmesListenPort=5555 TimeDelayConnect=10 江蘇技術(shù)師范學(xué)院畢業(yè)生設(shè)計論文（說明書） 28 TimeWaitServer=5 [OPTION] TimeDelayBackup=10 TimeWaitLogin=30 Mode=0 DBF=NULL [ShuaKa] View=1 [COM] ComPort=1 ComBPS=9600 ProductID=010204190512010 建立系統(tǒng)窗體 建立系統(tǒng)窗體，如圖 51 所示 （ 1）加載窗體和控件，并設(shè)置屬性如下 窗體 登錄的 Caption 屬性為“機(jī)房總管”。 Frame1 的 Caption屬性為空； Frame1 中標(biāo)簽 Label1 的 Caption 屬性為“用戶數(shù)量”， Label2的 Caption 屬性為“部門數(shù)量”； Label3 的 Caption 屬性為“連接數(shù)量”；文本框 Text1， Text2， Text3 的屬性值均為“” 。 分別添加 5 個 Command 按鈕， Caption屬性如下圖： 控件名稱 Caption Command1 保存數(shù)據(jù) Command2 隱藏窗口 Command3 系統(tǒng)設(shè)置 Command4 關(guān)于 Command5 退出系統(tǒng) 江蘇技術(shù)師范學(xué)院畢業(yè)生設(shè)計論文（說明書） 29 圖 51 （ 2）編寫代碼如下： Dim conn As New Dim rs As New Private Sub Command1_Click() ‘ 保存數(shù)據(jù) Set ListX = = (0).Value For i = 1 To 1 Set ListSubX = = (i).Value Next i End Sub Private Sub Command2_Click() End Sub 江蘇技術(shù)師范學(xué)院畢業(yè)生設(shè)計論文（說明書） 30 Private Sub Command3_Click() End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() End Sub 第六章 管理端設(shè)計 功能說明 1．與“機(jī)房總管 服務(wù)端”連接，對設(shè)備數(shù)據(jù)庫并進(jìn)行管理和維護(hù) 2．與“機(jī)房總管 服務(wù)端”連接，取得當(dāng)前用戶的上 機(jī)情況，并可進(jìn)行管理和遠(yuǎn)程控制 3．與“機(jī)房總管 服務(wù)端”連接，對用戶數(shù)據(jù)庫進(jìn)行管理和維護(hù) 4．與“機(jī)房總管 服務(wù)端”連接，取得上機(jī)安排及系統(tǒng)運行設(shè)置等各種數(shù)據(jù)并進(jìn)行管理和維護(hù) 建立系統(tǒng)登錄窗體 建立管理端登錄窗體，如圖 61所示。 （ 1）加載窗體和控件，并設(shè)置屬性如下 江蘇技術(shù)師范學(xué)院畢業(yè)生設(shè)計論文（說明書） 31 窗體 的 Caption 屬性設(shè)置為“系統(tǒng)登錄對話框”； Label1 的Caption 屬性設(shè)置為“使用計算機(jī)請必須經(jīng)過登錄，請您輸入準(zhǔn)確用戶卡號和密碼，按取消退出本系統(tǒng)”； Label Label3 的 Caption 屬性分別設(shè)置為“用戶卡號”、“用戶密碼” 文本框 Text1， Text2 的 Text 屬性值為“”； Command1 和 Command2 的 Caption屬性設(shè)置為“確定“、”取消“。 圖 61 （ 2）編寫代碼如下： Dim conn As New Dim rs As New ‘ 驗證用戶信息 Private Sub Command1_Click() = Replace(, 39。, ) = Replace(, Chr(34), ) = Replace(, 39。, ) = Replace(, Chr(34), ) sql = select * from 管理員信息表 where 管理員號 =39。 amp。 amp。 39。 and 密碼 = 39。 amp。 amp。 39。 Set rs = (sql) If Or Then MsgBox 賬號口令錯誤 ,請檢查后從新進(jìn)入 ! 江蘇技術(shù)師范學(xué)院畢業(yè)生設(shè)計論文（說明書） 32 Else glymc = rs(管理員號 ) quanxian = rs(權(quán)限 ) Unload Me End If End Sub Private Sub Command2_Click() Unload Me 39。Print Chr(34) End Sub Private Sub Form_Load() connstr End Sub Private Sub Form_Unload(Cancel As Integer) Set conn = Nothing Set rs = Nothing End Sub 建立系統(tǒng)主窗體 建立管理端主窗體，如圖 62 所示 （ 1） 加載窗體 ，設(shè)置屬性如下： Caption 屬性為“網(wǎng)管 機(jī)房總管“。 （ 2） 建立主菜單系統(tǒng)。 該程序的主菜單系統(tǒng)各菜單項及其選項的具體設(shè)置如表 所示 。 江蘇技術(shù)師范學(xué)院畢業(yè)生設(shè)計論文（說明書） 33 表 程序主菜單選項設(shè)置一覽表 菜單項標(biāo)題名 菜單級別 Name 屬性 文件 標(biāo)題 File 重新下載數(shù)據(jù) 一級 Rload 重新連接 Rconn 導(dǎo)出設(shè)備信息 Outfi 導(dǎo)入設(shè)備 IP地址 Infia 導(dǎo)入設(shè)備名稱 Infn 退出 Exit 查看 標(biāo)題 Check 工具欄 一級 Tool 狀態(tài)欄 Status 屬性窗口 Char 分類窗口 Style 選項 標(biāo)題 Option 網(wǎng)絡(luò)設(shè)置 一級 Netset 鎖定機(jī)房視圖 Lockv 幫助 標(biāo)題 Help 關(guān)于 CyJfzgClient 一級 About (3) 菜單編輯器界面如下。 江蘇技術(shù)師范學(xué)院畢業(yè)生設(shè)計論文（說明書） 34 圖 62 (4) 管理 端主窗體代碼如下 ： ‘加載窗體 Private Sub Form_Load() Set moTree = New cTreeView With moTree .HookCtrl tvwDialog .Redraw False With Ctrl .Style = tvwTreelinesPlusMinusPictureText .LineStyle = tvwRootLines .Indentation = 10 .ImageList = imgDialog .FullRowSelect = False .HideSelection = False .HotTracking = True 江蘇技術(shù)師范學(xué)院畢業(yè)生設(shè)計論文（說明書） 35 End With