yybb.frm
来自「星级酒店客房管理系统一套很不错的系统」· FRM 代码 · 共 764 行 · 第 1/2 页
FRM
764 行
Picture = "yybb.frx":60B6
Key = ""
EndProperty
BeginProperty ListImage29 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":6114
Key = ""
EndProperty
BeginProperty ListImage30 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":6172
Key = ""
EndProperty
BeginProperty ListImage31 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":61D0
Key = ""
EndProperty
BeginProperty ListImage32 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":622E
Key = ""
EndProperty
BeginProperty ListImage33 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":628C
Key = ""
EndProperty
BeginProperty ListImage34 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":62EA
Key = ""
EndProperty
BeginProperty ListImage35 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":6348
Key = ""
EndProperty
BeginProperty ListImage36 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":63A6
Key = ""
EndProperty
BeginProperty ListImage37 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":6404
Key = ""
EndProperty
BeginProperty ListImage38 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":6462
Key = ""
EndProperty
BeginProperty ListImage39 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":64C0
Key = ""
EndProperty
BeginProperty ListImage40 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":651E
Key = ""
EndProperty
BeginProperty ListImage41 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":657C
Key = ""
EndProperty
BeginProperty ListImage42 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":65DA
Key = ""
EndProperty
BeginProperty ListImage43 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":6638
Key = ""
EndProperty
BeginProperty ListImage44 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":6696
Key = ""
EndProperty
BeginProperty ListImage45 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":66F4
Key = ""
EndProperty
BeginProperty ListImage46 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":6752
Key = ""
EndProperty
BeginProperty ListImage47 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":67B0
Key = ""
EndProperty
BeginProperty ListImage48 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":680E
Key = ""
EndProperty
BeginProperty ListImage49 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":686C
Key = ""
EndProperty
BeginProperty ListImage50 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "yybb.frx":68CA
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "main_kfgl_yybb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'
Dim DJ_query As Boolean
Dim DATA_edit As Boolean
Dim Field_Type As Integer
Dim Field_Value As String
Dim FindFieldC As String
Dim ZH_find As String
Dim ZH_find1 As String
Dim ZH_ysh As String
Dim SF_BG As Boolean
Dim BD_BG As Boolean
Dim Or_Field As String
Dim US_Field As String
Dim Data_Rec As Long
Dim TY_XG As Boolean
Dim FB_table1 As String
Private Sub Command1_Click(Index As Integer)
Dim i As Integer
'On Error GoTo E3008
Select Case Index
Case 0
Unload Me
Case 2
Adodc1.ConnectionString = My_PROVIDER
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from " & FB_table1
Adodc1.Refresh
Case 1
BB_type = "报表"
BB_title = Me.Caption
万能报表.Show 1
End Select
End Sub
Private Sub Form_Activate()
With DataGrid1
'.Top = Picture1.Height
.Width = .Parent.Width
' .Height = .Parent.Height - Picture1.Height - 400
End With
End Sub
Private Sub Form_Load()
'MDIForm1.Picture1.Visible = False
Dim Total1(80) As Currency
Dim Total2(80) As Long
Dim i As Long
For i = 0 To 19
Total1(i) = 0
Total2(i) = 0
Next
FindFieldC = "帐号"
ZH_find = ""
ZH_find1 = ""
DJ_query = False
ZH_ysh = " like "
SF_BG = False
BD_BG = False
Or_Field = " 帐号"
US_Field = ""
Select Case Query_Type
Case "客房营业收入表"
Me.Caption = "客房营业收入表"
Me.Label1.Caption = "客房营业收入表"
Adodc1.ConnectionString = My_PROVIDER
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 住宿情况 where 日期 like '" & CStr(CDate(System_Date) - 1) & "' and 帐号 like '999999'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
While Not Adodc1.Recordset.EOF
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Recordset.MoveNext
Wend
End If
Adodc1.ConnectionString = My_PROVIDER
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 住宿情况 where 日期 like '" & CStr(CDate(System_Date) - 1) & "' and 预付款<>0"
Adodc1.Refresh
FB_table2 = " 住宿情况 where 日期 like '" & CStr(CDate(System_Date) - 1) & "'"
US_Field = " 住宿情况 where 日期 like '" & CStr(CDate(System_Date) - 1) & "'"
FB_table1 = FB_table2
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
For i = 0 To Adodc1.Recordset.Fields.Count - 1
If Adodc1.Recordset.Fields(i).Type = adCurrency Then
Total1(i) = Total1(i) + Adodc1.Recordset.Fields(i)
End If
Next
Adodc1.Recordset.MoveNext
Wend
Adodc1.Recordset.AddNew
For i = 0 To Adodc1.Recordset.Fields.Count - 1
If Total1(i) <> 0 Then
Adodc1.Recordset.Fields(i) = Total1(i)
End If
Next
Adodc1.Recordset.Fields("帐号") = "999999"
Adodc1.Recordset.Fields("房号") = "合计"
Adodc1.Recordset.Update
End If
Set DataGrid1.DataSource = Adodc1
DataGrid1.ReBind
DataGrid1.Refresh
Case "当日单位帐户帐务报表"
Me.Caption = "当日单位帐户帐务报表"
Me.Label1.Caption = "当日单位帐户帐务报表"
Adodc1.ConnectionString = My_PROVIDER
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 往来帐户挂帐记录 where 日期 like '" & System_Date & "' and 帐号 like '999999' and 操作员 like '" & CzyName & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
While Not Adodc1.Recordset.EOF
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Recordset.MoveNext
Wend
End If
Adodc1.ConnectionString = My_PROVIDER
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 往来帐户挂帐记录 where 日期 like '" & System_Date & "'"
Adodc1.Refresh
FB_table2 = " 往来帐户挂帐记录 where 日期 like '" & System_Date & "'"
US_Field = " 往来帐户挂帐记录 where 日期 like '" & System_Date & "'"
FB_table1 = FB_table2
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
For i = 0 To Adodc1.Recordset.Fields.Count - 1
If Adodc1.Recordset.Fields(i).Type = adCurrency Then
Total1(i) = Total1(i) + Adodc1.Recordset.Fields(i)
End If
Next
Adodc1.Recordset.MoveNext
Wend
Adodc1.Recordset.AddNew
For i = 0 To Adodc1.Recordset.Fields.Count - 1
If Total1(i) <> 0 Then
Adodc1.Recordset.Fields(i) = Total1(i)
End If
Next
Adodc1.Recordset.Fields("日期") = System_Date
Adodc1.Recordset.Fields("帐号") = "999999"
Adodc1.Recordset.Fields("房号桌号") = "合计"
Adodc1.Recordset.Fields("操作员") = CzyName
Adodc1.Recordset.Update
End If
Set DataGrid1.DataSource = Adodc1
DataGrid1.ReBind
DataGrid1.Refresh
'日营业收入报表
Case "日营业收入报表"
Me.Caption = CStr(CDate(System_Date) - 1) & "日营业收入报表"
Me.Label1.Caption = CStr(CDate(System_Date) - 1) & "日营业收入报表"
Adodc1.ConnectionString = My_PROVIDER
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 日营业收入报表 where 编码 like '999999'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
While Not Adodc1.Recordset.EOF
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Recordset.MoveNext
Wend
End If
Adodc1.ConnectionString = My_PROVIDER
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 日营业收入报表 order by 编码"
Adodc1.Refresh
FB_table2 = " 日营业收入报表 order by 编码"
US_Field = " 日营业收入报表"
FB_table1 = FB_table2
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
If Len(Trim(Adodc1.Recordset.Fields("编码"))) = 6 Then
If Right(Adodc1.Recordset.Fields("编码"), 4) = "9999" Then
For i = 0 To Adodc1.Recordset.Fields.Count - 1
If Adodc1.Recordset.Fields(i).Type = adCurrency Then
Total1(i) = Total1(i) + Adodc1.Recordset.Fields(i)
End If
Next
End If
End If
Adodc1.Recordset.MoveNext
Wend
Adodc1.Recordset.AddNew
For i = 0 To Adodc1.Recordset.Fields.Count - 1
If Total1(i) <> 0 Then
Adodc1.Recordset.Fields(i) = Total1(i)
End If
Next
Adodc1.Recordset.Fields("编码") = "999999"
Adodc1.Recordset.Fields("名称") = "合计"
Adodc1.Recordset.Update
End If
Set DataGrid1.DataSource = Adodc1
DataGrid1.ReBind
DataGrid1.Refresh
For i = 2 To DataGrid1.Columns.Count - 1
DataGrid1.Columns(i).Width = 1000
Next
Case "挂帐明细表"
Me.Caption = "挂帐明细表"
Me.Label1.Caption = "挂帐明细表"
Adodc1.ConnectionString = My_PROVIDER
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select 帐号,姓名,房号,平衡金额,预付款,费用类,帐务笔数,到店日期,到店时间,离店日期,离店时间,天数,房价,结帐方式,挂帐金额,日期 from 住宿情况 where 当前状态 like '离店' and 结帐方式 like '挂帐' and 日期 like '" & System_Date & "' and 操作员 like '" & CzyName & "' and 帐号 like '999999'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
While Not Adodc1.Recordset.EOF
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Recordset.MoveNext
Wend
End If
Adodc1.ConnectionString = My_PROVIDER
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select 帐号,姓名,房号,平衡金额,预付款,费用类,帐务笔数,到店日期,到店时间,离店日期,离店时间,天数,房价,结帐方式,挂帐金额,日期,操作员,当前状态 from 住宿情况 where 当前状态 like '离店' and 结帐方式 like '挂帐' and 日期 like '" & System_Date & "' order by 帐号 desc"
Adodc1.Refresh
FB_table2 = " 住宿情况 where 当前状态 like '离店' and 结帐方式 like '挂帐' and 日期 like '" & System_Date & "' order by 帐号 desc"
US_Field = " 住宿情况 where 当前状态 like '离店' and 结帐方式 like '挂帐' and 日期 like '" & System_Date & "' order by 帐号 desc"
FB_table1 = FB_table2
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
For i = 0 To Adodc1.Recordset.Fields.Count - 1
If Adodc1.Recordset.Fields(i).Type = adCurrency Then
Total1(i) = Total1(i) + Adodc1.Recordset.Fields(i)
End If
Next
Adodc1.Recordset.MoveNext
Wend
Adodc1.Recordset.AddNew
For i = 0 To Adodc1.Recordset.Fields.Count - 1
If Total1(i) <> 0 Then
Adodc1.Recordset.Fields(i) = Total1(i)
End If
Next
Adodc1.Recordset.Fields("日期") = System_Date
Adodc1.Recordset.Fields("帐号") = "999999"
Adodc1.Recordset.Fields("姓名") = "合计"
Adodc1.Recordset.Fields("操作员") = CzyName
Adodc1.Recordset.Fields("当前状态") = "离店"
Adodc1.Recordset.Fields("结帐方式") = "挂帐"
Adodc1.Recordset.Update
End If
Set DataGrid1.DataSource = Adodc1
DataGrid1.ReBind
DataGrid1.Refresh
End Select
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?