📄 frmpeople.frm
字号:
VERSION 5.00
Begin VB.Form frmpeople
Caption = "人口登记表（添加户主）"
ClientHeight = 8445
ClientLeft = 60
ClientTop = 345
ClientWidth = 9375
ControlBox = 0 'False
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 8445
ScaleWidth = 9375
WindowState = 2 'Maximized
Begin VB.CommandButton Command10
Caption = "重置"
Enabled = 0 'False
Height = 375
Left = 3600
TabIndex = 69
Top = 7320
Visible = 0 'False
Width = 975
End
Begin VB.CommandButton Command9
Caption = "迁入人口"
Enabled = 0 'False
Height = 375
Left = 6480
TabIndex = 68
Top = 7320
Visible = 0 'False
Width = 1455
End
Begin VB.CommandButton Command8
Caption = "重置"
Enabled = 0 'False
Height = 375
Left = 3600
TabIndex = 66
Top = 7320
Visible = 0 'False
Width = 975
End
Begin VB.CommandButton Command7
Caption = "重置"
Enabled = 0 'False
Height = 375
Left = 3600
TabIndex = 65
Top = 7320
Visible = 0 'False
Width = 975
End
Begin VB.CommandButton Command6
Caption = "添加人口"
Enabled = 0 'False
Height = 375
Left = 6480
TabIndex = 61
Top = 7320
Width = 1455
End
Begin VB.Frame Frame5
Caption = "迁出信息"
Enabled = 0 'False
Height = 1215
Left = 120
TabIndex = 46
Top = 5760
Width = 9015
Begin VB.TextBox Text8
Enabled = 0 'False
Height = 375
Left = 3840
MaxLength = 150
TabIndex = 47
Top = 480
Width = 4695
End
Begin VB.Label Label36
Caption = "*"
ForeColor = &H000000FF&
Height = 135
Left = 8640
TabIndex = 59
Top = 600
Visible = 0 'False
Width = 135
End
Begin VB.Label Label27
Caption = "迁出日期："
Enabled = 0 'False
Height = 375
Left = 240
TabIndex = 50
Top = 600
Width = 1095
End
Begin VB.Label Label26
Enabled = 0 'False
Height = 375
Left = 1440
TabIndex = 49
Top = 600
Width = 975
End
Begin VB.Label Label25
Caption = "迁出到何地："
Enabled = 0 'False
Height = 375
Left = 2520
TabIndex = 48
Top = 600
Width = 1095
End
End
Begin VB.CommandButton Command5
Caption = "迁出此人"
Enabled = 0 'False
Height = 375
Left = 240
TabIndex = 45
Top = 5280
Width = 1455
End
Begin VB.Frame Frame4
Caption = "迁入信息 [选填项]"
Height = 1215
Left = 120
TabIndex = 40
Top = 3960
Width = 9015
Begin VB.TextBox Text7
Height = 375
Left = 3840
MaxLength = 150
TabIndex = 41
Top = 480
Width = 4695
End
Begin VB.Label Label37
Caption = "*"
ForeColor = &H000000FF&
Height = 135
Left = 8640
TabIndex = 67
Top = 600
Visible = 0 'False
Width = 135
End
Begin VB.Label Label24
Caption = "迁入日期："
Height = 375
Left = 240
TabIndex = 44
Top = 600
Width = 1095
End
Begin VB.Label Label23
Height = 375
Left = 1440
TabIndex = 43
Top = 600
Width = 975
End
Begin VB.Label Label22
Caption = "自何地迁入："
Height = 375
Left = 2520
TabIndex = 42
Top = 600
Width = 1095
End
End
Begin VB.Frame Frame3
Caption = "基本信息"
Height = 3615
Left = 120
TabIndex = 4
Top = 120
Width = 9015
Begin VB.TextBox Text10
Height = 375
Left = 7440
Locked = -1 'True
MaxLength = 10
TabIndex = 62
Text = "户主"
Top = 240
Width = 975
End
Begin VB.TextBox Text9
Height = 390
Left = 4200
Locked = -1 'True
MaxLength = 20
TabIndex = 60
Top = 240
Width = 1455
End
Begin VB.TextBox Text6
Height = 375
Left = 4200
MaxLength = 100
TabIndex = 39
Top = 3000
Width = 4335
End
Begin VB.TextBox Text5
Height = 375
Left = 1200
MaxLength = 20
TabIndex = 37
Top = 3000
Width = 1335
End
Begin VB.Frame Frame2
Height = 615
Left = 6600
TabIndex = 33
Top = 2160
Width = 1815
Begin VB.OptionButton Option3
Caption = "已婚"
Height = 255
Left = 960
TabIndex = 35
Top = 240
Width = 735
End
Begin VB.OptionButton Option4
Caption = "未婚"
Height = 255
Left = 120
TabIndex = 34
Top = 240
Width = 735
End
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "frmpeople.frx":0000
Left = 4200
List = "frmpeople.frx":0016
Style = 2 'Dropdown List
TabIndex = 31
Top = 2400
Width = 855
End
Begin VB.TextBox Text4
Height = 375
Left = 1200
MaxLength = 20
TabIndex = 29
Top = 2280
Width = 1335
End
Begin VB.ComboBox Combo4
Height = 300
ItemData = "frmpeople.frx":003E
Left = 6600
List = "frmpeople.frx":0040
Style = 2 'Dropdown List
TabIndex = 26
Top = 1680
Width = 615
End
Begin VB.ComboBox Combo3
Height = 300
ItemData = "frmpeople.frx":0042
Left = 5520
List = "frmpeople.frx":006A
Style = 2 'Dropdown List
TabIndex = 24
Top = 1680
Width = 615
End
Begin VB.ComboBox Combo2
Height = 300
ItemData = "frmpeople.frx":009E
Left = 4200
List = "frmpeople.frx":00A0
Style = 2 'Dropdown List
TabIndex = 22
Top = 1680
Width = 855
End
Begin VB.TextBox Text3
Height = 375
Left = 1200
MaxLength = 20
TabIndex = 20
Top = 1560
Width = 1335
End
Begin VB.TextBox Text2
Height = 375
Left = 7080
MaxLength = 20
TabIndex = 18
Top = 840
Width = 1335
End
Begin VB.Frame Frame1
Height = 615
Left = 4200
TabIndex = 14
Top = 720
Width = 1455
Begin VB.OptionButton Option1
Caption = "男"
Height = 255
Left = 120
TabIndex = 16
Top = 240
Width = 615
End
Begin VB.OptionButton Option2
Caption = "女"
Height = 255
Left = 840
TabIndex = 15
Top = 240
Width = 495
End
End
Begin VB.TextBox Text1
Height = 270
Left = 1200
MaxLength = 22
TabIndex = 12
Top = 960
Width = 1695
End
Begin VB.Label Label8
Caption = "*"
ForeColor = &H000000FF&
Height = 135
Left = 8520
TabIndex = 64
Top = 360
Visible = 0 'False
Width = 135
End
Begin VB.Label Label6
Caption = "*"
ForeColor = &H000000FF&
Height = 135
Left = 5760
TabIndex = 63
Top = 360
Visible = 0 'False
Width = 135
End
Begin VB.Label Label35
Caption = "*"
ForeColor = &H000000FF&
Height = 135
Left = 8520
TabIndex = 58
Top = 2400
Width = 135
End
Begin VB.Label Label34
Caption = "*"
ForeColor = &H000000FF&
Height = 135
Left = 7680
TabIndex = 57
Top = 1680
Width = 135
End
Begin VB.Label Label33
Caption = "*"
ForeColor = &H000000FF&
Height = 135
Left = 5160
TabIndex = 56
Top = 2400
Width = 135
End
Begin VB.Label Label32
Caption = "*"
ForeColor = &H000000FF&
Height = 135
Left = 2640
TabIndex = 55
Top = 2400
Width = 135
End
Begin VB.Label Label31
Caption = "*"
ForeColor = &H000000FF&
Height = 135
Left = 2640
TabIndex = 54
Top = 1680
Width = 135
End
Begin VB.Label Label30
Caption = "*"
ForeColor = &H000000FF&
Height = 135
Left = 8520
TabIndex = 53
Top = 960
Width = 135
End
Begin VB.Label Label29
Caption = "*"
ForeColor = &H000000FF&
Height = 135
Left = 5760
TabIndex = 52
Top = 960
Width = 135
End
Begin VB.Label Label28
Caption = "*"
ForeColor = &H000000FF&
Height = 135
Left = 3000
TabIndex = 51
Top = 960
Width = 135
End
Begin VB.Label Label21
Caption = "工作单位："
Height = 255
Left = 3120
TabIndex = 38
Top = 3120
Width = 975
End
Begin VB.Label Label20
Caption = "职业："
Height = 255
Left = 240
TabIndex = 36
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -