VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "財(cái)務(wù)管理系統(tǒng)"
   ClientHeight    =   4590
   ClientLeft      =   165
   ClientTop       =   960
   ClientWidth     =   6885
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu xt 
      Caption         =   "系統(tǒng)(&X)"
      Begin VB.Menu xzc 
         Caption         =   "新注冊(cè)"
      End
      Begin VB.Menu xgmm 
         Caption         =   "修改密碼"
      End
      Begin VB.Menu zx 
         Caption         =   "注銷"
      End
   End
   Begin VB.Menu jcsj 
      Caption         =   "基礎(chǔ)數(shù)據(jù)(&J)"
      Begin VB.Menu kmsz 
         Caption         =   "科目設(shè)置"
      End
      Begin VB.Menu zhsz 
         Caption         =   "帳簿設(shè)置"
      End
   End
   Begin VB.Menu pz 
      Caption         =   "憑證(&P)"
      Begin VB.Menu pzsr 
         Caption         =   "憑證輸入"
      End
      Begin VB.Menu gz 
         Caption         =   "過(guò)帳"
      End
   End
   Begin VB.Menu rjz 
      Caption         =   "日記帳(&R)"
      Begin VB.Menu xjrjz 
         Caption         =   "現(xiàn)金日記賬"
      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         =   "明細(xì)帳"
      End
   End
   Begin VB.Menu jz 
      Caption         =   "結(jié)帳(&E)"
      Begin VB.Menu ssphb 
         Caption         =   "試算平衡表"
      End
      Begin VB.Menu qmjz 
         Caption         =   "期末結(jié)帳"
      End
   End
   Begin VB.Menu cwbb 
      Caption         =   "財(cái)務(wù)報(bào)表(&B)"
      Begin VB.Menu zcfzb 
         Caption         =   "資產(chǎn)負(fù)債表"
      End
      Begin VB.Menu syb 
         Caption         =   "損益表"
      End
      Begin VB.Menu xjllb 
         Caption         =   "現(xiàn)金流量表"
      End
   End
   Begin VB.Menu cwzs 
      Caption         =   "財(cái)務(wù)指數(shù)(&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("憑證過(guò)帳后將不能再修改,是否進(jìn)行憑證過(guò)帳操作?", vbYesNo) = vbYes Then
        Dim db As New DataBases
        Dim strSQL As String
        strSQL = "begin tran"
        strSQL = strSQL + " exec sf_憑證過(guò)帳"
        db.RunSelectSQL (strSQL)
        ' 過(guò)帳成功,提交事務(wù)
        strSQL = "commit"
        db.RunSelectSQL (strSQL)
        '統(tǒng)計(jì)匯總信息
        Dim strMsg As String
        strMsg = "過(guò)帳成功" + Chr(13)
        strSQL = "select count(*) 記錄數(shù) 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) + "借方金額合計(jì) " + strtemp
        If IsNull(rs("貸")) Then
            strtemp = "0"
        Else
            strtemp = Trim(rs("貸"))
        End If
        strMsg = strMsg + Chr(13) + "貸方金額合計(jì) " + strtemp
        Call MsgBox(strMsg, , "過(guò)賬完成")
        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("結(jié)帳后將進(jìn)入下一會(huì)計(jì)期間,是否結(jié)帳?", vbYesNo) = vbYes Then
        Dim db As New DataBases
        db.RunSelectSQL ("begin tran exec sf_期末結(jié)帳")
        db.RunSelectSQL ("commit")
        MsgBox "結(jié)賬成功"
    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 = "請(qǐng)輸入統(tǒng)計(jì)的會(huì)計(jì)區(qū)間"
    title = "輸入"
    '輸入統(tǒng)計(jì)的會(huì)計(jì)區(qū)間
    Dim db As New DataBases
    Dim strSQL As String
    Dim rs As Recordset
    strSQL = "select 取值 from 系統(tǒng)參數(shù)表 where 參數(shù)名稱 = "
    strSQL = strSQL + " '當(dāng)前會(huì)計(jì)期間'"
    Set rs = db.RunSelectSQL(strSQL)
    defaultValue = CInt(rs("取值")) - 1
    myValue = InputBox(message, title, defaultValue)
    Dim strtemp As String
    strtemp = CInt(Trim(myValue))
    '計(jì)算
    db.RunSelectSQL ("exec sf_計(jì)算資產(chǎn)負(fù)債表 " + strtemp)
    db.CloseConn
    Dim dr As New DataReport1
    Dim de As DataEnvironment1
    Set de = dr.DataSource
    Set rs = db.RunSelectSQL("select * from 資產(chǎn)負(fù)債表 where 會(huì)計(jì)期間=" + 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