📄 main_czgl_yjzfx.frm
字号:
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 7
BeginProperty Column00
DataField = "结账单据号"
Caption = "结账单据号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = "房台编号"
Caption = "房台编号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "日期"
Caption = "日期"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "结款金额"
Caption = "结款金额"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "结款人"
Caption = "结款人"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "结款方式"
Caption = "结款方式"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "结款说明"
Caption = "结款说明"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
MarqueeStyle = 4
BeginProperty Column00
ColumnWidth = 1814.74
EndProperty
BeginProperty Column01
ColumnWidth = 14.74
EndProperty
BeginProperty Column02
ColumnWidth = 1830.047
EndProperty
BeginProperty Column03
ColumnWidth = 900.284
EndProperty
BeginProperty Column04
ColumnWidth = 705.26
EndProperty
BeginProperty Column05
ColumnWidth = 810.142
EndProperty
BeginProperty Column06
ColumnWidth = 1035.213
EndProperty
EndProperty
End
End
Begin VB.Frame Frame2
Height = 480
Left = 3645
TabIndex = 0
Top = -15
Width = 4050
Begin VB.Label Labhjje
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 225
Left = 2670
TabIndex = 3
Top = 180
Width = 1140
End
Begin VB.Label Labjl
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 225
Left = 1200
TabIndex = 2
Top = 165
Width = 615
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "结款单据数： 结款金额："
Height = 255
Left = 90
TabIndex = 1
Top = 195
Width = 5295
End
End
End
Attribute VB_Name = "main_czgl_yjzfx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim key, text As String '定义字符串
Dim nod As Node '定义Node对象
Dim rs As New ADODB.Recordset
Private Sub Form_Activate()
TreeView1.Nodes.Clear
'在treeview中添加房台信息
Sql = "select * from 房间台号信息表 order by 编号"
Call FunAdo(Adodc1, Sql)
Adodc1.Refresh
key = "房台信息"
text = "请选择所需房台"
Set Node1 = TreeView1.Nodes.Add(, , key, text, 1) '设置TreeView1控件的节点 文本 和 图标（另外：1 为ImageList控件图标的索引值）
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
key = Trim(Adodc1.Recordset.Fields("房台名称")) & "*" 'Trim()去掉字符串（两端）空格
text = "(" & Trim(Adodc1.Recordset.Fields("编号")) & ")" & Trim(Adodc1.Recordset.Fields("房台名称"))
sqlStr = "select * from 月结账表 where 房台编号='" & Adodc1.Recordset.Fields("编号") & "'"
rs.Open sqlStr, cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount > 0 Then
Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, key, text, 2) '将房台名称，添加到TreeView控件中
Else
Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, key, text, 1) '将房台名称，添加到TreeView控件中
End If
rs.Close
Adodc1.Recordset.MoveNext
Loop
End If
End Sub
Private Sub Form_Load()
Dim sqlStr1 As String
Sql = "select * From 房间台号信息表 "
sqlStr = "select * From 月结账表 "
sqlStr1 = "select * From 月结账表 "
Call FunAdo(Adodc1, Sql)
' Call FunAdo(Adodc2, sqlStr)
Call FunAdo(Adodc3, sqlStr1)
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) 'Node对象被单击时
Text1.text = Right(Left(TreeView1.SelectedItem.text, 4), 3)
sqlStr = "select * from 月结账表 where 房台编号='" + Text1.text + "'"
Call FunAdo(Adodc2, sqlStr)
Adodc2.Refresh '查询月结账信息
'统计结账单据数、结账金额
sqlStr = "select count(*)as 记录,sum(结款金额)as 金额合计 from 月结账表 where 房台编号='" + Text1.text + "'"
Call FunAdo(Adodc3, sqlStr)
Adodc3.Refresh
If Adodc3.Recordset.Fields(0) <> "" Then Labjl.Caption = Adodc3.Recordset.Fields(0) Else Labjl.Caption = "0"
If Adodc3.Recordset.Fields(1) <> "" Then Labhjje.Caption = Format(Adodc3.Recordset.Fields(1), "0.00") Else Labhjje.Caption = "0.00"
End Sub
Private Sub Comprint_Click() '打印月结账信息
DataE1.rsCommand4.Open "select * from 月结账表 where 房台编号='" + Trim(Text1.text) + "'order by 结账单据号", cnn, adOpenKeyset, adLockOptimistic
DR1_yjdy.Show
End Sub
Private Sub ComView_Click() '显示点单信息
On Error GoTo err1
If Adodc2.Recordset.RecordCount > 0 Then
Load main_czgl_ddxx
main_czgl_ddxx.Show
main_czgl_ddxx.js.text = "1"
Me.Enabled = False
Else
MsgBox "无点单客户！"
End If
Exit Sub
err1:
ErrMessageBox "查询失败！" '出错信息显示
End Sub
Private Sub comend_Click()
frm_main.Enabled = True
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -