📄 frmoptions.frm
字号:
Width = 1335
End
Begin VB.TextBox Text13
DataField = "重要程度"
DataMember = "自动归档表"
DataSource = "DEDocuments"
Height = 315
Left = 5700
TabIndex = 18
Text = "Text13"
Top = 2400
Width = 1335
End
Begin VB.TextBox Text14
DataField = "完成日期"
DataMember = "自动归档表"
DataSource = "DEDocuments"
Height = 330
Left = 5700
TabIndex = 17
Text = "Text14"
Top = 240
Width = 2715
End
Begin MSDataListLib.DataCombo DataCombo1
Bindings = "frmOptions.frx":013E
Height = 330
Left = 2700
TabIndex = 25
Top = 1680
Width = 1455
_ExtentX = 2566
_ExtentY = 582
_Version = 393216
ListField = "项目名称"
Text = ""
Object.DataMember = "项目"
End
Begin VB.Label Label6
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "标题："
Height = 255
Left = 60
TabIndex = 46
Top = 300
Width = 1095
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "主题："
Height = 255
Left = 60
TabIndex = 45
Top = 660
Width = 1095
End
Begin VB.Label Label8
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "作者："
Height = 255
Left = 60
TabIndex = 44
Top = 1020
Width = 1095
End
Begin VB.Label Label9
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "单位："
Height = 255
Left = 60
TabIndex = 43
Top = 1380
Width = 1095
End
Begin VB.Label Label10
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "项目类别："
Height = 255
Left = 60
TabIndex = 42
Top = 1740
Width = 1095
End
Begin VB.Label Label11
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "关键词："
Height = 255
Left = 60
TabIndex = 41
Top = 2070
Width = 1095
End
Begin VB.Label Label12
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "内容简介："
Height = 255
Left = 60
TabIndex = 40
Top = 2430
Width = 1095
End
Begin VB.Label Label14
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "完成日期："
Height = 255
Left = 4500
TabIndex = 39
Top = 360
Width = 1095
End
Begin VB.Label Label15
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "版本号："
Height = 255
Left = 4500
TabIndex = 38
Top = 720
Width = 1095
End
Begin VB.Label Label16
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "语言："
Height = 255
Left = 4500
TabIndex = 37
Top = 1020
Width = 1095
End
Begin VB.Label Label17
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "编写目的："
Height = 255
Left = 4500
TabIndex = 36
Top = 1380
Width = 1095
End
Begin VB.Label Label19
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "使用频率："
Height = 255
Left = 4500
TabIndex = 35
Top = 2160
Width = 1095
End
Begin VB.Label Label20
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "重要程度："
Height = 255
Left = 4500
TabIndex = 34
Top = 2520
Width = 1095
End
End
Begin VB.Frame Frame1
BackColor = &H00C0C0C0&
Caption = "[文件选项]"
Height = 4515
Left = 120
TabIndex = 11
Top = 360
Width = 8535
Begin VB.TextBox Text1
Height = 315
Left = 1800
TabIndex = 12
Top = 420
Width = 6555
End
Begin VB.Label Label4
Caption = "Label4"
Height = 255
Left = 1860
TabIndex = 15
Top = 1200
Width = 3255
End
Begin VB.Label Label3
Caption = "上次的备份日期："
Height = 315
Left = 180
TabIndex = 14
Top = 1200
Width = 1515
End
Begin VB.Label Label2
Caption = "默认档案库位置："
Height = 315
Left = 180
TabIndex = 13
Top = 480
Width = 1515
End
End
End
Begin VB.PictureBox Picture1
Align = 2 'Align Bottom
Appearance = 0 'Flat
BackColor = &H80000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 435
Left = 0
ScaleHeight = 435
ScaleWidth = 9060
TabIndex = 6
Top = 5310
Width = 9060
Begin VB.CommandButton cmdApply
Caption = "应用(&A)"
Height = 375
Left = 7860
TabIndex = 9
Tag = "应用(&A)"
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消"
Height = 375
Left = 6300
TabIndex = 8
Tag = "取消"
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdOK
Caption = "确定"
Height = 375
Left = 4800
TabIndex = 7
Tag = "确定"
Top = 0
Width = 1095
End
End
Begin VB.PictureBox picOptions
BorderStyle = 0 'None
Height = 3780
Index = 3
Left = -20000
ScaleHeight = 3840.968
ScaleMode = 0 'User
ScaleWidth = 5745.64
TabIndex = 1
TabStop = 0 'False
Top = 480
Width = 5685
Begin VB.Frame fraSample4
Caption = "示例 4"
Height = 2022
Left = 505
TabIndex = 5
Tag = "示例 4"
Top = 502
Width = 2033
End
End
Begin VB.PictureBox picOptions
BorderStyle = 0 'None
Height = 3780
Index = 2
Left = -20000
ScaleHeight = 3840.968
ScaleMode = 0 'User
ScaleWidth = 5745.64
TabIndex = 3
TabStop = 0 'False
Top = 480
Width = 5685
Begin VB.Frame fraSample3
Caption = "示例 3"
Height = 2022
Left = 406
TabIndex = 4
Tag = "示例 3"
Top = 403
Width = 2033
End
End
Begin VB.PictureBox picOptions
BorderStyle = 0 'None
Height = 3780
Index = 1
Left = -20000
ScaleHeight = 3840.968
ScaleMode = 0 'User
ScaleWidth = 5745.64
TabIndex = 0
TabStop = 0 'False
Top = 480
Width = 5685
Begin VB.Frame fraSample2
Caption = "示例 2"
Height = 2022
Left = 307
TabIndex = 2
Tag = "示例 2"
Top = 305
Width = 2033
End
End
End
Attribute VB_Name = "frmOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdApply_Click()
DEDocuments.rs个人信息表.UpdateBatch adAffectAllChapters
DEDocuments.rs重要信息表.UpdateBatch adAffectAllChapters
If chkFolderExist Then
DEDocuments.rs自动归档表.UpdateBatch adAffectAllChapters
End If
SaveSetting "wlf", "DM", "path", Text1.Text
End Sub
Private Sub cmdCancel_Click()
DEDocuments.rs个人信息表.CancelBatch
DEDocuments.rs重要信息表.CancelBatch
DEDocuments.rs自动归档表.CancelBatch
Unload Me
End Sub
Private Sub cmdOK_Click()
DEDocuments.rs个人信息表.UpdateBatch adAffectAllChapters
DEDocuments.rs重要信息表.UpdateBatch adAffectAllChapters
SaveSetting "wlf", "DM", "path", Text1.Text
If chkFolderExist Then
DEDocuments.rs自动归档表.UpdateBatch adAffectAllChapters
Unload Me
End If
End Sub
Private Sub Form_Load()
Text1.Text = GetSetting("wlf", "DM", "path", Default:="")
Label4.Caption = GetSetting("wlf", "DM", "date", Default:="")
End Sub
Private Function chkFolderExist() As Boolean
Dim FSO As New Scripting.FileSystemObject
If Not FSO.FolderExists(Text16.Text) Then
MsgBox "文件夹不存在！", vbCritical, "错误！"
chkFolderExist = False
Else
chkFolderExist = True
End If
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -