会计科目设置.frm

vb酒店管理系统的原码下载

            Picture         =   "会计科目设置.frx":15B6
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "会计科目设置.frx":1A30
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "会计科目设置.frx":206A
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "会计科目设置.frx":256C
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "会计科目设置.frx":288E
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "会计科目设置.frx":2BB0
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "会计科目设置.frx":2ED2
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "会计科目设置.frx":3224
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "会计科目设置.frx":35EA
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "会计科目设置.frx":393C
            Key             =   ""
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "会计科目设置"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'星级酒店管理系统最初功能演示版,提供所有星级酒店管理中的客房管理,
'房态管理,客史管理,客人资料管理,帐务管理,报表管理,餐饮收费管理
'菜谱管理,夜审处理,数据库备份等功能.所有功能皆可以运行,(但有一些BUG未处理)
'此代码完全可以完成星级酒店上述管理功能.(提供者:帅)
'--------------------------------------------------------------
'代码编写于:2001.12  系统分析:帅   代码编写:帅    版权所有:帅
'--------------------------------------------------------------
'本份代码仅提供给程序太平洋的所有朋友学习,研究之用.
'其它网站一律不得转载,否则为侵权行为,本人保留法律追诉权力.
'这也是本人最早的VB版程序,代码质量不好.望笑纳.:)
'--------------------------------------------------------------
'提供日期:2003-05-31    提供者:帅
'--------------------------------------------------------------
'系统提从与ACCESS或SQL相接,在登录时,选择全局数据库,就与SQL数据库
'连接,字符串存放在SERVER.DAT文本文件中;选择本地数据库,与本地ACCESS
'数据库相连,连接字符串存放在LOCAT.DAT文件中.(当前存放为e:\hotel2\room.mdb)
'---------------------------------------------------------------
'将ACCESS中所有表导入SQL中,并将有的表中的ID字段改为自动编码,就可以使用.
'---------------------------------------------------------------------
'
'
Dim JD As String
Dim Save_Type As String

Private Sub Command1_Click()
    Select Case Save_Type
    Case "增加"
        Adodc1.Recordset.AddNew
        Adodc1.Recordset.Fields("编码") = Me.Text1(0).Text
        Adodc1.Recordset.Fields("名称") = Me.Text1(1).Text
        Adodc1.Recordset.Fields("类别") = Me.Combo1.Text
        If Me.Option1.Value Then
            Adodc1.Recordset.Fields("借贷方") = "借方"
        Else
            Adodc1.Recordset.Fields("借贷方") = "贷方"
        End If
        Adodc1.Recordset.Fields("部门") = Me.Combo2.Text
        Adodc1.Recordset.Update
    Case "更改"
        Adodc1.Recordset.Fields("编码") = Me.Text1(0).Text
        Adodc1.Recordset.Fields("名称") = Me.Text1(1).Text
        Adodc1.Recordset.Fields("类别") = Me.Combo1.Text
        If Me.Option1.Value Then
            Adodc1.Recordset.Fields("借贷方") = "借方"
        Else
            Adodc1.Recordset.Fields("借贷方") = "贷方"
        End If
        Adodc1.Recordset.Fields("部门") = Me.Combo2.Text
        Adodc1.Recordset.Update
    End Select
    'Adodc1.Recordset.Requery
    'DataGrid1.Refresh
    Me.Picture1.Visible = False
End Sub

Private Sub Command2_Click()
    Me.Picture1.Visible = False
End Sub


Private Sub Command3_Click()
    Select Case Save_Type
    Case "增加"
        Adodc1.Recordset.AddNew
        Adodc1.Recordset.Fields("编码") = Me.Text1(7).Text
        Adodc1.Recordset.Fields("部门") = Me.Text1(2).Text
        Adodc1.Recordset.Fields("电话") = Me.Text1(6).Text
        Adodc1.Recordset.Fields("负责人") = Me.Text1(3).Text
        Adodc1.Recordset.Update
    Case "更改"
        Adodc1.Recordset.Fields("编码") = Me.Text1(7).Text
        Adodc1.Recordset.Fields("部门") = Me.Text1(2).Text
        Adodc1.Recordset.Fields("电话") = Me.Text1(6).Text
        Adodc1.Recordset.Fields("负责人") = Me.Text1(3).Text
        Adodc1.Recordset.Update
    End Select
    Me.Picture2.Visible = False
    
End Sub

Private Sub Command4_Click()
    Me.Picture2.Visible = False
End Sub

Private Sub Command5_Click()
    Me.Picture3.Visible = False
End Sub

Private Sub Command6_Click()
    Select Case Save_Type
    Case "增加"
        Adodc1.Recordset.AddNew
        Adodc1.Recordset.Fields("编码") = Me.Text1(4).Text
        Adodc1.Recordset.Fields("名称") = Me.Text1(9).Text
        If Me.Option4.Value Then
            Adodc1.Recordset.Fields("首选项") = "是"
        Else
            Adodc1.Recordset.Fields("首选项") = ""
        End If
        Adodc1.Recordset.Update
    Case "更改"
        Adodc1.Recordset.Fields("编码") = Me.Text1(4).Text
        Adodc1.Recordset.Fields("名称") = Me.Text1(9).Text
        If Me.Option4.Value Then
            Adodc1.Recordset.Fields("首选项") = "是"
        Else
            Adodc1.Recordset.Fields("首选项") = ""
        End If
        Adodc1.Recordset.Update
    End Select

    Me.Picture3.Visible = False
End Sub

Private Sub Command7_Click()
    Select Case Save_Type
    Case "增加"
        Adodc1.Recordset.AddNew
        Adodc1.Recordset.Fields("日期") = System_Date
        Adodc1.Recordset.Fields("部门") = Me.Combo3.Text
        Adodc1.Recordset.Fields("编码") = Me.Text1(10).Text
        Adodc1.Recordset.Fields("名称") = Me.Text1(8).Text
        Adodc1.Recordset.Fields("当日发生额") = CCur(Me.Text1(11).Text)
        Adodc1.Recordset.Fields("现金") = CCur(Me.Text1(12).Text)
        Adodc1.Recordset.Fields("信用卡") = CCur(Me.Text1(13).Text)
        Adodc1.Recordset.Fields("挂帐") = CCur(Me.Text1(14).Text)
        Adodc1.Recordset.Fields("操作员") = CzyName
        Adodc1.Recordset.Update
    Case "更改"
        Adodc1.Recordset.Fields("日期") = System_Date
        Adodc1.Recordset.Fields("部门") = Me.Combo3.Text
        Adodc1.Recordset.Fields("编码") = Me.Text1(10).Text
        Adodc1.Recordset.Fields("名称") = Me.Text1(8).Text
        Adodc1.Recordset.Fields("当日发生额") = CCur(Me.Text1(11).Text)
        Adodc1.Recordset.Fields("现金") = CCur(Me.Text1(12).Text)
        Adodc1.Recordset.Fields("信用卡") = CCur(Me.Text1(13).Text)
        Adodc1.Recordset.Fields("挂帐") = CCur(Me.Text1(14).Text)
        Adodc1.Recordset.Fields("操作员") = CzyName
        Adodc1.Recordset.Update
    End Select

    Me.Picture4.Visible = False

End Sub

Private Sub Command8_Click()
    Me.Picture4.Visible = False
End Sub

Private Sub Form_Load()
    Left = 0
    Top = 0
'费用项目
    Select Case Table_SetType
    Case "会计科目"
    Adodc1.ConnectionString = My_PROVIDER
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from 项目编码 where 编码 like 'KMLB%' order by 名称"
    Adodc1.Refresh
    While Not Adodc1.Recordset.EOF
        Me.Combo1.AddItem Adodc1.Recordset.Fields("名称")
        If Adodc1.Recordset.Fields("首选项") = "是" Then
            Me.Combo1.Text = Adodc1.Recordset.Fields("名称")
        End If
        Adodc1.Recordset.MoveNext
    Wend
    Adodc1.Recordset.Close
    
    Adodc1.ConnectionString = My_PROVIDER
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from 部门"
    Adodc1.Refresh
    While Not Adodc1.Recordset.EOF
        Me.Combo2.AddItem Adodc1.Recordset.Fields("部门")
        'Me.Combo3.AddItem Adodc1.Recordset.Fields("部门")
        Adodc1.Recordset.MoveNext
    Wend
    Adodc1.Recordset.Close
    
    Adodc1.ConnectionString = My_PROVIDER
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from 费用编号 order by 编码"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
    DataGrid1.ReBind
    DataGrid1.Refresh
'部门
    Case "部门"
    Adodc1.ConnectionString = My_PROVIDER
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from 部门 order by 编码"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
    DataGrid1.ReBind
    DataGrid1.Refresh
    
    Case Is = "ZJ"
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select 编码,名称,首选项 from 项目编码 where 编码 like '" & Table_SetType & "%' order by 编码"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        DataGrid1.ReBind
        DataGrid1.Refresh
    Case Is = "QZ"
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select 编码,名称,首选项 from 项目编码 where 编码 like '" & Table_SetType & "%' order by 编码"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        DataGrid1.ReBind
        DataGrid1.Refresh
    Case Is = "SY"
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select 编码,名称,首选项 from 项目编码 where 编码 like '" & Table_SetType & "%' order by 编码"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        DataGrid1.ReBind
        DataGrid1.Refresh
    Case Is = "WF"
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select 编码,名称,首选项 from 项目编码 where 编码 like '" & Table_SetType & "%' order by 编码"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        DataGrid1.ReBind
        DataGrid1.Refresh
    Case Is = "KA"
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select 编码,名称,首选项 from 项目编码 where 编码 like '" & Table_SetType & "%' order by 编码"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        DataGrid1.ReBind
        DataGrid1.Refresh
    Case Is = "GJ"
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select 编码,名称,首选项 from 项目编码 where 编码 like '" & Table_SetType & "%' order by 编码"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        DataGrid1.ReBind
        DataGrid1.Refresh
    Case Is = "BZ"
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select 编码,名称,首选项 from 项目编码 where 编码 like '" & Table_SetType & "%' order by 编码"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        DataGrid1.ReBind
        DataGrid1.Refresh
    Case Is = "FL"
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select 编码,名称,首选项 from 项目编码 where 编码 like '" & Table_SetType & "%' order by 编码"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        DataGrid1.ReBind
        DataGrid1.Refresh
    
    Case Is = "营业收款"
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 部门"
        Adodc1.Refresh
        While Not Adodc1.Recordset.EOF
            'Me.Combo2.AddItem Adodc1.Recordset.Fields("部门")
            Me.Combo3.AddItem Adodc1.Recordset.Fields("部门")
            Adodc1.Recordset.MoveNext
        Wend
        Adodc1.Recordset.Close

        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 日营业点收入表 where 日期 like '" & System_Date & "'"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        DataGrid1.ReBind
        DataGrid1.Refresh

    End Select
    
    
End Sub

Private Sub Option1_Click()
    JD = "借方"
End Sub

Private Sub Option2_Click()
    JD = "贷方"
End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
    Select Case Button.Key
        Case "关闭"
            Unload Me
        Case "全部"
        Case "增加"
            Save_Type = "增加"
            Select Case Table_SetType
                Case "会计科目"
                    Me.Picture1.Visible = True
                Case "部门"
                    Me.Picture2.Visible = True
                Case "ZJ"
                    Me.Picture3.Visible = True
                Case "QZ"
                    Me.Picture3.Visible = True
                Case "BZ"
                    Me.Picture3.Visible = True
                Case "FL"
                    Me.Picture3.Visible = True
                Case "营业收款"
                    Me.Text1(15).Text = System_Date
                    Me.Picture4.Visible = True
            End Select
        Case "删除"
            If MsgBox("您确认要删除 {" & Adodc1.Recordset.Fields("名称") & "}科目吗？", 49, "提示") = vbOK Then
                Adodc1.Recordset.Delete
                Adodc1.Recordset.Update
            End If
        Case "更改"
            Save_Type = "更改"
            Select Case Table_SetType
                Case "会计科目"
                    Me.Picture1.Visible = True
                    Me.Text1(0).Text = IIf(IsNull(Adodc1.Recordset.Fields("编码")), "", Adodc1.Recordset.Fields("编码"))
                    Me.Text1(1).Text = IIf(IsNull(Adodc1.Recordset.Fields("名称")), "", Adodc1.Recordset.Fields("名称"))
                    Me.Combo1.Text = IIf(IsNull(Adodc1.Recordset.Fields("类别")), "", Adodc1.Recordset.Fields("类别"))
                    If Adodc1.Recordset.Fields("借贷方") = "借方" Then
                        Me.Option1.Value = True
                    End If
                    If Adodc1.Recordset.Fields("借贷方") = "贷方" Then
                        Me.Option2.Value = True
                    End If
                    Me.Combo2.Text = IIf(IsNull(Adodc1.Recordset.Fields("部门")), "", Adodc1.Recordset.Fields("部门"))
                Case "部门"
                    Me.Picture2.Visible = True
                Case "ZJ"
                    Me.Picture3.Visible = True
                Case "QZ"
                    Me.Picture3.Visible = True
                Case "BZ"
                    Me.Picture3.Visible = True
                    Me.Text1(4).Text = Adodc1.Recordset.Fields("编码")
                    Me.Text1(9).Text = Adodc1.Recordset.Fields("名称")
                    If Adodc1.Recordset.Fields("首选项") = "是" Then
                        Me.Option4.Value = True
                    Else
                        Me.Option4.Value = False
                    End If

            End Select
    End Select

End Sub