【正文】 蘇華設(shè)計 If = 16 Then = 0 End IfEnd SubPrivate Sub Menu_SJZH_Click() Dim ls_str As String Const vbOFNOverwritePrompt = 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=。 Space(2) amp。 Chr(13) amp。 = = 所有文件(*.*)|*.*|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)換成功。 蘇華設(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。 ()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。, 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。 蘇華設(shè)計 If = 16 Then = 0 End IfEnd SubPrivate Sub Menu_SJZH_Click() Dim ls_str As String Const vbOFNOverwritePrompt = amp。 Space(2) amp。 Date, End SubPrivate Sub MenuExit_Click() Unload frmCXXCLEnd SubPrivate Sub SSTab1_Click(PreviousTab As Integer)If PreviousTab = 1 Then = False = True = TrueEnd IfIf PreviousTab = 0 Then = True = False = FalseEnd IfEnd SubPrivate Sub cmdMoveFirst_Click() = True = TrueEnd SubPrivate Sub cmdMovePrevious_Click() = True If Not Then If Then = False End IfEnd SubPrivate Sub cmdMoveNext_Click() = True If Not Then If Then = False End IfEnd SubPrivate Sub cmdMoveLast_Click() = True = TrueEnd SubPrivate Sub cmdAddNew_Click() = Date End SubPrivate Sub cmdDelete_Click() Dim li_msg As Integer li_msg = MsgBox(記錄將被永久刪除，是否繼續(xù)？, vbYesNo Or vbDefaultButton2, 蘇華程序設(shè)計) If li_msg = 6 Then If Not Then End If If And = False Then End If End IfEnd SubPrivate Sub cmdUpdate_Click() = True = TrueEnd SubPrivate Sub cmdExit_Click() Unload frmCXXCLEnd SubPrivate Sub Timer1_Timer() If + 0 Then = 200 Else = End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) On Error GoTo Handll If = 16 Then = 0 End If Set frmCXXCL = Nothing Exit SubHandll: MsgBox , vbOKOnly, 內(nèi)部錯誤 amp。 Chr(13) amp。 蘇華設(shè)計 If = 16 Then = 0 End IfEnd SubPrivate Sub Menu_SJZH_Click() Dim ls_str As String Const vbOFNOverwritePrompt = amp。 () amp。 \ End SubPrivate Sub MenuExit_Click() Dim msg As Integer msg = MsgBox(確實(shí)要退出鋁電解畢業(yè)設(shè)計程序嗎？, vbYesNo Or vbDefaultButton2, 蘇華程序設(shè)計) If msg = 6 Then Unload frmMain End End IfEnd SubPrivate Sub MenuVbArrangeIcons_Click() vbArrangeIconsEnd SubPrivate Sub MenuVbCascade_Click() vbCascadeEnd SubPrivate Sub MenuVbTileHorizontal_Click() vbTileHorizontalEnd SubPrivate Sub MenuVbTileVertical_Click() vbTileVerticalEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 槽信息處理 Menu_CXXCL_Click Case 出鋁量 Menu_CLL_Click Case 數(shù)據(jù)表 Menu_SJB_Click Case 槽狀態(tài) Menu_CZT_Click Case 故障記錄 Menu_GZJL_Click Case 退出 MenuExit_Click End SelectEnd SubPrivate Sub Toolbar2_ButtonClick(ByVal Button As ) Select Case Case 出鋁量查詢 Menu_SelectCLL_Click Case 槽數(shù)據(jù)查詢 Menu_SelectCSJ_Click Case 故障記錄查詢 Menu_SelectGZJL_Click Case 層疊方式 MenuVbCasca