【正文】 = = 所有文件(*.*)|*.*|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。0代表數(shù)據(jù)連接已經(jīng)斷開 MsgBox 數(shù)據(jù)轉(zhuǎn)換成功。, vbOKOnly, 蘇華程序設(shè)計 Else MsgBox 此次操作已取消, vbOKOnly, 蘇華程序設(shè)計 End If Exit SubHandll: MsgBox , vbOKOnly, 蘇華程序設(shè)計 If = 16 Then = 0 End IfEnd SubPrivate Sub MenuAbout_Click() ShellAbout , 鋁電解出鋁信息數(shù)據(jù)表, 指導(dǎo)老師：李界家 amp。 Chr(13) amp。 _ 設(shè) 計 者：蘇 華 amp。 Chr(13) amp。 演示時間： amp。 Date, End SubPrivate Sub MenuExit_Click() Unload frmCLLEnd SubPrivate Sub MenuMoveFirst_Click() = True = TrueEnd SubPrivate Sub MenuMoveLast_Click() = True = TrueEnd SubPrivate Sub MenuMoveNext_Click() = True If Not Then If Then = False End IfEnd SubPrivate Sub MenuMovePrevious_Click() = True If Not Then If Then = False End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) If = 16 Then = 0 End If Set frmCLL = NothingEnd Sub 數(shù)據(jù)表窗體（frmSJB）模塊源程序如下：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 ) = 總記錄條數(shù)： amp。 () amp。 當(dāng)前記錄為： amp。 ()End SubPrivate Sub Command1_Click() = True = TrueEnd SubPrivate Sub Command2_Click() = True If Not Then If Then = False End IfEnd SubPrivate Sub Command3_Click() = True If Not Then If Then = False End IfEnd SubPrivate Sub Command4_Click() = True = TrueEnd SubPrivate Sub Command5_Click() End SubPrivate Sub Command6_Click() Dim msg As Integer On Error GoTo Handll msg = MsgBox(記錄將被永久刪除，是否繼續(xù)？, vbYesNo, 蘇華程序設(shè)計) If li_msg = 6 Then If Not Then End If If And = False Then End If End If Exit SubHandll: MsgBox , vbOKOnly, 內(nèi)部錯誤 amp。 amp。 蘇華設(shè)計End SubPrivate Sub Command7_Click() On Error GoTo Handll Exit SubHandll: MsgBox , vbOKOnly, 內(nèi)部錯誤 amp。 amp。 蘇華設(shè)計End SubPrivate Sub Command8_Click() Unload frmSJBEnd SubPrivate Sub Form_Load() = ConString = select * from 數(shù)據(jù)表 End SubPrivate Sub Menu_SCSJBB_Click() Dim sql As String On Error GoTo Handll If = 16 Then = 0 End If = ConString sql = select * from 數(shù)據(jù)表 sql, db, adOpenStatic, adLockReadOnly Set = rs Exit SubHandll: MsgBox , vbOKOnly, 內(nèi)部錯誤 amp。 amp。 蘇華設(shè)計 If = 16 Then = 0 End IfEnd SubPrivate Sub Menu_SJZH_Click() Dim ls_str As String Const vbOFNOverwritePrompt = amp。H2amp。 = = 所有文件(*.*)|*.*|Excel文件(*.xls)|*.xls = 2 = 將“數(shù)據(jù)表”表轉(zhuǎn)換成Excel文件 = vbOFNOverwritePrompt On Error GoTo Handll If Then If = 16 Then = 0 End If = ConString sql = select * from 數(shù)據(jù)表 sql, db, adOpenStatic, adLockReadOnly Set newxls = CreateObject() Set newbook = Set newsheet = (1) (A1:D1).Value = Array(槽編號, 槽電壓, 系列電壓, 系列電流) (A2).CopyFromRecordset rs ls_str = ls_str = 0 MsgBox 數(shù)據(jù)轉(zhuǎn)換成功。, vbOKOnly, 蘇華程序設(shè)計 Else MsgBox 此次操作已取消, vbOKOnly, 蘇華程序設(shè)計 End If Exit SubHandll: MsgBox , vbOKOnly, 蘇華程序設(shè)計 If = 16 Then = 0 End IfEnd SubPrivate Sub MenuAbout_Click() ShellAbout , 鋁電解槽數(shù)據(jù)表, 指導(dǎo)老師：李界家 amp。 Chr(13) amp。 _ 設(shè) 計 者：蘇 華 amp。 Chr(13) amp。 演示時間： 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。 Space(2) amp。 當(dāng)前記錄為： amp。 () amp。 Space(3) amp。 (1代表“是”，0代表“否”)End SubPrivate Sub Form_Load() = ConString = select * from 槽狀態(tài) = 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_SCBB_Click() Dim sql As String On Error GoTo Handll If = 16 Then = 0 End If = Provider=。 amp。 Data Source= amp。 amp。 \。 amp。 Persist Security Info=False sql = select * from 槽狀態(tài) sql, db, adOpenStatic, adLockReadOnly Set = rs Exit SubHandll: MsgBox , vbOKOnly, 內(nèi)部錯誤 amp。 amp。 蘇華設(shè)計 If = 16 Then = 0 End IfEnd SubPrivate Sub Menu_SJZH_Click() Dim ls_str As String Const vbOFNOverwritePrompt = amp。H2amp。 = = 所有文件(*.*)|*.*|Excel文件(*.xls)|*.x