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