📄 frm_jhsy_edit.frm
字号:
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1455
Left = 120
TabIndex = 3
Top = 4080
Width = 9135
Begin MSMask.MaskEdBox MaskEdBox4
DataField = "领取年月"
DataSource = "Adodc3"
Height = 300
Left = 6720
TabIndex = 99
Top = 600
Width = 2175
_ExtentX = 3836
_ExtentY = 529
_Version = 393216
PromptChar = "_"
End
Begin MSMask.MaskEdBox MaskEdBox3
DataField = "领取年月"
DataSource = "Adodc3"
Height = 300
Left = 3840
TabIndex = 98
Top = 600
Width = 1815
_ExtentX = 3201
_ExtentY = 529
_Version = 393216
PromptChar = "_"
End
Begin MSMask.MaskEdBox MaskEdBox2
DataField = "绝经年月"
DataSource = "Adodc3"
Height = 300
Left = 6720
TabIndex = 97
Top = 240
Width = 2175
_ExtentX = 3836
_ExtentY = 529
_Version = 393216
PromptChar = "_"
End
Begin MSMask.MaskEdBox MaskEdBox1
DataField = "节育年月"
DataSource = "Adodc3"
Height = 300
Left = 3840
TabIndex = 96
Top = 240
Width = 1815
_ExtentX = 3201
_ExtentY = 529
_Version = 393216
AllowPrompt = -1 'True
PromptChar = "_"
End
Begin VB.ComboBox Combo1
DataField = "独生证"
DataSource = "Adodc3"
Height = 300
ItemData = "frm_JHSY_EDIT.frx":0000
Left = 1320
List = "frm_JHSY_EDIT.frx":000A
TabIndex = 5
Top = 600
Width = 1575
End
Begin VB.TextBox Text25
DataField = "备注"
DataSource = "Adodc3"
Height = 375
Left = 1320
TabIndex = 4
Text = "Text25"
Top = 960
Width = 7575
End
Begin MSComCtl2.DTPicker DTPicker4
DataField = "结婚年月"
DataSource = "Adodc3"
Height = 300
Left = 1320
TabIndex = 6
Top = 240
Width = 1575
_ExtentX = 2778
_ExtentY = 529
_Version = 393216
Format = 49020929
CurrentDate = 38163
End
Begin VB.Label Label38
BackStyle = 0 'Transparent
Caption = "婚育信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Left = 130
TabIndex = 73
Top = 0
Width = 855
End
Begin VB.Label Label26
BackStyle = 0 'Transparent
Caption = "结婚年月"
Height = 255
Left = 240
TabIndex = 13
Top = 360
Width = 1455
End
Begin VB.Label Label27
BackStyle = 0 'Transparent
Caption = "节育年月"
Height = 255
Left = 3120
TabIndex = 12
Top = 360
Width = 735
End
Begin VB.Label Label28
BackStyle = 0 'Transparent
Caption = "绝经年月"
Height = 255
Left = 5880
TabIndex = 11
Top = 360
Width = 735
End
Begin VB.Label Label29
BackStyle = 0 'Transparent
Caption = "独生证领取情况"
Height = 375
Left = 240
TabIndex = 10
Top = 600
Width = 855
End
Begin VB.Label Label30
BackStyle = 0 'Transparent
Caption = "领取年月"
Height = 255
Left = 3120
TabIndex = 9
Top = 720
Width = 855
End
Begin VB.Label Label31
BackStyle = 0 'Transparent
Caption = "注销年月"
Height = 255
Left = 5880
TabIndex = 8
Top = 720
Width = 855
End
Begin VB.Label Label32
BackStyle = 0 'Transparent
Caption = "备注"
Height = 255
Left = 240
TabIndex = 7
Top = 1080
Width = 615
End
End
Begin VB.TextBox Text26
DataField = "育妇编码"
DataSource = "Adodc1"
Height = 300
Left = 2520
Locked = -1 'True
TabIndex = 2
Text = "Text26"
Top = 0
Width = 1695
End
Begin VB.ComboBox Combo2
DataField = "建卡人"
DataSource = "Adodc1"
Height = 300
Left = 5160
TabIndex = 0
Text = "Combo2"
Top = 0
Width = 1455
End
Begin MSComCtl2.DTPicker DTPicker9
DataField = "建卡日期"
DataSource = "Adodc1"
Height = 300
Left = 7800
TabIndex = 1
Top = 0
Width = 1335
_ExtentX = 2355
_ExtentY = 529
_Version = 393216
Format = 49020929
CurrentDate = 38163
End
Begin TabDlg.SSTab SSTab1
Height = 1935
Left = 120
TabIndex = 75
Top = 5640
Width = 9255
_ExtentX = 16325
_ExtentY = 3413
_Version = 393216
Tabs = 5
TabsPerRow = 5
TabHeight = 520
TabMaxWidth = 2222
BackColor = 12632256
ForeColor = 32768
TabCaption(0) = "生育史"
TabPicture(0) = "frm_JHSY_EDIT.frx":0024
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "DataGrid5"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Cmd_save(0)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Cmd_del(0)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Cmd_add(0)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).ControlCount= 4
TabCaption(1) = "避孕史"
TabPicture(1) = "frm_JHSY_EDIT.frx":0040
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Adodc8"
Tab(1).Control(1)= "Adodc7"
Tab(1).Control(2)= "Adodc4"
Tab(1).Control(3)= "Adodc3"
Tab(1).Control(4)= "Adodc6"
Tab(1).Control(5)= "Adodc5"
Tab(1).Control(6)= "Adodc2"
Tab(1).Control(7)= "DataGrid2"
Tab(1).Control(8)= "Cmd_save1(1)"
Tab(1).Control(9)= "Cmd_del1(1)"
Tab(1).Control(10)= "Cmd_add1(1)"
Tab(1).ControlCount= 11
TabCaption(2) = "奖罚情况"
TabPicture(2) = "frm_JHSY_EDIT.frx":005C
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "DataGrid3"
Tab(2).Control(1)= "Cmd_save2(2)"
Tab(2).Control(2)= "Cmd_del2(2)"
Tab(2).Control(3)= "Cmd_add2(2)"
Tab(2).ControlCount= 4
TabCaption(3) = "附加"
TabPicture(3) = "frm_JHSY_EDIT.frx":0078
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "DataGrid4"
Tab(3).Control(1)= "Cmd_save3(3)"
Tab(3).Control(2)= "Cmd_del3(3)"
Tab(3).Control(3)= "Cmd_add3(3)"
Tab(3).ControlCount= 4
TabCaption(4) = "记事"
TabPicture(4) = "frm_JHSY_EDIT.frx":0094
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "Cmd_add4(4)"
Tab(4).Control(1)= "Cmd_del4(4)"
Tab(4).Control(2)= "Cmd_save4(4)"
Tab(4).Control(3)= "Adodc1"
Tab(4).Control(4)= "DataGrid1"
Tab(4).ControlCount= 5
Begin VB.CommandButton Cmd_add
BackColor = &H00FFC0C0&
Caption = "增加"
Height = 300
Index = 0
Left = 6600
Style = 1 'Graphical
TabIndex = 90
Top = 0
Width = 855
End
Begin VB.CommandButton Cmd_del
BackColor = &H00FFC0C0&
Caption = "删除"
Height = 300
Index = 0
Left = 7320
Style = 1 'Graphical
TabIndex = 89
Top = 0
Width = 855
End
Begin VB.CommandButton Cmd_save
BackColor = &H00FFC0C0&
Caption = "保存"
Height = 300
Index = 0
Left = 8160
Style = 1 'Graphical
TabIndex = 88
Top = 0
Width = 855
End
Begin VB.CommandButton Cmd_add1
BackColor = &H00FFC0C0&
Caption = "增加"
Height = 300
Index = 1
Left = -68520
Style = 1 'Graphical
TabIndex = 87
Top = 0
Width = 855
End
Begin VB.CommandButton Cmd_del1
BackColor = &H00FFC0C0&
Caption = "删除"
Height = 300
Index = 1
Left = -67680
Style = 1 'Graphical
TabIndex = 86
Top = 0
Width = 855
End
Begin VB.CommandButton Cmd_save1
BackColor = &H00FFC0C0&
Caption = "保存"
Height = 300
Index = 1
Left = -66840
Style = 1 'Graphical
TabIndex = 85
Top = 0
Width = 855
End
Begin VB.CommandButton Cmd_add2
BackColor = &H00FFC0C0&
Caption = "增加"
Height = 300
Index = 2
Left = -68520
Style = 1 'Graphical
TabIndex = 84
Top = 0
Width = 855
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -