frmmain.frm

财务管理信息系统

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "财务管理系统"
   ClientHeight    =   4590
   ClientLeft      =   165
   ClientTop       =   960
   ClientWidth     =   6885
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu xt 
      Caption         =   "系统(&X)"
      Begin VB.Menu xzc 
         Caption         =   "新注册"
      End
      Begin VB.Menu xgmm 
         Caption         =   "修改密码"
      End
      Begin VB.Menu zx 
         Caption         =   "注销"
      End
   End
   Begin VB.Menu jcsj 
      Caption         =   "基础数据(&J)"
      Begin VB.Menu kmsz 
         Caption         =   "科目设置"
      End
      Begin VB.Menu zhsz 
         Caption         =   "帐簿设置"
      End
   End
   Begin VB.Menu pz 
      Caption         =   "凭证(&P)"
      Begin VB.Menu pzsr 
         Caption         =   "凭证输入"
      End
      Begin VB.Menu gz 
         Caption         =   "过帐"
      End
   End
   Begin VB.Menu rjz 
      Caption         =   "日记帐(&R)"
      Begin VB.Menu xjrjz 
         Caption         =   "现金日记账"
      End
      Begin VB.Menu yhriz 
         Caption         =   "银行日记账"
      End
   End
   Begin VB.Menu cxzb 
      Caption         =   "查询帐簿(&C)"
      Begin VB.Menu zflz 
         Caption         =   "总分类帐"
      End
      Begin VB.Menu mxz 
         Caption         =   "明细帐"
      End
   End
   Begin VB.Menu jz 
      Caption         =   "结帐(&E)"
      Begin VB.Menu ssphb 
         Caption         =   "试算平衡表"
      End
      Begin VB.Menu qmjz 
         Caption         =   "期末结帐"
      End
   End
   Begin VB.Menu cwbb 
      Caption         =   "财务报表(&B)"
      Begin VB.Menu zcfzb 
         Caption         =   "资产负债表"
      End
      Begin VB.Menu syb 
         Caption         =   "损益表"
      End
      Begin VB.Menu xjllb 
         Caption         =   "现金流量表"
      End
   End
   Begin VB.Menu cwzs 
      Caption         =   "财务指数(&Z)"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub gz_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(rs("贷"))
        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 kmsz_Click()
    Dim frm As New frmKeMu
    frm.Show
End Sub

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

Private Sub ssphb_Click()
    Dim frm As New frmPingHeng
    frm.Show
    frm.CalPingHeng 1
End Sub


Private Sub qmjz_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 pzsr_Click()
    Dim frm As New frmShuRu
    frm.Show
End Sub

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

Private Sub zcfzb_Click()
    Dim message As String
    Dim title As String
    Dim defaultValue As String
    Dim myValue As String
    message = "请输入统计的会计区间"
    title = "输入"
    '输入统计的会计区间
    Dim db As New DataBases
    Dim strSQL As String
    Dim rs As Recordset
    strSQL = "select 取值 from 系统参数表 where 参数名称 = "
    strSQL = strSQL + " '当前会计期间'"
    Set rs = db.RunSelectSQL(strSQL)
    defaultValue = CInt(rs("取值")) - 1
    myValue = InputBox(message, title, defaultValue)
    Dim strtemp As String
    strtemp = CInt(Trim(myValue))
    '计算
    db.RunSelectSQL ("exec sf_计算资产负债表 " + strtemp)
    db.CloseConn
    Dim dr As New DataReport1
    Dim de As DataEnvironment1
    Set de = dr.DataSource
    Set rs = db.RunSelectSQL("select * from 资产负债表 where 会计期间=" + strtemp)
    Set de.rsCommand1.DataSource = rs
    dr.Show vbModal
    
End Sub

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

Private Sub zx_Click()
Unload Me
frmLogin.Show

End Sub