frmmain.frm.bak

财务管理信息系统

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "财务管理系统"
   ClientHeight    =   4590
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6885
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   4590
   ScaleWidth      =   6885
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu mnJichu 
      Caption         =   "基础数据管理(&V)"
      Begin VB.Menu mnKemu 
         Caption         =   "科目设置(&Y)"
      End
      Begin VB.Menu mnZhanghu 
         Caption         =   "帐户设置(&Z)"
      End
   End
   Begin VB.Menu mnPingzheng 
      Caption         =   "凭证管理(&W)"
      Begin VB.Menu mnShuru 
         Caption         =   "凭证输入(&Y)"
      End
      Begin VB.Menu mnGuozhang 
         Caption         =   "凭证过帐(&Z)"
      End
   End
   Begin VB.Menu mnZhangbu 
      Caption         =   "帐簿查询(&X)"
      Begin VB.Menu mnZongfen 
         Caption         =   "总分类帐(Y)"
      End
      Begin VB.Menu mnMingxi 
         Caption         =   "明细帐(&Z)"
      End
   End
   Begin VB.Menu mnJiezhang 
      Caption         =   "结帐及报表(&Y)"
      Begin VB.Menu mnPingheng 
         Caption         =   "试算平衡表(&X)"
      End
      Begin VB.Menu mnQimo 
         Caption         =   "期末结帐(&Y)"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnGuozhang_Click()
    If MsgBox("凭证过帐后将不能再修改,是否进行凭证过帐操作?", vbYesNo) = vbYes Then
        Dim db As New DataBases
        Dim strSQL As String
        strSQL = "begin tran"
        strSQL = strSQL + " exec sf_凭证过帐"
        db.RunSelectSQL (strSQL)
        ' 过帐成功,提交事务
        strSQL = "commit"
        db.RunSelectSQL (strSQL)
        '统计汇总信息
        Dim strMsg As String
        strMsg = "过帐成功" + Chr(13)
        strSQL = "select count(*) 记录数 from 凭证表"
        Dim rs As Recordset
        Set rs = db.RunSelectSQL(strSQL)
        strMsg = strMsg + "共有 " + CStr(rs(0)) + "张凭证" + Chr(13)
        strSQL = "select sum(借方) as 借, sum(贷方) as 贷 from 分录表"
        Set rs = db.RunSelectSQL(strSQL)
        Dim strTemp As String
        If IsNull(rs("借")) Then
            strTemp = "0"
        Else
            strTemp = Trim(rs("借"))
        End If
        strMsg = strMsg + Chr(13) + "借方金额合计 " + strTemp
        If IsNull(rs("贷")) Then
            strTemp = "0"
        Else
            strTemp = Trim("贷")
        End If
        strMsg = strMsg + Chr(13) + "贷方金额合计 " + strTemp
        Call MsgBox(strMsg, , "过账完成")
        strSQL = " delete from 分录表"
        strSQL = strSQL + "  delete from 凭证表"
        db.RunSelectSQL (strSQL)
    End If
End Sub

Private Sub mnKemu_Click()
    Dim frm As New frmKeMu
    frm.Show
End Sub

Private Sub mnMingxi_Click()
    Dim frm As New frmMingXi
    frm.Show
End Sub

Private Sub mnPingheng_Click()
    Dim frm As New frmPingHeng
    frm.Show
End Sub


Private Sub mnQimo_Click()
    If MsgBox("结帐后将进入下一会计期间,是否结帐?", vbYesNo) = vbYes Then
        Dim db As New DataBases
        db.RunSelectSQL ("begin tran exec sf_期末结帐")
        db.RunSelectSQL ("commit")
        MsgBox "结账成功"
    End If
End Sub

Private Sub mnShuru_Click()
    Dim frm As New frmShuRu
    frm.Show
End Sub

Private Sub mnZhanghu_Click()
    Dim frm As New frmZhangHu
    frm.Show
End Sub

Private Sub mnZongfen_Click()
    Dim frm As New frmZongFen
    frm.Show
End Sub