📄 dy_kfly_xx.frm
字号:
VERSION 5.00
Begin VB.Form dy_kfly_xx
ClientHeight = 4770
ClientLeft = 60
ClientTop = 60
ClientWidth = 6255
ControlBox = 0 'False
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 4770
ScaleWidth = 6255
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame1
Caption = "请选择打印项目"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4455
Left = 120
TabIndex = 9
Top = 120
Width = 5895
Begin VB.CommandButton CMD1
Caption = "返 回"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 1
Left = 4320
TabIndex = 8
Top = 3720
Width = 1215
End
Begin VB.CommandButton CMD1
Caption = "确 认"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 0
Left = 3000
TabIndex = 7
Top = 3720
Width = 1215
End
Begin VB.CheckBox m_nb
Caption = "内部房情况"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 3240
TabIndex = 5
Top = 1440
Width = 1455
End
Begin VB.CheckBox m_fy
Caption = "房源情况"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 3240
TabIndex = 6
Top = 2400
Width = 1455
End
Begin VB.CheckBox m_sy
Caption = "剩余房情况"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 720
TabIndex = 3
Top = 3240
Width = 1455
End
Begin VB.CheckBox m_wx
Caption = "维修房情况"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 3240
TabIndex = 4
Top = 480
Width = 1455
End
Begin VB.CheckBox m_cb
Caption = "长包房情况"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 720
TabIndex = 2
Top = 2400
Width = 1455
End
Begin VB.CheckBox m_zr
Caption = "住人房情况"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 720
TabIndex = 1
Top = 1440
Width = 1455
End
Begin VB.CheckBox m_yd
Caption = "预订房情况"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 720
TabIndex = 0
Top = 480
Width = 1455
End
End
End
Attribute VB_Name = "dy_kfly_xx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim t_rq As String
Dim ret_tf As Boolean
Dim dy_xx As Variant
Dim yd_STR As String, zr_STR As String, cb_STR As String, wx_STR As String, sy_STR As String, fy_STR As String
Dim nb_STR As String, sum_STR As String, field_STR As String, LEN_STR As String
Dim FLD As Variant, l_EN As Variant
Dim ARRAY_NUM As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
ret_tf = False
Unload Me
End If
End Sub
Private Sub Form_Load()
KeyPreview = True
End Sub
Private Sub CMD1_Click(Index As Integer)
Select Case Index
Case 0
ret_tf = True
Select Case sys_lxn
Case 4
If m_yd.Value = 1 Then
yd_STR = "YD_LX1,YD_LX2,YD_LX3,YD_LX4,"
field_STR = "YD_LX1, YD_LX2, YD_LX3, YD_LX4,"
LEN_STR = "8,8,8,8,"
Else
yd_STR = ""
field_STR = ""
LEN_STR = ""
End If
If m_zr.Value = 1 Then
zr_STR = "ZR_LX1,ZR_LX2,ZR_LX3,ZR_LX4,"
field_STR = field_STR & "ZR_LX1,ZR_LX2,ZR_LX3,ZR_LX4,"
LEN_STR = LEN_STR & "8,8,8,8,"
Else
zr_STR = ""
End If
If m_cb.Value = 1 Then
cb_STR = "CB_LX1,CB_LX2,CB_LX3,CB_LX4,"
field_STR = field_STR & "CB_LX1,CB_LX2,CB_LX3,CB_LX4,"
LEN_STR = LEN_STR & "8,8,8,8,"
Else
cb_STR = ""
End If
If m_wx.Value = 1 Then
wx_STR = "WX_LX1,WX_LX2,WX_LX3,WX_LX4,"
field_STR = field_STR & "WX_LX1,WX_LX2,WX_LX3,WX_LX4,"
LEN_STR = LEN_STR & "8,8,8,8,"
Else
wx_STR = ""
End If
If m_sy.Value = 1 Then
sy_STR = "SY_LX1,SY_LX2,SY_LX3,SY_LX4,"
field_STR = field_STR & "SY_LX1,SY_LX2,SY_LX3,SY_LX4,"
LEN_STR = LEN_STR & "8,8,8,8,"
Else
sy_STR = ""
End If
If m_fy.Value = 1 Then
fy_STR = "FY_LX1,FY_LX2,FY_LX3,FY_LX4,"
field_STR = field_STR & "FY_LX1,FY_LX2,FY_LX3,FY_LX4,"
LEN_STR = LEN_STR & "8,8,8,8,"
Else
fy_STR = ""
End If
If m_nb.Value = 1 Then
nb_STR = "NB_LX1,NB_LX2,NB_LX3,NB_LX4,"
field_STR = field_STR & "NB_LX1,NB_LX2,NB_LX3,NB_LX4,"
LEN_STR = LEN_STR & "8,8,8,8,"
Else
nb_STR = ""
End If
sum_STR = yd_STR & zr_STR & cb_STR & wx_STR & sy_STR & fy_STR & nb_STR
sum_STR = "RQ," & Mid(sum_STR, 1, Len(sum_STR) - 1)
field_STR = "日期," & field_STR
LEN_STR = "12," & LEN_STR
FLD = STR_ARRAY(field_STR, ",", ARRAY_NUM)
l_EN = INT_ARRAY(LEN_STR, ",", ARRAY_NUM)
Case 5
If m_yd.Value = 1 Then
yd_STR = "YD_LX1,YD_LX2,YD_LX3,YD_LX4,YD_LX5,"
Else
yd_STR = ""
End If
If m_zr.Value = 1 Then
zr_STR = "ZR_LX1,ZR_LX2,ZR_LX3,ZR_LX4,ZR_LX5,"
Else
zr_STR = ""
End If
If m_cb.Value = 1 Then
cb_STR = "CB_LX1,CB_LX2,CB_LX3,CB_LX4,CB_LX5,"
Else
cb_STR = ""
End If
If m_wx.Value = 1 Then
wx_STR = "WX_LX1,WX_LX2,WX_LX3,WX_LX4,WX_LX5,"
Else
wx_STR = ""
End If
If m_sy.Value = 1 Then
sy_STR = "SY_LX1,SY_LX2,SY_LX3,SY_LX4,SY_LX5,"
Else
sy_STR = ""
End If
If m_fy.Value = 1 Then
fy_STR = "FY_LX1,FY_LX2,FY_LX3,FY_LX4,FY_LX5,"
Else
fy_STR = ""
End If
If m_nb.Value = 1 Then
nb_STR = "NB_LX1,NB_LX2,NB_LX3,NB_LX4,NB_LX5,"
Else
nb_STR = ""
End If
Case 6
If m_yd.Value = 1 Then
yd_STR = "YD_LX1,YD_LX2,YD_LX3,YD_LX4,YD_LX5,YD_LX6,"
Else
yd_STR = ""
End If
If m_zr.Value = 1 Then
zr_STR = "ZR_LX1,ZR_LX2,ZR_LX3,ZR_LX4,ZR_LX5,ZR_LX6,"
Else
zr_STR = ""
End If
If m_cb.Value = 1 Then
cb_STR = "CB_LX1,CB_LX2,CB_LX3,CB_LX4,CB_LX5,CB_LX6,"
Else
cb_STR = ""
End If
If m_wx.Value = 1 Then
wx_STR = "WX_LX1,WX_LX2,WX_LX3,WX_LX4,WX_LX5,WX_LX6,"
Else
wx_STR = ""
End If
If m_sy.Value = 1 Then
sy_STR = "SY_LX1,SY_LX2,SY_LX3,SY_LX4,SY_LX5,SY_LX6,"
Else
sy_STR = ""
End If
If m_fy.Value = 1 Then
fy_STR = "FY_LX1,FY_LX2,FY_LX3,FY_LX4,FY_LX5,FY_LX6,FY_LX6,"
Else
fy_STR = ""
End If
If m_nb.Value = 1 Then
nb_STR = "NB_LX1,NB_LX2,NB_LX3,NB_LX4,NB_LX5,NB_LX6,NB_LX6,"
Else
nb_STR = ""
End If
End Select
Unload Me
Case 1
ret_tf = False
Unload Me
End Select
End Sub
Public Property Get tf() As Boolean
tf = ret_tf
End Property
Public Property Let tf(t_f As Boolean)
t_f = tf
End Property
Public Property Get FILD() As Variant
FILD = FLD
End Property
Public Property Let FILD(XXX As Variant)
XXX = FILD
End Property
'sum_STR = yd_STR & zr_STR & cb_STR & wx_STR & sy_STR & fy_STR & nb_STR
'FLD = STR_ARRAY(field_STR, ",", ARRAY_NUM)
'l_EN = INT_ARRAY(LEN_STR, ",", ARRAY_NUM)
Public Property Get TJ() As String
TJ = sum_STR
End Property
Public Property Let TJ(TJ1 As String)
TJ1 = TJ
End Property
Public Property Get LLEN() As Variant
LLEN = l_EN
End Property
Public Property Let LLEN(EN As Variant)
EN = LLEN
End Property
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -