📄 frm_czrk_edit.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frm_CZRK_EDIT
BorderStyle = 3 'Fixed Dialog
Caption = "常住人口信息录入"
ClientHeight = 8235
ClientLeft = 60
ClientTop = 345
ClientWidth = 11880
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8235
ScaleWidth = 11880
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.Frame Frame4
Caption = "注销信息"
Height = 1095
Left = 0
TabIndex = 110
Top = 6600
Width = 11775
Begin VB.TextBox Text36
Enabled = 0 'False
Height = 300
Left = 5880
TabIndex = 120
Top = 600
Width = 5775
End
Begin MSComCtl2.DTPicker DTPicker6
Height = 300
Left = 3240
TabIndex = 117
Top = 600
Width = 1455
_ExtentX = 2566
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 48496641
CurrentDate = 38153
End
Begin VB.CheckBox Check2
Caption = "户口已注销"
Enabled = 0 'False
Height = 255
Left = 120
TabIndex = 116
Top = 600
Width = 1215
End
Begin VB.TextBox Text35
Enabled = 0 'False
Height = 300
Left = 5880
TabIndex = 115
Top = 240
Width = 5775
End
Begin MSComCtl2.DTPicker DTPicker5
Height = 300
Left = 3240
TabIndex = 113
Top = 240
Width = 1455
_ExtentX = 2566
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 48496641
CurrentDate = 38153
End
Begin VB.CheckBox Check1
Caption = "已亡故"
Enabled = 0 'False
Height = 255
Left = 120
TabIndex = 111
Top = 240
Width = 1575
End
Begin VB.Label Label57
Caption = "死亡原因"
Height = 255
Left = 4920
TabIndex = 119
Top = 360
Width = 735
End
Begin VB.Label Label56
Caption = "死亡日期"
Height = 255
Left = 2160
TabIndex = 118
Top = 360
Width = 975
End
Begin VB.Label Label55
Caption = "注销原因"
Height = 255
Left = 4920
TabIndex = 114
Top = 720
Width = 855
End
Begin VB.Label Label54
Caption = "注销日期"
Height = 255
Left = 2160
TabIndex = 112
Top = 720
Width = 1095
End
End
Begin VB.ComboBox Combo17
Height = 300
ItemData = "frm_CZRK_EDIT.frx":0000
Left = 5880
List = "frm_CZRK_EDIT.frx":0010
TabIndex = 132
Text = "人户同在"
Top = 7800
Width = 1455
End
Begin MSComCtl2.DTPicker DTPicker8
Height = 300
Left = 3240
TabIndex = 129
Top = 7800
Width = 1455
_ExtentX = 2566
_ExtentY = 529
_Version = 393216
Format = 48496641
CurrentDate = 38155
End
Begin VB.Timer Timer1
Interval = 60
Left = 1560
Top = 7800
End
Begin VB.CommandButton Cmd_end
BackColor = &H00FFC0C0&
Caption = "关闭"
Height = 375
Left = 10920
Style = 1 'Graphical
TabIndex = 124
Top = 7800
Width = 855
End
Begin VB.CommandButton Cmd_save
BackColor = &H00FFC0C0&
Caption = "保存"
Enabled = 0 'False
Height = 375
Left = 9960
Style = 1 'Graphical
TabIndex = 123
Top = 7800
Width = 855
End
Begin VB.CommandButton Cmd_th_add
BackColor = &H00FFC0C0&
Caption = "同户增加"
Height = 375
Left = 8760
Style = 1 'Graphical
TabIndex = 122
Top = 7800
Width = 1095
End
Begin VB.CommandButton Cmd_xh_add
BackColor = &H00FFC0C0&
Caption = "增加新户"
Height = 375
Left = 7560
Style = 1 'Graphical
TabIndex = 121
Top = 7800
Width = 1095
End
Begin VB.Frame Frame3
Caption = "迁徙信息"
Height = 975
Left = 0
TabIndex = 93
Top = 5640
Width = 11775
Begin VB.TextBox Text34
Enabled = 0 'False
Height = 300
Left = 8760
TabIndex = 109
Top = 480
Width = 2895
End
Begin VB.TextBox Text33
Enabled = 0 'False
Height = 300
Left = 5520
TabIndex = 107
Top = 480
Width = 2295
End
Begin MSComCtl2.DTPicker DTPicker4
Height = 300
Left = 960
TabIndex = 105
Top = 480
Width = 1335
_ExtentX = 2355
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 48496641
CurrentDate = 38153
End
Begin VB.ComboBox Combo16
Enabled = 0 'False
Height = 300
ItemData = "frm_CZRK_EDIT.frx":003C
Left = 3240
List = "frm_CZRK_EDIT.frx":0058
TabIndex = 103
Text = "未迁移"
Top = 480
Width = 1455
End
Begin VB.TextBox Text32
Height = 300
Left = 8760
TabIndex = 101
Top = 120
Width = 2895
End
Begin VB.TextBox Text31
Height = 300
Left = 5520
TabIndex = 99
Top = 120
Width = 2295
End
Begin VB.ComboBox Combo15
Height = 300
ItemData = "frm_CZRK_EDIT.frx":00CE
Left = 3240
List = "frm_CZRK_EDIT.frx":00EA
TabIndex = 97
Text = "未迁移"
Top = 120
Width = 1455
End
Begin MSComCtl2.DTPicker DTPicker3
Height = 300
Left = 960
TabIndex = 95
Top = 120
Width = 1335
_ExtentX = 2355
_ExtentY = 529
_Version = 393216
Format = 48496641
CurrentDate = 38153
End
Begin VB.Label Label53
Caption = "迁出原因"
Height = 255
Left = 7920
TabIndex = 108
Top = 600
Width = 855
End
Begin VB.Label Label52
Caption = "迁出到"
Height = 255
Left = 4800
TabIndex = 106
Top = 600
Width = 735
End
Begin VB.Label Label51
Caption = "迁出日期"
Height = 255
Left = 120
TabIndex = 104
Top = 480
Width = 735
End
Begin VB.Label Label50
Caption = "迁出类型"
Height = 255
Left = 2400
TabIndex = 102
Top = 480
Width = 735
End
Begin VB.Label Label49
Caption = "迁入原因"
Height = 255
Left = 7920
TabIndex = 100
Top = 240
Width = 855
End
Begin VB.Label Label48
Caption = "原住地"
Height = 255
Left = 4800
TabIndex = 98
Top = 240
Width = 975
End
Begin VB.Label Label47
Caption = "迁入类型"
Height = 255
Left = 2400
TabIndex = 96
Top = 240
Width = 735
End
Begin VB.Label Label46
Caption = "迁入日期"
Height = 255
Left = 120
TabIndex = 94
Top = 240
Width = 975
End
End
Begin VB.Frame Frame2
Caption = "基本信息"
Height = 3375
Left = 0
TabIndex = 29
Top = 2160
Width = 11775
Begin VB.TextBox Text30
BackColor = &H00FFC0FF&
Height = 615
Left = 960
TabIndex = 92
Top = 2640
Width = 10695
End
Begin VB.TextBox Text29
BackColor = &H00FFC0FF&
Height = 300
Left = 9000
TabIndex = 90
Top = 2280
Width = 2655
End
Begin VB.TextBox Text28
BackColor = &H00FFC0FF&
Height = 300
Left = 5640
TabIndex = 88
Top = 2280
Width = 2295
End
Begin VB.ComboBox Combo14
BackColor = &H00FFC0FF&
Height = 300
ItemData = "frm_CZRK_EDIT.frx":0160
Left = 3000
List = "frm_CZRK_EDIT.frx":016D
TabIndex = 86
Text = "团员"
Top = 2280
Width = 2055
End
Begin VB.ComboBox Combo13
BackColor = &H00FFC0FF&
Height = 300
ItemData = "frm_CZRK_EDIT.frx":0187
Left = 960
List = "frm_CZRK_EDIT.frx":01A0
TabIndex = 84
Text = "无"
Top = 2280
Width = 1095
End
Begin VB.ComboBox Combo12
BackColor = &H00FFC0FF&
Height = 300
ItemData = "frm_CZRK_EDIT.frx":01D4
Left = 10560
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -