【正文】 數(shù)據(jù)綁定TextBox NameDataFieldDataSource txt_CZRQ操作日期Adodc1CheckBox NameCaption DataFieldDataSourceCheck1是否打印是否打印Adodc1CheckBox NameDataFieldDataSourceCheck2是否換槽Adodc1 表46 槽信息處理窗體控件屬性設置值 出鋁量窗體（frmCLL） 此窗體主要用來記錄各槽的出鋁情況，包括出鋁量、開始時間、完成時間、出鋁用時。各槽正常工作時，電流電壓應該保持穩(wěn)定，隨著時間的推移，鋁條與槽底的距離不斷的變化著，而電壓與距離有關，所以應隨時跟蹤數(shù)據(jù)的變化以調(diào)整變化的電壓，使之動態(tài)的達到穩(wěn)定。下表49 和 圖49 是窗體控件列表和窗體運行效果。下表410和圖410分別是窗體控件列表和運行圖。 槽數(shù)據(jù)查詢運行界面如下圖412所示查詢條件查詢結(jié)果查詢條件顯示 圖412 槽數(shù)據(jù)查詢界面 槽數(shù)據(jù)表查詢主要以電壓查詢?yōu)橹?，當查詢結(jié)果顯示的電壓不符合正常電壓時，可以及時修正，具有查詢和修改雙向功能。按類型查找可以查找出故障相同的槽號，而按日期查詢時，可以查找除在相同日期內(nèi)那些槽發(fā)生了那些故障。第四節(jié) 各槽數(shù)據(jù)總體瀏覽DataGrid 數(shù)據(jù)表格 在設計完一個應用程序后，當數(shù)據(jù)庫里的數(shù)據(jù)不太多時，想查看每一條具體的記錄是可以實現(xiàn)的，但當數(shù)據(jù)庫里的數(shù)據(jù)大得驚人時，想一條一條去查找，那是不可實現(xiàn)一件事情，就如本次畢業(yè)設計――鋁電解上位機管理系統(tǒng)，數(shù)據(jù)一天一記，而且還必須幾時幾分一記，一個月下來，一年下來，那數(shù)據(jù)將是非常可觀的，如果想查看具體某一個槽出鋁情況，就必須打開上面的“出鋁量”查詢窗體，雖然經(jīng)過一段時間查詢，能查到你所想要的數(shù)據(jù)，但是畢竟不是好的方法。第五章 鋁電解計算機管理軟件程序代碼第一節(jié) 啟動模塊代碼本畢業(yè)設計中，啟動模塊用于設置軟件運行時的公共數(shù)據(jù)環(huán)境和順序調(diào)用frmLogin(登錄窗) 、frmMain(主窗體)等下級模塊，由此進入管理軟件運行環(huán)境。 amp。 vbModal vbModalEnd SubSub Close_ClosedButton(a, B) 39。************************此段為使關閉按鈕失效End Sub第二節(jié) 登錄窗體模塊代碼 用戶登錄窗（frmLogin）用于當進入鋁電解管理軟件時，對用戶口令的驗證，這樣有效的防止非法用戶進行操作。H1)End SubPrivate Sub Form_Activate() Set mydb = Workspaces(0).OpenDatabase( amp。 \, amp。確認操作員和密碼 Dim MESSAGE As String If Then Set mydb = Workspaces(0).OpenDatabase( amp。確認密碼 Unload Me Set frmLogin = Nothing X = sndPlaySound( amp。H1) MsgBox (密碼錯誤,請重新輸入密碼!) TIM = TIM + 1 39。H1) End End IfEnd Sub第三節(jié) 主窗體模塊代碼主窗體（frmMain）運行圖52所示。 Const vbOFNPathMustExist = amp。, vbOKOnly, 蘇華程序設計 Else MsgBox 沒有備份任何數(shù)據(jù), vbOKOnly, 蘇華程序設計 End If Exit SubHandll: MsgBox , vbOKOnly, 蘇華程序設計End SubPrivate Sub Menu_SJDR_Click() Dim fs As New FileSystemObject Const vbOFNFileMustExit = amp。, vbOKOnly, 蘇華程序設計 Else MsgBox 沒有導入任何數(shù)據(jù), vbOKOnly, 蘇華程序設計 End If Exit SubHandll: MsgBox , vbOKOnly, 蘇華程序設計End SubPrivate Sub MenuAbout_Click() ShellAbout , “關于”鋁電解控制系統(tǒng), 指導老師：李界家， amp。 Mid(Str(Now), 1, 8), ByVal 0amp。 Space(2) amp。 設計人：蘇華End SubPrivate Sub Menu_SCBBWJ_Click() Dim sql As String On Error GoTo Handll If = 16 Then = 0 End If = ConString sql = select * from 槽信息處理 sql, db, adOpenStatic, adLockReadOnly Set = rs Exit SubHandll: MsgBox , vbOKOnly, 內(nèi)部錯誤 amp。 = = 所有文件(*.*)|*.*|Excel文件(*.xls)|*.xls = 2 = 將“槽信息處理”表轉(zhuǎn)換成Excel文件 = vbOFNOverwritePrompt On Error GoTo Handll If Then If = 16 Then = 0 End If = ConString sql = select * from 槽信息處理 sql, db, adOpenStatic, adLockReadOnly Set newxls = CreateObject() Set newbook = Set newsheet = (1) (A1:E1).Value = Array(槽編號, 是否打印, 是否換槽, 修改設定值, 操作日期) (A2).CopyFromRecordset rs ls_str = ls_str = 0 MsgBox 數(shù)據(jù)轉(zhuǎn)換成功。 Chr(13) amp。 蘇華設計 If = 16 Then = 0 End IfEnd Sub（frmCLL）模塊源程序如下：Dim db As New Dim rs As New Dim newxls As Dim newbook As Dim newsheet As Private Sub Adodc1_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) On Error Resume Next = 總記錄條數(shù)： amp。 ()End SubPrivate Sub Form_Load() = ConString = select * from 出鋁信息 = 0 = 150 = 0 = 0 = 150 = End SubPrivate Sub Form_Resize() If 150 And * 2 100 Then = 150 = * 2 100 = 150 = End IfEnd SubPrivate Sub Menu_SCBBWJ_Click() Dim sql As String On Error GoTo Handll If = 16 Then = 0 End If = ConString sql = select * from 出鋁信息 sql, db, adOpenStatic, adLockReadOnly Set = rs Exit SubHandll: MsgBox , vbOKOnly, 內(nèi)部錯誤 amp。 = = 所有文件(*.*)|*.*|Excel文件(*.xls)|*.xls = 2 = 將“出鋁信息”表轉(zhuǎn)換成Excel文件 = vbOFNOverwritePrompt On Error GoTo Handll If Then If = 16 Then = 0 End If = ConString sql = select * from 出鋁信息 sql, db, adOpenStatic, adLockReadOnly Set newxls = CreateObject() Set newbook = Set newsheet = (1) (A1:E1).Value = Array(槽編號, 出鋁量（噸）, 開始時間, 完成時間, 出鋁用時（秒）) (A2).CopyFromRecordset rs ls_str = ls_str = 0 39。 _ 設 計 者：蘇 華 amp。 () amp。 蘇華設計End SubPrivate Sub Command7_Click() On Error GoTo Handll Exit SubHandll: MsgBox , vbOKOnly, 內(nèi)部錯誤 amp。 蘇華設計 If = 16 Then = 0 End IfEnd SubPrivate Sub Menu_SJZH_Click() Dim ls_str As String Const vbOFNOverwritePrompt = amp。 Chr(13) amp。 Date, End SubPrivate Sub MenuExit_Click() Unload frmSJBEnd SubPrivate Sub Form_Unload(Cancel As Integer) If = 16 Then = 0 End If Set frmSJB = NothingEnd Sub 槽狀態(tài)窗體（frmCZT）模塊源程序如下：Dim db As New Dim rs As New Dim newxls As Dim newbook As Dim newsheet As Private Sub Adodc1_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) On Error Resume Next = 總記錄條數(shù)： amp。 () amp。 Data Source= amp。 Persist Security Info=False sql = select * from 槽狀態(tài) sql, db, adOpenStatic, adLockReadOnly Set = rs Exit SubHandll: MsgBox , vbOKOnly, 內(nèi)部錯誤 amp。 = = 所有文件(*.*)|*.*|Excel文件(*.xls)|