📄 frmreport.frm
字号:
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
Alignment = 2
ColumnWidth = 734.74
EndProperty
BeginProperty Column01
Alignment = 2
ColumnWidth = 1305.071
EndProperty
BeginProperty Column02
Alignment = 2
ColumnWidth = 1065.26
EndProperty
BeginProperty Column03
Alignment = 2
ColumnWidth = 1440
EndProperty
BeginProperty Column04
Alignment = 2
ColumnWidth = 1349.858
EndProperty
BeginProperty Column05
Alignment = 2
ColumnWidth = 1244.976
EndProperty
BeginProperty Column06
Alignment = 2
ColumnWidth = 1275.024
EndProperty
BeginProperty Column07
Alignment = 2
ColumnWidth = 1560.189
EndProperty
EndProperty
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "frmReport.frx":008A
Height = 4680
Left = 165
TabIndex = 1
Top = 495
Width = 8355
_ExtentX = 14737
_ExtentY = 8255
_Version = 393216
AllowUpdate = -1 'True
HeadLines = 2
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
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 = 9
BeginProperty Column00
DataField = "FK"
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 = "CH"
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 = "HS"
Caption = "套内使用面积"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "YT"
Caption = "阳台面积"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "Harea"
Caption = "套内建筑面积"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "YcFtmj"
Caption = "一次分摊面积"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "Dcftmj"
Caption = "多次分摊面积"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column07
DataField = "Glmj"
Caption = "阁楼面积"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column08
DataField = "Jzmj"
Caption = "套房建筑面积"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
Alignment = 2
ColumnWidth = 945.071
EndProperty
BeginProperty Column01
Alignment = 2
ColumnWidth = 959.811
EndProperty
BeginProperty Column02
Alignment = 2
ColumnWidth = 1305.071
EndProperty
BeginProperty Column03
Alignment = 2
ColumnWidth = 1184.882
EndProperty
BeginProperty Column04
Alignment = 2
ColumnWidth = 1305.071
EndProperty
BeginProperty Column05
Alignment = 2
ColumnWidth = 1409.953
EndProperty
BeginProperty Column06
Alignment = 2
ColumnWidth = 1484.787
EndProperty
BeginProperty Column07
Alignment = 2
ColumnWidth = 1275.024
EndProperty
BeginProperty Column08
Alignment = 2
ColumnWidth = 2085.166
EndProperty
EndProperty
End
End
End
Attribute VB_Name = "frmReport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const szSQLTX As String = "SELECT * FROM rptTX" 'FK,CH,HS,YT,Harea,YCftmj,Dcftmj,Glmj,Jzmj FROM rptTX" '套型
Const szSQLLayer As String = "SELECT * FROM rptLayer" '层报表
Const szSQLFT As String = "SELECT * FROM rptFT" '分摊面积报表
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdPreview_Click()
Select Case SSTab1.Tab
Case 0
Call rptTxPreview
Case 1
Call rptLayerPreview
Case 2
Call rptFTPreview
End Select
End Sub
Private Sub Form_Load()
Dim rs As ADODB.Recordset
On Error Resume Next
Screen.MousePointer = 11
'套型
Set rs = MAP_CONN.Execute(szSQLTX)
Set DataGrid1.DataSource = rs.Clone
If Not rs Is Nothing Then
If rs.State = adStateOpen Then
rs.Close
End If
End If
'层报表
Set rs = MAP_CONN.Execute(szSQLLayer)
Set DataGrid2.DataSource = rs.Clone
If Not rs Is Nothing Then
If rs.State = adStateOpen Then
rs.Close
End If
End If
'分摊报表
Set rs = MAP_CONN.Execute(szSQLFT)
Set DataGrid3.DataSource = rs.Clone
If Not rs Is Nothing Then
If rs.State = adStateOpen Then
rs.Close
End If
Set rs = Nothing
End If
'----------------
Screen.MousePointer = 0
End Sub
Private Sub rptTxPreview()
Dim frm As rptTX
Dim sc As DtSource
On Error Resume Next
Screen.MousePointer = 11
'-----------------
'创建数据集
Set sc = New DtSource
With sc
.cnnString = DATABASE_STRING
.Source = szSQLTX
.Filter = ""
.OpenDtSource
End With
'设置数据源
Set frm = New rptTX
Set frm.DataSource = sc
Load frm
frm.Caption = "打印预览"
frm.LayerName = REGION_LAYER
Screen.MousePointer = 0
frm.Show vbModal
Set sc = Nothing
End Sub
Private Sub rptLayerPreview()
Dim frm As rptLayer
Dim sc As DtSource
On Error Resume Next
Screen.MousePointer = 11
'-----------------
'创建数据集
Set sc = New DtSource
With sc
.cnnString = DATABASE_STRING
.Source = szSQLLayer
.Filter = ""
.OpenDtSource
End With
'Printer.PaperSize = vbPRPSA3
Printer.Orientation = vbPRORLandscape
'设置数据源
Set frm = New rptLayer
Set frm.DataSource = sc
Load frm
frm.Caption = "打印预览"
Screen.MousePointer = 0
frm.Show vbModal
Set sc = Nothing
End Sub
Private Sub rptFTPreview()
Dim frm As rptFT
Dim sc As DtSource
On Error Resume Next
Screen.MousePointer = 11
'-----------------
'创建数据集
Set sc = New DtSource
With sc
.cnnString = DATABASE_STRING
.Source = szSQLFT
.Filter = ""
.OpenDtSource
End With
'Printer.PaperSize = vbPRPSA3
Printer.Orientation = vbPRORLandscape
'设置数据源
Set frm = New rptFT
Set frm.DataSource = sc
Load frm
frm.Caption = "打印预览"
Screen.MousePointer = 0
frm.Show vbModal
Set sc = Nothing
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -