?? 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 + -