📄 frm查询结算信息.frm
字号:
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
BeginProperty Column07
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
ScrollBars = 3
BeginProperty Column00
ColumnWidth = 734.74
EndProperty
BeginProperty Column01
ColumnWidth = 764.787
EndProperty
BeginProperty Column02
ColumnWidth = 1604.976
EndProperty
BeginProperty Column03
ColumnWidth = 764.787
EndProperty
BeginProperty Column04
ColumnWidth = 764.787
EndProperty
BeginProperty Column05
ColumnWidth = 569.764
EndProperty
BeginProperty Column06
ColumnWidth = 555.024
EndProperty
BeginProperty Column07
ColumnWidth = 675.213
EndProperty
EndProperty
End
Begin VB.Label Label1
BackColor = &H80000013&
Caption = "经过登记结算信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 2640
TabIndex = 6
Top = 120
Width = 1815
End
End
Begin VB.Frame Frame2
BackColor = &H80000013&
Caption = "操作员"
Height = 1815
Left = 120
TabIndex = 3
Top = 1800
Width = 1575
Begin VB.ListBox List2
Height = 1500
ItemData = "frm查询结算信息.frx":0F76
Left = 120
List = "frm查询结算信息.frx":0F78
TabIndex = 4
Top = 240
Width = 1335
End
End
Begin VB.Frame Frame1
BackColor = &H80000013&
Caption = "顾客姓名"
Height = 1815
Left = 120
TabIndex = 1
Top = 0
Width = 1575
Begin VB.ListBox List1
Height = 1500
ItemData = "frm查询结算信息.frx":0F7A
Left = 120
List = "frm查询结算信息.frx":0F81
TabIndex = 2
Top = 240
Width = 1335
End
End
End
End
Attribute VB_Name = "frm查询结算信息"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim i As Integer
i = MsgBox("是否确认退出？", vbYesNo, "提示")
If i = vbYes Then
Unload Me
End If
End Sub
Private Sub Command2_Click()
Command2.Visible = False
Frame3.Visible = True
End Sub
Private Sub Form_Load()
Frame3.Visible = False
Command2.Visible = True
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim rs3 As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
Set rs3 = New ADODB.Recordset
cn.Open frm登录.Adodc1.ConnectionString
rs.Open "select distinct 顾客姓名 from 结算信息表", cn, 1, 3
While Not rs.EOF
List1.AddItem (rs.Fields("顾客姓名"))
rs.MoveNext
Wend
rs1.Open "select distinct 操作员 from 结算信息表 ", cn, 1, 3
rs1.MoveFirst
While Not rs1.EOF
List2.AddItem rs1.Fields("操作员")
rs1.MoveNext
Wend
Set DataGrid1.DataSource = Nothing
rs2.Open "select * from 结算信息表 ", cn, 1, 3
While Not rs2.EOF
Dim i, j, k As Integer
i = i + rs2.Fields(4)
j = j + rs2.Fields(5)
rs2.MoveNext
Wend
Text1.Text = i + j
rs3.Open "select * from 订房结算信息表 ", cn, 1, 3
While Not rs3.EOF
k = k + rs3.Fields("订房押金")
rs3.MoveNext
Wend
Text2 = k
Text3 = Val(Text1) + Val(Text2)
End Sub
Private Sub List1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open Adodc1.ConnectionString
If List1.Text = List1.List(0) Then
rs.Open "select * from 结算信息表 ", cn, 1, 3
If rs.EOF Then
Set DataGrid1.DataSource = Nothing
DataGrid1.Refresh
Else
Set DataGrid1.DataSource = rs
End If
Else
rs.Open "select * from 结算信息表 where 顾客姓名 = '" & List1.Text & "'", cn, 1, 3
If rs.EOF Then
Set DataGrid1.DataSource = Nothing
DataGrid1.Refresh
Else
Set DataGrid1.DataSource = rs
End If
End If
End Sub
Private Sub List2_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open Adodc1.ConnectionString
rs.Open "select * from 结算信息表 where 操作员 = '" & List2.Text & "'", cn, 1, 3
If rs.EOF Then
Set DataGrid1.DataSource = Nothing
DataGrid1.Refresh
Else
Set DataGrid1.DataSource = rs
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -