📄 dt_krdj.frm
字号:
VERSION 5.00
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form dt_krdj
BorderStyle = 3 'Fixed Dialog
ClientHeight = 8880
ClientLeft = -15
ClientTop = -15
ClientWidth = 11880
ControlBox = 0 'False
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8880
ScaleWidth = 11880
ShowInTaskbar = 0 'False
WindowState = 2 'Maximized
Begin VB.Frame Frame1
Height = 6675
Left = 390
TabIndex = 76
Top = 1350
Width = 11055
Begin VB.TextBox m_yw_m
Height = 300
Left = 9540
MaxLength = 20
TabIndex = 10
Text = "12345678901234567890"
Top = 360
Width = 1275
End
Begin VB.TextBox m_kr_m
Height = 300
Left = 5700
MaxLength = 16
TabIndex = 8
Text = "1234567890123456"
Top = 360
Width = 1155
End
Begin VB.TextBox m_czy
Height = 300
Left = 5880
MaxLength = 3
TabIndex = 41
Text = "123"
Top = 3300
Width = 375
End
Begin VB.TextBox m_jd_bz1
Height = 300
Left = 5880
MaxLength = 42
TabIndex = 43
Text = "1234567890123456789012345678901234567890"
Top = 3720
Width = 3735
End
Begin VB.TextBox m_td_zh
Height = 300
Left = 1080
MaxLength = 5
TabIndex = 35
Text = "12345"
Top = 2880
Width = 615
End
Begin VB.TextBox m_bdjddw_mc
Height = 300
Left = 8280
MaxLength = 20
TabIndex = 38
Text = "12345678901234567890"
Top = 2880
Width = 1875
End
Begin VB.TextBox m_jdy
Height = 300
Left = 5880
MaxLength = 3
TabIndex = 37
Text = "123"
Top = 2880
Width = 495
End
Begin VB.TextBox m_zklx
Height = 300
Left = 1080
MaxLength = 1
TabIndex = 30
Text = "1"
Top = 2460
Width = 315
End
Begin VB.TextBox m_vip_dj
Height = 300
Left = 1080
MaxLength = 1
TabIndex = 39
Text = "1"
Top = 3300
Width = 375
End
Begin VB.TextBox m_kr_x
Height = 300
Left = 4560
MaxLength = 14
TabIndex = 7
Text = "12345678901234"
Top = 360
Width = 1095
End
Begin VB.TextBox m_yw_x
Height = 300
Left = 8280
MaxLength = 15
TabIndex = 9
Text = "123456789012345"
Top = 360
Width = 1215
End
Begin VB.TextBox m_kr_zjhm
Height = 300
Left = 4560
MaxLength = 20
TabIndex = 19
Text = "12345678901234567890"
Top = 1200
Width = 1905
End
Begin VB.TextBox m_gjdm
Height = 300
Left = 8280
MaxLength = 2
TabIndex = 15
Text = "12"
Top = 780
Width = 380
End
Begin VB.TextBox m_dz
Height = 300
Left = 8280
MaxLength = 40
TabIndex = 25
Text = "1234567890123456789012345678901234567890"
Top = 1620
Width = 2595
End
Begin VB.TextBox m_zh
Height = 300
Left = 1080
MaxLength = 5
TabIndex = 6
Text = "12345"
Top = 360
Width = 735
End
Begin VB.Frame fm_qd
Caption = "可否签单"
Height = 1095
Left = 240
TabIndex = 97
Top = 4200
Width = 2175
Begin VB.OptionButton op_qd_ft
Caption = "可"
Height = 180
Index = 1
Left = 180
TabIndex = 44
Top = 300
Value = -1 'True
Width = 675
End
Begin VB.OptionButton op_qd_ft
Caption = "否"
Height = 180
Index = 0
Left = 180
TabIndex = 46
Top = 720
Width = 435
End
Begin VB.TextBox m_hy_kh
Height = 300
Left = 840
MaxLength = 8
TabIndex = 45
Text = "12345678"
Top = 240
Width = 795
End
End
Begin VB.Frame fm_mfzc
Caption = "有无免费早餐"
Height = 1095
Left = 2640
TabIndex = 95
Top = 4200
Width = 2115
Begin VB.OptionButton op_mfzc_ft
Caption = "无"
Height = 180
Index = 0
Left = 180
TabIndex = 48
Top = 720
Width = 495
End
Begin VB.OptionButton op_mfzc_ft
Caption = "有"
Height = 180
Index = 1
Left = 180
TabIndex = 47
Top = 300
Value = -1 'True
Width = 555
End
Begin VB.TextBox m_zck_bz
Height = 300
Left = 900
MaxLength = 7
TabIndex = 96
Text = "1234567"
Top = 240
Width = 795
End
End
Begin VB.Frame fm_sh
Caption = "市话收费"
Height = 1095
Left = 5100
TabIndex = 94
Top = 4200
Width = 1500
Begin VB.OptionButton op_sh_ft
Caption = "不收"
Height = 180
Index = 0
Left = 300
TabIndex = 50
Top = 720
Width = 795
End
Begin VB.OptionButton op_sh_ft
Caption = "收费"
Height = 180
Index = 1
Left = 300
TabIndex = 49
Top = 300
Value = -1 'True
Width = 795
End
End
Begin VB.Frame fm_jywp
Caption = "借用物品"
Height = 1095
Left = 7080
TabIndex = 64
Top = 4200
Width = 1500
Begin VB.OptionButton op_jywp_ft
Caption = "有"
Height = 180
Index = 1
Left = 300
TabIndex = 51
Top = 300
Width = 555
End
Begin VB.OptionButton op_jywp_ft
Caption = "无"
Height = 180
Index = 0
Left = 300
TabIndex = 52
Top = 720
Value = -1 'True
Width = 495
End
End
Begin VB.Frame fm_bxx
Caption = "有无保险箱"
Height = 1095
Left = 9120
TabIndex = 93
Top = 4200
Width = 1500
Begin VB.OptionButton op_bxx_ft
Caption = "有"
Height = 180
Index = 1
Left = 300
TabIndex = 53
Top = 300
Width = 615
End
Begin VB.OptionButton op_bxx_ft
Caption = "无"
Height = 180
Index = 0
Left = 300
TabIndex = 54
Top = 720
Value = -1 'True
Width = 555
End
End
Begin VB.Frame fm_dfxx
Caption = "订房信息"
Height = 1095
Left = 7260
TabIndex = 90
Top = 5460
Width = 3675
Begin VB.TextBox m_dfy_dm
Height = 300
Left = 960
MaxLength = 3
TabIndex = 61
Text = "123"
Top = 300
Width = 435
End
Begin VB.TextBox m_khdm
Height = 300
Left = 960
MaxLength = 5
TabIndex = 62
Text = "12345"
Top = 660
Width = 555
End
Begin VB.Label Label32
Caption = "订 房 员"
Height = 255
Index = 1
Left = 120
TabIndex = 92
Top = 360
Width = 735
End
Begin VB.Label Label39
Caption = "订房单位"
Height = 255
Index = 1
Left = 120
TabIndex = 91
Top = 720
Width = 735
End
Begin MSForms.ComboBox cm_ywdw_mc
Height = 300
Left = 1560
TabIndex = 63
Top = 660
Width = 1995
VariousPropertyBits= 746604571
MaxLength = 20
DisplayStyle = 3
Size = "3519;529"
ColumnCount = 2
cColumnInfo = 2
MatchEntry = 1
ShowDropButtonWhen= 2
Value = "12345678901234567890"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
Object.Width = "705;1058"
End
End
Begin VB.Frame fm_zkxx
Caption = "折扣信息"
Height = 1095
Left = 2640
TabIndex = 87
Top = 5460
Width = 2115
Begin VB.TextBox m_zk_spr
Height = 300
Left = 960
MaxLength = 10
TabIndex = 58
Text = "1234567890"
Top = 660
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -