VB开发的ERP系统

Private Sub c_gy_Click()
    XT_frmAbout.Show
End Sub

Private Sub c_khdasz_Click()

    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Gdzc_Variation_Edit", Xtczybm, 1) Then
        Exit Sub
    End If
    
    Jcsz_VariationMode.Show 1
    Security_Log "Gdzc_Variation", Xtczybm, 2, False  '用户退出时写上机日志
    
End Sub

Private Sub c_quit_Click()
    Unload XT_Main
End Sub

Private Sub C_Register_Click()
    XT_login.Show 1
End Sub

Private Sub c_wshxxd_Click()
    XT_frmBrowser.Show 1
End Sub

Private Sub c_xtbz_Click()
    Call F1bz
End Sub

Private Sub CardList_Click()
    
    Book_CardList.Show
    Book_CardList_Search.Show 1
    
End Sub

Private Sub cd_Click()
    Me.Arrange vbCascade
End Sub

Private Sub Check_Click()
    
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Gdzc_Check-Out_edit", Xtczybm, 1) Then
        Exit Sub
    End If
    
    Set Rs_Temp = New ADODB.Recordset
    Rs_Temp.Open "select * from gdzc_card where DeprFlag='0' and [Check-outFlag]='0'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
    If Not Rs_Temp.EOF Then
        Tsxx = "本月未计提折旧,请先执行计提折旧!"
        Call Xtxxts(Tsxx, 0, 4)
        Exit Sub
    Else
        Oper_CheckOut.Show 1
    End If
    
    Security_Log "Gdzc_Check-Out", Xtczybm, 2, False  '用户退出时写上机日志
    
End Sub

Private Sub Depr_Click()
    
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Gdzc_Depr_Edit", Xtczybm, 1) Then
        Exit Sub
    End If
    
    Oper_Depr.Show 1
    Security_Log "Gdzc_Depr", Xtczybm, 2, False  '用户退出时写上机日志
    
End Sub

Private Sub DeprSum_Click()
    
    Book_Depr.Show
    Book_Depr_Search.Show 1
    
End Sub

Private Sub FASort_Click()
    
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Gdzc_FaSort_Edit", Xtczybm, 1) Then
        Exit Sub
    End If
    
    Jcsz_FASort.Show 1
    
    Security_Log "Gdzc_FaSort", Xtczybm, 2, False  '用户退出时写上机日志
    
End Sub

Private Sub FATotal_Click()
    
    Book_Total.Show
    Book_Total_Search.Show 1
    
End Sub

Private Sub FAVari_Click()
    
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Gdzc_Jbcz_Edit", Xtczybm, 1) Then
        Exit Sub
    End If
    
    Kpgl_CardList.Show
    Kpgl_Search.Show 1
    Security_Log "Gdzc_Jbcz", Xtczybm, 2, False  '用户退出时写上机日志
    
End Sub

Private Sub hxpp_Click()
    Me.Arrange vbTileVertical
End Sub

Private Sub jzjgfx_Click()
    
    Book_Value.Show
    Book_Value_Search.Show 1
    
End Sub

Private Sub LedgerManage_Click()
    
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Gdzc_Ledger_Edit", Xtczybm, 1) Then
        Exit Sub
    End If
    
    ZbqlFrm.Show 1
    
    Security_Log "Gdzc_Ledger_Edit", Xtczybm, 2, False  '用户退出时写上机日志
    
End Sub

'主窗体击活
Private Sub MDIForm_Activate()
    Timer1.Enabled = True
End Sub

Private Sub MDIForm_Load()
   
    '调入主操作界面
    Xt_Control.Show

End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
        
    On Error Resume Next
    
    Dim Jsqte As Integer
    If Not Tcxt Then
        Cancel = True
    Else
        Unload_TF = True
        For Jsqte = 0 To Forms.count - 1
            Unload Forms(Jsqte)
        Next Jsqte
        End
    End If

End Sub

Private Sub mnuWindowArrangeIcons_Click()                                   '窗口排列图标
    Me.Arrange vbArrangeIcons
End Sub


Private Sub mnuWindowTileHorizontal_Click()                                 '窗口纵向平铺
    Me.Arrange vbTileHorizontal
End Sub

Private Sub mnuWindowCascade_Click()                                        '窗口层叠
    Me.Arrange vbCascade
End Sub

'************************'以下为程序固定不变部分*********************'

Private Function Tcxt() As Boolean                                       '退出系统提示
    
    Dim Answer As Integer
    
    Tsxx = "请确认是否退出系统?"
    Answer = Xtxxts(Tsxx, 2, 2)
    If Answer = 1 Then
        Tcxt = True
    Else
        Tcxt = False
    End If

End Function

Private Sub Mxbb_Click()
    
    Book_Parti.Show
    
    Book_Parti_Search.Show 1
End Sub

Private Sub OverList_Click()
    Book_OverList.Show
End Sub

Private Sub pltb_Click()
    Me.Arrange vbArrangeIcons
End Sub

Private Sub ReDepr_Click()
    
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Gdzc_ReSet_Edit", Xtczybm, 1) Then
        Exit Sub
    End If
    
    Set Rs_Temp = New ADODB.Recordset
    Rs_Temp.Open "select * from gdzc_card where DeprFlag='0' and [Check-outFlag]='0'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
    If Not Rs_Temp.EOF Then
        Tsxx = "本月未计提折旧,不用恢复计提折旧!"
        Call Xtxxts(Tsxx, 0, 4)
        Exit Sub
    Else
        Oper_DeprBack.Show 1
    End If
    Security_Log "Gdzc_ReSet", Xtczybm, 2, False  '用户退出时写上机日志
    
End Sub

Private Sub Timer1_Timer()                                        '在窗体激活后调入程序
    
    Timer1.Enabled = False
    If XT_login.QdCheck.Value = 1 Then
        Call Xtcsh
        XT_login.QdCheck.Value = 0
    End If

End Sub

Private Sub Xtcsh()                                               '系统主控制台及全局变量初始化
    
  With XT_login
    Xtczybm = Trim(Mid(.CzyCombo.Text, 1, InStr(1, .CzyCombo.Text, "-") - 1))
    Xtczy = Trim(Mid(.CzyCombo.Text, InStr(1, .CzyCombo.Text, "-") + 1, Len(.CzyCombo.Text)))
    Xtztbm = Trim(Mid(.ZtCombo.Text, 1, InStr(1, .ZtCombo.Text, "-") - 1))
    Xtdwm = Trim(Mid(.ZtCombo.Text, InStr(1, .ZtCombo.Text, "-") + 1, Len(.ZtCombo.Text)))
    
     '用户选择系统年度
    Xtyear = Val(.KjyearCombo.Text)
    '用户选择系统会计期间
    Set Xtrlrec = Cw_DataEnvi.DataConnect.Execute("Select * From gy_kjrlb where qsrq<='" + .CzrqText.Text + "' and zzrq>='" + .CzrqText.Text + "'")
    If Not Xtrlrec.EOF Then
       Xtmm = Xtrlrec.Fields("period")
    End If
     '会计期间划分个数
    Xtkjqjgs = 12
    '业务操作日期
    Xtrq = CDate(.CzrqText.Text)
  End With
    
  With XT_Main.StatusBar1
    .Panels("OperStatus") = "就绪"
    .Panels("zt").Text = Xtdwm
    .Panels("czy").Text = Xtczy
    .Panels("rq").Text = "业务日期:" + Format(Xtrq, "yyyy-mm-dd")
    .Panels("rjbb").Text = "【百利/ERP】"
  End With

End Sub

Private Sub Varilist_Click()
    
    Book_VariList.Show
    Book_Vari_Search.Show 1
    
End Sub

Private Sub zxpp_Click()
    Me.Arrange vbTileHorizontal
End Sub

Private Sub Zz_Click()
    
    Book_CheckList.Show
    Book_Check_Search.Show 1
    
End Sub