系统_主界面.frm

新世纪ERP包装物管理源代码

      Begin VB.Menu c_gy 
         Caption         =   "关于(&A)"
      End
   End
End
Attribute VB_Name = "XT_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :财务总帐系统主窗体
'*    功 能 描 述 :作为系统主界面
'*    程序员姓名  : 张建忠
'*    最后修改人  : 邹力
'*    最后修改时间:2001/12/03
'**************************************
Dim Tsxx As String                                         '系统提示信息

Private Sub c_gy_Click()                                   '关于
    Call Xt_Control.Zxxymk("Cask_gy")
End Sub

Private Sub c_wshxxd_Click()                               '网上华夏新达
    Call Xt_Control.Zxxymk("Cask_wshxxd")
End Sub

Private Sub c_xtbz_Click()                                 '系统帮助
    Call Xt_Control.Zxxymk("Cask_xtbz")
End Sub

Private Sub Cask_AppertainIn_Click()                       '附属物入库单
    Call Xt_Control.Zxxymk("Cask_AppertainIn")
End Sub

Private Sub Cask_AppertainInList_Click()                   '附属物入库单列表
    Call Xt_Control.Zxxymk("Cask_AppertainInList")
End Sub

Private Sub Cask_AppertainOuList_Click()                   '附属物出库单列表
    Call Xt_Control.Zxxymk("Cask_AppertainOuList")
End Sub

Private Sub Cask_AppertainOut_Click()                      '附属物出库单
    Call Xt_Control.Zxxymk("Cask_AppertainOut")
End Sub

Private Sub Cask_CollectStat_Click()                       '收发存汇总表统计
    Call Xt_Control.Zxxymk("Cask_CollectStat")
End Sub

Private Sub Cask_Estrade_Click()                           '包装物台帐
    Call Xt_Control.Zxxymk("Cask_Estrade")
End Sub

Private Sub c_quit_Click()                                 '退出系统
    Unload Me
End Sub

Private Sub C_Register_Click()                             '重新注册
     Call Xt_Control.Zxxymk("Cask_Register")
End Sub

Private Sub Cask_CheckOut_Click()                          '月未结帐
    Call Xt_Control.Zxxymk("Cask_CheckOut")
End Sub

Private Sub Cask_Comeback_Click()                          '恢复月末结帐
    Call Xt_Control.Zxxymk("Cask_Comeback")
End Sub

Private Sub Cask_ComebackChalk_Click()                     '恢复期初结帐
    Call Xt_Control.Zxxymk("Cask_ComebackChalk")
End Sub

Private Sub Cask_gnbmjsq_Click()                           '计算器
    Call Xt_Control.Zxxymk("Cask_gnbmjsq")
End Sub

Private Sub Cask_gnbmkmrl_Click()                          '会计日历
    Call Xt_Control.Zxxymk("Cask_gnbmkmrl")
End Sub

Private Sub Cask_Harvest_Click()                           '入库单
    Call Xt_Control.Zxxymk("Cask_Harvest")
End Sub

Private Sub Cask_HarvestList_Click()                       '入库单列表
    Call Xt_Control.Zxxymk("Cask_HarvestList")
End Sub

Private Sub Cask_HarvestStat_Click()                       '入库汇总统计
    Call Xt_Control.Zxxymk("Cask_HarvestStat")
End Sub

Private Sub Cask_Issue_Click()                             '出库单
    Call Xt_Control.Zxxymk("Cask_Issue")
End Sub

Private Sub Cask_IssueList_Click()                         '出库单列表
    Call Xt_Control.Zxxymk("Cask_IssueList")
End Sub

Private Sub Cask_IssueStat_Click()                         '出库汇总统计
    Call Xt_Control.Zxxymk("Cask_IssueStat")
End Sub

Private Sub Cask_Ledger_Click()                            '包装物总帐
    Call Xt_Control.Zxxymk("Cask_Ledger")
End Sub

Private Sub Cask_Sort_Click()                              '类别设置
    Call Xt_Control.Zxxymk("Cask_Sort")
End Sub

Private Sub Cask_StartChalk_Click()                        '期初结帐
    Call Xt_Control.Zxxymk("Cask_StartChalk")
End Sub

Private Sub Cask_StartInput_Click()                        '期初数据录入
    Call Xt_Control.Zxxymk("Cask_StartInput")
End Sub

Private Sub Cask_StartInputList_Click()                    '期初数据列表
    Call Xt_Control.Zxxymk("Cask_StartInputList")
End Sub

Private Sub Cask_Status_Click()                            '状态设置
    Call Xt_Control.Zxxymk("Cask_Status")
End Sub

Private Sub Cask_StatusCollect_Click()                     '状态汇总统计
    Call Xt_Control.Zxxymk("Cask_StatusCollect")
End Sub

Private Sub Cask_StyleTypCollect_Click()                   '业务类型汇总统计
    Call Xt_Control.Zxxymk("Cask_StyleTypCollect")
End Sub

Private Sub Cask_StyleType_Click()                         '业务类型设置
    Call Xt_Control.Zxxymk("Cask_StyleType")
End Sub

Private Sub Cask_WasteBook_Click()                         '包装物流水帐
    Call Xt_Control.Zxxymk("Cask_WasteBook")
End Sub

Private Sub Cask_Wrappage_Click()                          '包装物档案
    Call Xt_Control.Zxxymk("Cask_Wrappage")
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 vbTileVertical
End Sub

Private Sub mnuWindowTileVertical_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 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)))
        Xtkjqjgs = 12
        '业务操作日期
        Xtrq = CDate(.CzrqText.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
        
    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