📄 frminfo.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{52238816-8CF1-4849-AE81-51937B29DA8D}#1.0#0"; "TFlatHintUnit.ocx"
Begin VB.Form frminfo
BorderStyle = 3 'Fixed Dialog
ClientHeight = 7290
ClientLeft = 45
ClientTop = 45
ClientWidth = 7965
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 7290
ScaleWidth = 7965
ShowInTaskbar = 0 'False
Begin 工程1.TFlatHint TFlatHint1
Height = 375
Left = 6960
TabIndex = 40
Top = 6600
Width = 375
_ExtentX = 661
_ExtentY = 661
BeginProperty HintFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.CommandButton Command6
Caption = "添加(&A)"
Height = 375
Left = 2040
TabIndex = 38
Top = 6720
Width = 1215
End
Begin VB.CommandButton Command5
Caption = "修改(&E)"
Height = 375
Left = 5400
TabIndex = 37
Top = 6720
Width = 960
End
Begin VB.CommandButton Command4
Caption = "删除(&D)"
Height = 375
Left = 4455
TabIndex = 36
Top = 6720
Width = 975
End
Begin VB.CommandButton Command3
Caption = "4"
BeginProperty Font
Name = "Webdings"
Size = 15.75
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1080
TabIndex = 35
Top = 6720
Width = 495
End
Begin VB.CommandButton Command2
Caption = "3"
BeginProperty Font
Name = "Webdings"
Size = 15.75
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 600
TabIndex = 34
Top = 6720
Width = 495
End
Begin VB.CommandButton Command1
Caption = "确定添加(&A)"
Height = 375
Left = 3240
TabIndex = 33
Top = 6720
Width = 1215
End
Begin VB.Frame Frame1
Height = 6375
Left = 80
TabIndex = 11
Top = 80
Width = 7815
Begin VB.Frame Frame4
Caption = "住房信息："
Height = 1815
Left = 120
TabIndex = 23
Top = 4320
Width = 7455
Begin MSComCtl2.DTPicker DTPicker3
Height = 315
Left = 3000
TabIndex = 12
Top = 1335
Width = 1695
_ExtentX = 2990
_ExtentY = 556
_Version = 393216
Format = 23658496
CurrentDate = 37732
End
Begin VB.TextBox Text2
Height = 320
Left = 3000
TabIndex = 10
Top = 765
Width = 1215
End
Begin VB.ComboBox Combo4
Height = 300
ItemData = "frminfo.frx":0000
Left = 3000
List = "frminfo.frx":0019
Style = 2 'Dropdown List
TabIndex = 9
Top = 240
Width = 2055
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "入住时间："
Height = 180
Left = 1440
TabIndex = 27
Top = 1395
Width = 900
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "平方米（m^2）"
Height = 180
Left = 4440
TabIndex = 26
Top = 840
Width = 1170
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "现住房面积："
Height = 180
Left = 1440
TabIndex = 25
Top = 840
Width = 1080
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "现住房等级："
Height = 180
Left = 1440
TabIndex = 24
Top = 300
Width = 1080
End
End
Begin VB.Frame Frame3
Caption = "家庭成员信息："
Height = 1935
Left = 120
TabIndex = 22
Top = 2280
Width = 7455
Begin VB.TextBox Text4
Height = 270
Left = 5040
TabIndex = 39
Top = 1185
Visible = 0 'False
Width = 855
End
Begin MSMask.MaskEdBox Mask1
Height = 375
Left = 5400
TabIndex = 31
Top = 720
Visible = 0 'False
Width = 1095
_ExtentX = 1931
_ExtentY = 661
_Version = 393216
AllowPrompt = -1 'True
MaxLength = 8
Format = "ddddd"
Mask = "####年##月"
PromptChar = " "
End
Begin VB.ComboBox Combo6
Height = 300
ItemData = "frminfo.frx":005D
Left = 3960
List = "frminfo.frx":0073
Style = 2 'Dropdown List
TabIndex = 30
Top = 960
Visible = 0 'False
Width = 855
End
Begin VB.ComboBox Combo5
Height = 300
ItemData = "frminfo.frx":009B
Left = 4920
List = "frminfo.frx":00A5
Style = 2 'Dropdown List
TabIndex = 29
Top = 480
Visible = 0 'False
Width = 615
End
Begin VB.TextBox Text3
Height = 270
IMEMode = 1 'ON
Left = 4200
TabIndex = 28
Top = 480
Visible = 0 'False
Width = 495
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 1575
Left = 120
TabIndex = 8
Top = 240
Width = 7095
_ExtentX = 12515
_ExtentY = 2778
_Version = 393216
Rows = 8
Cols = 4
FixedCols = 0
TextStyleFixed = 3
GridLines = 2
End
End
Begin VB.Frame Frame2
Caption = "户主信息："
Height = 1935
Left = 120
TabIndex = 13
Top = 240
Width = 7455
Begin MSMask.MaskEdBox Mask2
Height = 315
HelpContextID = 1000
Left = 1200
TabIndex = 0
Top = 360
Width = 975
_ExtentX = 1720
_ExtentY = 556
_Version = 393216
MaxLength = 4
Mask = "?###"
PromptChar = " "
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "frminfo.frx":00B1
Left = 4680
List = "frminfo.frx":00BB
Style = 2 'Dropdown List
TabIndex = 2
Top = 390
Width = 615
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 315
Left = 5280
TabIndex = 5
Top = 960
Width = 1455
_ExtentX = 2566
_ExtentY = 556
_Version = 393216
CustomFormat = "yyyy年MM月"
Format = 23658499
UpDown = -1 'True
CurrentDate = 37732
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 315
Left = 1440
TabIndex = 4
Top = 960
Width = 1575
_ExtentX = 2778
_ExtentY = 556
_Version = 393216
CustomFormat = "yyyy年MM月"
Format = 23658499
UpDown = -1 'True
CurrentDate = 37732
End
Begin VB.ComboBox Combo3
Height = 300
ItemData = "frminfo.frx":00C7
Left = 5280
List = "frminfo.frx":00D7
Style = 2 'Dropdown List
TabIndex = 7
Top = 1500
Width = 1215
End
Begin VB.ComboBox Combo2
Height = 300
ItemData = "frminfo.frx":00F3
Left = 1440
List = "frminfo.frx":0103
Style = 2 'Dropdown List
TabIndex = 6
Top = 1500
Width = 1095
End
Begin VB.OptionButton Option1
Caption = "否"
Height = 255
Index = 1
Left = 6720
TabIndex = 17
Top = 413
Width = 495
End
Begin VB.OptionButton Option1
Caption = "是"
Height = 255
Index = 0
Left = 6120
TabIndex = 3
Top = 413
Value = -1 'True
Width = 495
End
Begin VB.TextBox Text1
Height = 320
IMEMode = 1 'ON
Left = 3000
TabIndex = 1
Top = 380
Width = 975
End
Begin VB.Label Label1id
AutoSize = -1 'True
Caption = "住号："
Height = 180
Left = 600
TabIndex = 32
Top = 480
Width = 540
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "最后学历："
Height = 180
Left = 4320
TabIndex = 21
Top = 1560
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "职称："
Height = 180
Left = 600
TabIndex = 20
Top = 1560
Width = 540
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "参加工作年月："
Height = 180
Left = 3960
TabIndex = 19
Top = 1020
Width = 1260
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "出生年月："
Height = 180
Left = 480
TabIndex = 18
Top = 1020
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "婚否："
Height = 180
Left = 5520
TabIndex = 16
Top = 450
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "性别："
Height = 180
Left = 4080
TabIndex = 15
Top = 450
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "姓名："
Height = 180
Left = 2400
TabIndex = 14
Top = 450
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -