📄 frmtgyibiao.frm
字号:
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin MSDataGridLib.DataGrid DataGrid2
Height = 1695
Index = 2
Left = -74640
TabIndex = 15
Top = 3960
Width = 4695
_ExtentX = 8281
_ExtentY = 2990
_Version = 393216
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
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 = 2
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
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin MSDataGridLib.DataGrid DataGrid1
Height = 3135
Index = 2
Left = -74640
TabIndex = 16
Top = 600
Width = 7695
_ExtentX = 13573
_ExtentY = 5530
_Version = 393216
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
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 = 2
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
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin MSDataGridLib.DataGrid DataGrid1
Height = 3135
Index = 3
Left = 360
TabIndex = 20
Top = 600
Width = 7695
_ExtentX = 13573
_ExtentY = 5530
_Version = 393216
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
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 = 2
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
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
End
End
Attribute VB_Name = "frmTgYiBiao"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'rs_yb用于最初显示时的记录集
Dim rs_yb As New ADODB.Recordset
'rs_order 为用于排序时的记录集
Dim rs_order As New ADODB.Recordset
'rs_tg 为用于统计时的记录集
Dim rs_tg As New ADODB.Recordset
'sql 为用于最初显示时的sql语句
Dim sql As String
'sqlod 为用于排序显示时的sql语句
Dim sqlod As String
'sqltg为用于统计显示时的sql语句
Dim sqltg As String
Private Sub cmdOrderc_Click()
'下面的sql语句表示从水、电、气3表中取出住户姓名等于Client表中
'住户姓名的年份、月份、本月用量、本月费用
'并且按照用户选定的排序方式排序
sql = "select Client.业主姓名, Client.物业地址, Water.年份 as 水表年份, " & _
" Water.月份 as 水表月份,Water.本月用量 as 水本月用量,Water.本月费用 as 水本月费用," & _
" Power.年份 as 电表年份,Power.月份 as 电表月份, Power.本月用量 as 电本月用量," & _
" Power.本月费用 as 电本月费用,Gas.年份 as 气表年份,Gas.月份 as 气表月份, " & _
" Gas.本月用量 as 气本月用量,Gas.本月费用 as 气本月费用 " & _
" from Water,Power,Gas,Client where Client.业主姓名 = Water.住户姓名 and " & _
" Client.业主姓名 = Power.住户姓名 and Client.业主姓名 = Gas.住户姓名 "
'设置一个变量用于存储combo1中的排序方式
Dim orderby As String
Select Case Combo1(3).ListIndex
Case 0
orderby = " order by Client.业主姓名"
Case 1
orderby = " order by Client.物业地址"
Case 2
orderby = " order by Water.年份"
Case 3
orderby = " order by Water.月份"
Case 4
orderby = " order by Water.本月用量"
Case 5
orderby = " order by Water.本月费用"
Case 6
orderby = " order by Power.年份"
Case 7
orderby = " order by Power.月份"
Case 8
orderby = " order by Power.本月用量"
Case 9
orderby = " order by Power.本月费用"
Case 10
orderby = " order by Gas.年份"
Case 11
orderby = " order by Gas.月份"
Case 12
orderby = " order by Gas.本月用量"
Case 13
orderby = " order by Gas.本月费用"
End Select
sqlod = sql & orderby
If rs_yb.State = adStateOpen Then
rs_yb.Close
End If
rs_yb.CursorLocation = adUseClient
rs_yb.Open sqlod, conn, adOpenStatic, adLockOptimistic
'设置DataGrid1的数据源
Set DataGrid1(3).DataSource = rs_yb
DataGrid1(3).Refresh
End Sub
Private Sub cmdOrderg_Click()
If rs_order.State = adStateOpen Then
rs_order.Close
End If
sqlod = "select * from Gas order by " & Combo1(2).Text
rs_order.CursorLocation = adUseClient
rs_order.Open sqlod, conn, adOpenStatic, adLockOptimistic
'设置DataGrid1的数据源
Set DataGrid1(2).DataSource = rs_order
DataGrid1(2).Refresh
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -