📄 pub_xzjcx.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form pub_xzjcx
BorderStyle = 3 'Fixed Dialog
ClientHeight = 7485
ClientLeft = -15
ClientTop = -15
ClientWidth = 5805
ControlBox = 0 'False
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7485
ScaleWidth = 5805
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.Frame Frame1
Height = 6465
Left = 90
TabIndex = 2
Top = 90
Width = 5610
Begin MSFlexGridLib.MSFlexGrid gd1
Height = 4410
Left = 120
TabIndex = 0
Top = 600
Width = 5370
_ExtentX = 9472
_ExtentY = 7779
_Version = 327680
Rows = 20
Cols = 6
FixedCols = 0
BackColor = 12648447
ScrollBars = 2
SelectionMode = 1
End
Begin MSForms.Label Label1
Height = 300
Left = 5100
TabIndex = 10
Top = 6030
Width = 315
Size = "556;529"
BorderStyle = 1
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 2
End
Begin MSForms.Label lb_fys
Height = 300
Left = 1590
TabIndex = 9
Top = 6030
Width = 1185
Size = "2090;529"
BorderStyle = 1
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 2
End
Begin MSForms.Label lb_drs
Height = 300
Left = 3930
TabIndex = 8
Top = 6030
Width = 1185
Size = "2090;529"
BorderStyle = 1
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 2
End
Begin MSForms.Label lb_zzs
Height = 300
Left = 2760
TabIndex = 7
Top = 6030
Width = 1185
Size = "2090;529"
BorderStyle = 1
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 2
End
Begin MSForms.Label Label8
Height = 300
Left = 240
TabIndex = 6
Top = 6030
Width = 1365
Caption = " 合 计"
Size = "2408;529"
BorderStyle = 1
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin VB.Label lb_jls
Alignment = 1 'Right Justify
Caption = "0"
Height = 165
Left = 4860
TabIndex = 5
Top = 360
Width = 555
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
Caption = "记录数 :"
Height = 165
Left = 4080
TabIndex = 4
Top = 360
Width = 795
End
Begin VB.Label lb_title
Alignment = 2 'Center
Caption = "写字间出租情况"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 240
TabIndex = 3
Top = 210
Width = 5175
End
End
Begin VB.Timer XT_Timer
Interval = 1000
Left = 0
Top = 7200
End
Begin VB.CommandButton CMD_EXIT
Caption = "退 出(Esc)"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 510
Left = 3480
TabIndex = 1
Top = 6900
Width = 1575
End
End
Attribute VB_Name = "pub_xzjcx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Option Explicit
'
'Dim t_tbname As String
'Dim t_bt As String '存储列表显示的表头
'Dim t_fields As Variant '存储列表显示的字段名
'Dim t_fdxs As Variant '表示显示列是否由代码转换成文字
'Dim t_fdcounts As Integer '表示列表所显示的字段的个数
'
'
''**************************************************************************************************
''* 功 能 :
''* 作 者 : 梁卫
''* 作成日期 : 1999.03.18
''* 修改日期 : 1999.03.18
''**************************************************************************************************
'Private Sub flex_refresh(temp_gd As MSFlexGrid, temp_bt As String, temp_rec As Recordset, temp_fields As Variant, temp_fdcounts As Integer, temp_fdxs As Variant)
' Call Flex_full(temp_gd, temp_bt, temp_rec, temp_fields, temp_fdcounts - 1, temp_fdxs)
' temp_gd.Refresh
'End Sub
'
'
'
''**************************************************************************************************
''* 功 能 :
''* 作 者 : 梁卫
''* 作成日期 : 1999.03.18
''* 修改日期 : 1999.03.18
''**************************************************************************************************
'Private Sub cmd_exit_Click()
' Unload Me
'End Sub
'
'Private Sub Form_Activate()
' gd1.SetFocus
'End Sub
'
''**************************************************************************************************
''* 功 能 :
''* 作 者 : 梁卫
''* 作成日期 : 1999.03.18
''* 修改日期 : 1999.03.18
''**************************************************************************************************
'Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
' If KeyCode = vbKeyEscape Then
' Call cmd_exit_Click
' End If
'End Sub
'
''**************************************************************************************************
''* 功 能 :
''* 作 者 : 梁卫
''* 作成日期 : 1999.03.18
''* 修改日期 : 1999.03.18
''**************************************************************************************************
'Private Sub Form_Load()
' Dim temp_xzj As Recordset
' Dim temp_xzjHJ As Recordset
'
' dt_srfcx.KeyPreview = True
'
' Set temp_xzj = pub_data.OpenRecordset("SELECT ZH,XZJ_ZYDW,SUM(XZJ_MJ) AS XZJ_MJ,COUNT(ZH) AS XZJ_FS ,AVG(XZJ_ZF/IIF(XZJ_MJ=0,1,XZJ_MJ)) AS XZJ_ZJ,SUM(XZJ_ZF) AS XZJ_ZF FROM ZW_XZJQK WHERE XZJ_CZ='1' GROUP BY ZH ORDER BY ZH", 4, 0, 2)
' If Not temp_xzj.BOF Then
' temp_xzj.MoveLast
' End If
' temp_xzj.Close
'
' Set temp_xzjHJ = pub_data.OpenRecordset("SELECT SUM(XZJ_ZF) AS XZJ_ZF, SUM(XZJ_MJ) AS XZJ_MJ,COUNT(ZH) AS XZJ_FS ,AVG(XZJ_ZF) AS XZJ_ZJ FROM ZW_XZJQK WHERE XZJ_CZ='1'", 4, 0, 2)
' If Not temp_xzjHJ.BOF Then
' temp_xzjHJ.MoveLast
' lb_fs.Caption = IIf(IsNull(temp_xzjHJ.Fields("XZJ_FS")), 0, temp_xzjHJ.Fields("XZJ_FS"))
' lb_Zf.Caption = IIf(IsNull(temp_xzjHJ.Fields("XZJ_ZF")), 0, temp_xzjHJ.Fields("XZJ_ZF"))
' lb_MJ.Caption = IIf(IsNull(temp_xzjHJ.Fields("XZJ_MJ")), 0, temp_xzjHJ.Fields("XZJ_MJ"))
' lb_ZJ.Caption = IIf(IsNull(temp_xzjHJ.Fields("XZJ_ZJ")), 0, temp_xzjHJ.Fields("XZJ_ZJ"))
' Else
' lb_fs.Caption = 0
' lb_Zf.Caption = 0
' lb_MJ.Caption = 0
' lb_ZJ.Caption = 0
' End If
' temp_xzjHJ.Close
'
' Set temp_xzjHJ = pub_data.OpenRecordset("SELECT DISTINCT COUNT(ZH) AS ZHS FROM ZW_XZJQK WHERE XZJ_CZ='1'", 4, 0, 2)
' If Not temp_xzjHJ.BOF Then
' temp_xzjHJ.MoveLast
' lb_jls.Caption = IIf(IsNull(temp_xzjHJ.Fields("ZHS")), 0, temp_xzjHJ.Fields("ZHS"))
' Else
' lb_jls.Caption = 0
' End If
' temp_xzjHJ.Close
'
' t_fields = Array("ZH", "XZJ_ZYDW", "XZJ_FS", "XZJ_ZF", "XZJ_MJ", "XZJ_ZJ") '设置显示字段
' t_fdxs = Array(0, 0, 0, 2, 2, 2) '设置显示字段
' t_bt = "<记租帐号|<租用单位 |>房 数 |>房 租 |>租用面积 |>平均租价 " '设置显示表头格式
' t_fdcounts = 6
'
' Call flex_refresh
'
'End Sub
'
'
'Private Sub gd1_KeyDown(KeyCode As Integer, Shift As Integer)
' If KeyCode = vbKeyReturn Then
' CMD_EXIT.SetFocus
' End If
'End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -