frmmain.frm

汽车维修保养管理系统

    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
    
    '进入时间
    sDate = Format(Now, "yyyy-mm-dd hh:mm")
    
    
    '根据权限显示菜单
    sSQL = "select * from permission where id='" & sUserName & "'"
    Set recTest = ExecuteSQL(sSQL, MsgText)
    
    Do While Not recTest.EOF
        Select Case recTest!module
            Case 10
                menuSetup.Visible = True
                '写日志
                sSQL = "INSERT log (id,date,module) values ('" & sUserName & "','" & sDate & "',10)"
                'Set recTemp = ExecuteSQL(SQLDATEMODE, MsgText)
                'recTemp.Close
                
                
                Set recTemp = ExecuteSQL(sSQL, MsgText)
                'recTemp.Close

            Case 11
                menuCustomerinfo.Visible = True
                '写日志
                sSQL = "INSERT log (id,date,module) values ('" & sUserName & "','" & sDate & "',11)"
                'Set recTemp = ExecuteSQL(SQLDATEMODE, MsgText)
                'recTemp.Close
                
                
                Set recTemp = ExecuteSQL(sSQL, MsgText)
                'recTemp.Close
                
            Case 12
                menuMticket.Visible = True
                '写日志
                sSQL = "INSERT log (id,date,module) values ('" & sUserName & "','" & sDate & "',12)"
                'Set recTemp = ExecuteSQL(SQLDATEMODE, MsgText)
                'recTemp.Close
                
                
                Set recTemp = ExecuteSQL(sSQL, MsgText)
                'recTemp.Close
                
            Case 13
                menuKucun.Visible = True
                '写日志
                sSQL = "INSERT log (id,date,module) values ('" & sUserName & "','" & sDate & "',13)"
                'Set recTemp = ExecuteSQL(SQLDATEMODE, MsgText)
                'recTemp.Close
                
                
                Set recTemp = ExecuteSQL(sSQL, MsgText)
                'recTemp.Close
                
            Case 14
                menuCAIWU.Visible = True
                '写日志
                sSQL = "INSERT log (id,date,module) values ('" & sUserName & "','" & sDate & "',14)"
                'Set recTemp = ExecuteSQL(SQLDATEMODE, MsgText)
                'recTemp.Close
                
                
                Set recTemp = ExecuteSQL(sSQL, MsgText)
                'recTemp.Close
                
        End Select

        
        recTest.MoveNext
    Loop
    
  
End Sub




Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
End Sub



Private Sub menuBookticket_Click()
    frmXSDH.txtSQL = "select xsdh_no,out_date,ywman,khdm,wzdm,sl,out_danj,o_zk,o_zke,bz from xsdh"
    frmXSDH.Show 0
End Sub

Private Sub menuCKSetup_Click()
    frmCKSetup.txtSQL = "select * from dm_ck"
    frmCKSetup.Show 0
End Sub

Private Sub menuCtype_Click()
    frmdh.txtSQL = "select dh_no,in_date,ywman,gfdm,wzdm,sl,in_danj,i_zk,i_zke,bz from dh"
    frmdh.Show 0
End Sub

Private Sub menuCustomer_Click()
    frmINH.txtSQL = "select inh_no,in_date,ywman,gfdm,ckdm,wzdm,qihao,sl,in_danj,i_zk,i_zke,jsfk,jz,yf,bz from inh where bz1 is null"
    
    frmINH.Show 0
End Sub

Private Sub menuExit_Click()
    Unload Me
End Sub

Private Sub menuFENLEI_Click()
    frmInquireMINGXI2.Show 1
End Sub

Private Sub menuGet_Click()
    frmGET.txtSQL = "select outh.outh_no,outh.out_date,outh.khdm,dm_kh.mc,outh.wzdm,dm_wz.mc,outh.qihao,outh.sl,outh.out_danj,outh.o_zk,outh.o_zke,outh.jz,outh.yf,outh.bz from outh inner join dm_kh on outh.khdm = dm_kh.dm inner join dm_wz on outh.wzdm = dm_wz.dm where outh.jsfk <> 'Y'"
    frmGET.Show 0
End Sub

Private Sub menuGFSetup_Click()
    frmGF.txtSQL = "select * from dm_gf"
    frmGF.Show 0
End Sub

Private Sub menuInqireWZCK_Click()
    frmInquireCK2.Show 1
End Sub

Private Sub menuInquireGF_Click()
    frmInquireGF2.Show 1
End Sub

Private Sub menuInquireIKUCUN_Click()
    frmInquireIZC2.Show 1
End Sub

Private Sub menuInquireIOKUCUN_Click()
    frmInquireIOZC2.Show 1
End Sub

Private Sub menuInquireOKH_Click()
    frmInquireOKH2.Show 1
End Sub

Private Sub menuInquireOKUCUN_Click()
    frmInquireOZC2.Show 1
End Sub

Private Sub menuInquireOYWY_Click()
    frmInquireOYWY2.Show 1
End Sub

Private Sub menuInquireProduct_Click()
    frmInquireZZ2.Show 1
End Sub

Private Sub menuInquireYWY_Click()
    frmInquireYWY2.Show 1
End Sub

Private Sub menuKHSetup_Click()
    frmKHSetup.txtSQL = "select * from dm_kh"
    frmKHSetup.Show 0
End Sub

Private Sub menuOffer_Click()
    frmOFFER.txtSQL = "select inh.inh_no,inh.in_date,inh.gfdm,dm_gf.mc,inh.wzdm,dm_wz.mc,inh.qihao,inh.sl,inh.in_danj,inh.i_zk,inh.i_zke,inh.jz,inh.yf,inh.bz from inh inner join dm_gf on inh.gfdm = dm_gf.dm inner join dm_wz on inh.wzdm = dm_wz.dm where inh.jsfk <> 'Y'"
    frmOFFER.Show 0
End Sub

Private Sub menuOWZCK_Click()
    frmInquireOCK2.Show 1
End Sub

Private Sub menuPANDIAN_Click()
    frmInquireMINGXI2.Show 1
End Sub

Private Sub menuPl_Click()
    frmMATELIST.txtSQL = "select * from mate"
    frmMATELIST.Show 0
End Sub

Private Sub menuPlan_Click()
    frmPLANGLIST.txtSQL = "select * from plang"
    frmPLANGLIST.Show 0
End Sub

Private Sub menuTest_Click()
    Form1.Show
End Sub

Private Sub menuWX_Click()
    gintPLLISTmode = 1
    frmWX.Show 0
End Sub

Private Sub menuWZLB_Click()
    frmWZLBS.cmdEnter.Enabled = False
    frmWZLBS.cmdCANCEL.Caption = "退出"
    
    frmWZLBS.Show 1
End Sub

Private Sub menuWZSetup_Click()
    frmWZSetup.txtSQL = "select * from dm_wz"
    frmWZSetup.Show 0
End Sub

Private Sub menuXSD_Click()
    frmOUTH.txtSQL = "select outh_no,out_date,ywman,khdm,ckdm,wzdm,sl,out_danj,o_zk,o_zke,jsfk,jz,yf,bz from outh where bz1 is null"
    frmOUTH.Show 0
End Sub

Private Sub menuYSMINGXI_Click()
    frmGET.txtSQL = "select outh.outh_no,outh.out_date,outh.khdm,dm_kh.mc,outh.wzdm,dm_wz.mc,outh.color,outh.sl,outh.out_danj,outh.o_zk,outh.o_zke,outh.jz,outh.yf,outh.bz from outh inner join dm_kh on outh.khdm = dm_kh.dm inner join dm_wz on outh.wzdm = dm_wz.dm where outh.jsfk <> 'Y'"
    frmGET.Show 0
End Sub

Private Sub menuYSSetup_Click()
    frmYSSetup.txtSQL = "select * from dm_yanse"
    frmYSSetup.Show 0
End Sub

Private Sub menuYWYLB_Click()
    frmYWYLB.txtSQL = "select * from dm_ywylb"
    frmYWYLB.Show 0
End Sub

Private Sub menuYWYSetup_Click()
    frmYWYSetup.txtSQL = "select * from dm_ywy"
    frmYWYSetup.Show 0
End Sub

Private Sub menuZhuanCang_Click()
    frmZC.txtSQL = "select * from zc"
    frmZC.Show 0
End Sub

Private Sub menuZZ_Click()
    frmZZ.Show
End Sub

Private Sub mnuPreview_Click()
'
    If Trim(ActiveForm.reportSQL) <> "" Then
        frmPreview.reportSQL = ActiveForm.reportSQL
        frmPreview.reportName = App.Path & "\rpt\" & ActiveForm.reportName
        frmPreview.Show
    Else
        MsgBox "当前模块没有供打印的报表！", vbOKOnly, "报表预览"
    End If
End Sub

Private Sub mnuPrint_Click()
    Dim CRXApplication As New CRAXDRT.Application
    Dim CRXReport As CRAXDRT.Report
    Dim reportName As String
    
    If Trim(ActiveForm.reportSQL) <> "" Then
        reportName = App.Path & "\rpt\" & ActiveForm.reportName
        Set CRXReport = CRXApplication.OpenReport(reportName)
        CRXReport.RecordSelectionFormula = ActiveForm.reportSQL
        CRXReport.PrintOut
    Else
        MsgBox "当前模块没有供打印的报表！", vbOKOnly, "报表打印"
    End If
    


End Sub
Private Sub mnuWindowArrangeIcons_Click()
    Me.Arrange vbArrangeIcons
End Sub


Private Sub mnuWindowCascade_Click()
    Me.Arrange vbCascade
End Sub


Private Sub mnuWindowTileHorizontal_Click()
    Me.Arrange vbTileHorizontal
End Sub


Private Sub mnuWindowTileVertical_Click()
    Me.Arrange vbTileVertical
End Sub

Private Sub mnuWorkAdd_Click()
    ActiveForm.RecordAdd

End Sub
Private Sub mnuWorkDelete_Click()
    ActiveForm.RecordDelete
End Sub

Private Sub mnuWorkEdit_Click()
    ActiveForm.RecordEdit
End Sub

Private Sub mnuWorkFind_Click()
    ActiveForm.RecordFind
End Sub

Private Sub mnuWorkGet_Click()
    ActiveForm.GetMoney
End Sub

Private Sub mnuWorkOffer_Click()
    ActiveForm.OfferMoney
End Sub

Private Sub mnuWorkRefresh_Click()
    ActiveForm.RecordRefresh
End Sub


Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "Add"
            mnuWorkAdd_Click
        Case "Edit"
            mnuWorkEdit_Click
        Case "Delete"
            mnuWorkDelete_Click
        Case "Refresh"
            mnuWorkRefresh_Click
        Case "Find"
            mnuWorkFind_Click
        Case "Get"
            mnuWorkGet_Click
        Case "Offer"
            mnuWorkOffer_Click
        Case "Print"
            mnuPrint_Click
        Case "Preview"
            mnuPreview_Click
        'Case "Out"
        '    mnuWageOut_Click
        'Case "One"
        '    mnuWageOne_Click
        'Case "Two"
        '    mnuWageTwo_Click
    End Select

End Sub