📄 frmoptions.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "msdatlst.ocx"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDatGrd.ocx"
Begin VB.Form frmOptions
BorderStyle = 3 'Fixed Dialog
Caption = "选项"
ClientHeight = 5745
ClientLeft = 45
ClientTop = 330
ClientWidth = 9060
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5745
ScaleWidth = 9060
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Tag = "选项"
Begin TabDlg.SSTab SSTab2
Height = 5055
Left = 120
TabIndex = 10
Top = 120
Width = 8835
_ExtentX = 15584
_ExtentY = 8916
_Version = 393216
Style = 1
Tabs = 4
TabsPerRow = 4
TabHeight = 520
TabCaption(0) = "保存位置"
TabPicture(0) = "frmOptions.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "重要日子"
TabPicture(1) = "frmOptions.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "DataGrid1"
Tab(1).ControlCount= 1
TabCaption(2) = "个人档案"
TabPicture(2) = "frmOptions.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame4"
Tab(2).ControlCount= 1
TabCaption(3) = "自动存档选择"
TabPicture(3) = "frmOptions.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Frame3"
Tab(3).Control(1)= "Frame2"
Tab(3).ControlCount= 2
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "frmOptions.frx":0070
Height = 4335
Left = -74880
TabIndex = 85
Top = 480
Width = 8535
_ExtentX = 15055
_ExtentY = 7646
_Version = 393216
BackColor = -2147483624
ForeColor = 16711680
HeadLines = 1
RowHeight = 17
FormatLocked = -1 'True
AllowAddNew = -1 'True
AllowDelete = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DataMember = "重要信息表"
ColumnCount = 4
BeginProperty Column00
DataField = "重要信息编号"
Caption = "重要信息编号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = "类别"
Caption = "类别"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "日期"
Caption = "日期"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = "yyyy""年""M""月""d""日"""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "说明"
Caption = "说明"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
AllowRowSizing = -1 'True
AllowSizing = -1 'True
BeginProperty Column00
Locked = -1 'True
Object.Visible = 0 'False
ColumnWidth = 1154.835
EndProperty
BeginProperty Column01
ColumnWidth = 2085.166
EndProperty
BeginProperty Column02
ColumnWidth = 2085.166
EndProperty
BeginProperty Column03
ColumnWidth = 4020.095
EndProperty
EndProperty
End
Begin VB.Frame Frame4
BackColor = &H00C0C0C0&
Caption = "[个人档案]"
Height = 4455
Left = -74820
TabIndex = 56
Top = 420
Width = 8475
Begin VB.TextBox txt职务
DataField = "职务"
DataMember = "个人信息表"
DataSource = "DEDocuments"
Height = 285
Left = 6000
TabIndex = 70
Top = 240
Width = 2175
End
Begin VB.TextBox txt护照号码
DataField = "护照号码"
DataMember = "个人信息表"
DataSource = "DEDocuments"
Height = 285
Left = 4380
TabIndex = 69
Top = 915
Width = 3795
End
Begin VB.TextBox txt主页
DataField = "主页"
DataMember = "个人信息表"
DataSource = "DEDocuments"
Height = 285
Left = 1200
TabIndex = 68
Top = 3930
Width = 6975
End
Begin VB.TextBox txt传真
DataField = "传真"
DataMember = "个人信息表"
DataSource = "DEDocuments"
Height = 285
Left = 4500
TabIndex = 67
Top = 3480
Width = 3675
End
Begin VB.TextBox txt邮政编码
DataField = "邮政编码"
DataMember = "个人信息表"
DataSource = "DEDocuments"
Height = 285
Left = 1200
TabIndex = 66
Top = 3525
Width = 1935
End
Begin VB.TextBox txt电子邮件
DataField = "电子邮件"
DataMember = "个人信息表"
DataSource = "DEDocuments"
Height = 285
Left = 1200
TabIndex = 65
Top = 3030
Width = 6975
End
Begin VB.TextBox txt办公电话
DataField = "办公电话"
DataMember = "个人信息表"
DataSource = "DEDocuments"
Height = 285
Left = 4380
TabIndex = 64
Top = 1650
Width = 3795
End
Begin VB.TextBox txt电话
DataField = "电话"
DataMember = "个人信息表"
DataSource = "DEDocuments"
Height = 285
Left = 4380
TabIndex = 63
Top = 1275
Width = 3795
End
Begin VB.TextBox txt住址
DataField = "住址"
DataMember = "个人信息表"
DataSource = "DEDocuments"
Height = 945
Left = 1200
TabIndex = 62
Top = 1950
Width = 6975
End
Begin VB.TextBox txt信用卡号
DataField = "信用卡号"
DataMember = "个人信息表"
DataSource = "DEDocuments"
Height = 285
Left = 1200
TabIndex = 61
Top = 1620
Width = 2115
End
Begin VB.TextBox txt驾驶照号
DataField = "驾驶照号"
DataMember = "个人信息表"
DataSource = "DEDocuments"
Height = 285
Left = 1200
TabIndex = 60
Top = 1305
Width = 2115
End
Begin VB.TextBox txt身份证号
DataField = "身份证号"
DataMember = "个人信息表"
DataSource = "DEDocuments"
Height = 285
Left = 1200
TabIndex = 59
Top = 945
Width = 2115
End
Begin VB.TextBox txt您的单位
DataField = "您的单位"
DataMember = "个人信息表"
DataSource = "DEDocuments"
Height = 285
Left = 1200
TabIndex = 58
Top = 585
Width = 6975
End
Begin VB.TextBox txt您的名字
DataField = "您的名字"
DataMember = "个人信息表"
DataSource = "DEDocuments"
Height = 285
Left = 1200
TabIndex = 57
Top = 255
Width = 3435
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "职务:"
Height = 255
Index = 13
Left = 4290
TabIndex = 84
Top = 285
Width = 1815
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "护照号码:"
Height = 255
Index = 12
Left = 2625
TabIndex = 83
Top = 960
Width = 1815
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "主页:"
Height = 255
Index = 11
Left = 180
TabIndex = 82
Top = 3975
Width = 975
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "传真:"
Height = 255
Index = 10
Left = 3420
TabIndex = 81
Top = 3540
Width = 975
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "邮政编码:"
Height = 255
Index = 9
Left = 60
TabIndex = 80
Top = 3570
Width = 975
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "电子邮件:"
Height = 255
Index = 8
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -