?? 會(huì)計(jì)科目設(shè)置.frm

?? 很不錯(cuò)的酒店管理系統(tǒng),用的是本地?cái)?shù)據(jù)庫.初始話文件用了讀取DAT文件的方式.很有參考價(jià)值.
?? FRM
?? 第 1 頁 / 共 3 頁
字號(hào):
上一頁 1 23
            Picture         =   "會(huì)計(jì)科目設(shè)置.frx":206A
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "會(huì)計(jì)科目設(shè)置.frx":256C
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "會(huì)計(jì)科目設(shè)置.frx":288E
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "會(huì)計(jì)科目設(shè)置.frx":2BB0
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "會(huì)計(jì)科目設(shè)置.frx":2ED2
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "會(huì)計(jì)科目設(shè)置.frx":3224
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "會(huì)計(jì)科目設(shè)置.frx":35EA
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "會(huì)計(jì)科目設(shè)置.frx":393C
            Key             =   ""
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "會(huì)計(jì)科目設(shè)置"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'歡迎你下載使用本代碼，本份代碼由程序太平洋提供下載學(xué)習(xí)之用
'聲明:
'1.本站所有代碼的版權(quán)歸原作者所有，如果你使用了在本站下載的源代碼
'  引起的一切糾紛(后果)與本站無關(guān),請(qǐng)您尊重原作者的勞動(dòng)成果！
'2.若本站在代碼上有侵權(quán)之處請(qǐng)您與站長聯(lián)系，站長會(huì)及時(shí)更正。
'網(wǎng)站：http://www.dapha.net
'論壇：http://www.5ivb.net
'Email:dapha@etang.com
'CopyRight 2001-2005 By dapha.net
'整理時(shí)間：2003-12-8 12:22:14

'星級(jí)酒店管理系統(tǒng)最初功能演示版,提供所有星級(jí)酒店管理中的客房管理,
'房態(tài)管理,客史管理,客人資料管理,帳務(wù)管理,報(bào)表管理,餐飲收費(fèi)管理
'菜譜管理,夜審處理,數(shù)據(jù)庫備份等功能.所有功能皆可以運(yùn)行,(但有一些BUG未處理)
'此代碼完全可以完成星級(jí)酒店上述管理功能.(提供者:帥)
'--------------------------------------------------------------
'代碼編寫于:2001.12  系統(tǒng)分析:帥   代碼編寫:帥    版權(quán)所有:帥
'--------------------------------------------------------------
'本份代碼僅提供給程序太平洋的所有朋友學(xué)習(xí),研究之用.
'其它網(wǎng)站一律不得轉(zhuǎn)載,否則為侵權(quán)行為,本人保留法律追訴權(quán)力.
'這也是本人最早的VB版程序,代碼質(zhì)量不好.望笑納.:)
'--------------------------------------------------------------
'提供日期:2003-05-31    提供者:帥
'--------------------------------------------------------------
'系統(tǒng)提從與ACCESS或SQL相接,在登錄時(shí),選擇全局?jǐn)?shù)據(jù)庫,就與SQL數(shù)據(jù)庫
'連接,字符串存放在SERVER.DAT文本文件中;選擇本地?cái)?shù)據(jù)庫,與本地ACCESS
'數(shù)據(jù)庫相連,連接字符串存放在LOCAT.DAT文件中.(當(dāng)前存放為e:\hotel2\room.mdb)
'---------------------------------------------------------------
'將ACCESS中所有表導(dǎo)入SQL中,并將有的表中的ID字段改為自動(dòng)編碼,就可以使用.
'---------------------------------------------------------------------
'
'
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("負(fù)責(zé)人") = 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("負(fù)責(zé)人") = 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("首選項(xiàng)") = "是"
        Else
            Adodc1.Recordset.Fields("首選項(xiàng)") = ""
        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("首選項(xiàng)") = "是"
        Else
            Adodc1.Recordset.Fields("首選項(xiàng)") = ""
        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("當(dāng)日發(fā)生額") = CCur(Me.Text1(11).Text)
        Adodc1.Recordset.Fields("現(xiàn)金") = 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("當(dāng)日發(fā)生額") = CCur(Me.Text1(11).Text)
        Adodc1.Recordset.Fields("現(xiàn)金") = 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
'費(fèi)用項(xiàng)目
    Select Case Table_SetType
    Case "會(huì)計(jì)科目"
    Adodc1.ConnectionString = My_PROVIDER
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from 項(xiàng)目編碼 where 編碼 like 'KMLB%' order by 名稱"
    Adodc1.Refresh
    While Not Adodc1.Recordset.EOF
        Me.Combo1.AddItem Adodc1.Recordset.Fields("名稱")
        If Adodc1.Recordset.Fields("首選項(xiàng)") = "是" 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 費(fèi)用編號(hào) 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 編碼,名稱,首選項(xiàng) from 項(xiàng)目編碼 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 編碼,名稱,首選項(xiàng) from 項(xiàng)目編碼 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 編碼,名稱,首選項(xiàng) from 項(xiàng)目編碼 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 編碼,名稱,首選項(xiàng) from 項(xiàng)目編碼 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 編碼,名稱,首選項(xiàng) from 項(xiàng)目編碼 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 編碼,名稱,首選項(xiàng) from 項(xiàng)目編碼 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 編碼,名稱,首選項(xiàng) from 項(xiàng)目編碼 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 編碼,名稱,首選項(xiàng) from 項(xiàng)目編碼 where 編碼 like '" & Table_SetType & "%' order by 編碼"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        DataGrid1.ReBind
        DataGrid1.Refresh
    
    Case Is = "營業(yè)收款"
        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 日營業(yè)點(diǎn)收入表 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 "關(guān)閉"
            Unload Me
        Case "全部"
        Case "增加"
            Save_Type = "增加"
            Select Case Table_SetType
                Case "會(huì)計(jì)科目"
                    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 "營業(yè)收款"
                    Me.Text1(15).Text = System_Date
                    Me.Picture4.Visible = True
            End Select
        Case "刪除"
            If MsgBox("您確認(rèn)要?jiǎng)h除 {" & Adodc1.Recordset.Fields("名稱") & "}科目嗎？", 49, "提示") = vbOK Then
                Adodc1.Recordset.Delete
                Adodc1.Recordset.Update
            End If
        Case "更改"
            Save_Type = "更改"
            Select Case Table_SetType
                Case "會(huì)計(jì)科目"
                    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("首選項(xiàng)") = "是" Then
                        Me.Option4.Value = True
                    Else
                        Me.Option4.Value = False
                    End If

            End Select
    End Select

End Sub
上一頁 1 23
?? 文件大小 546 K
?? 上傳用戶 zwaheron
?? 所屬分類酒店行業(yè)
??? 相關(guān)標(biāo)簽

#DAT #管理系統(tǒng) #本地?cái)?shù)據(jù)庫 #方式
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? 會(huì)計(jì)科目設(shè)置.frm

?? 快捷鍵說明
