📄 form_wenshu_wj.frm
字号:
Width = 720
End
Begin VB.Label Label26
BackStyle = 0 'Transparent
Caption = "是否公开"
Height = 285
Left = 7380
TabIndex = 54
Top = 5640
Width = 1065
End
Begin VB.Label Label25
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "机构(问题)"
Height = 180
Left = 660
TabIndex = 53
Top = 1710
Width = 900
End
Begin VB.Label Label24
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "盒号"
Height = 180
Left = 5220
TabIndex = 52
Top = 3630
Width = 360
End
Begin VB.Label Label23
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "箱号"
Height = 180
Left = 7530
TabIndex = 51
Top = 4800
Visible = 0 'False
Width = 360
End
Begin VB.Label Label22
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "保管期限号"
ForeColor = &H000000C0&
Height = 180
Left = 2595
TabIndex = 50
Top = 840
Width = 900
End
Begin VB.Label Label21
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "案卷号"
Height = 180
Left = 6240
TabIndex = 49
Top = 4830
Visible = 0 'False
Width = 540
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "类别号"
Height = 180
Left = 4860
TabIndex = 48
Top = 4830
Visible = 0 'False
Width = 540
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "全宗号"
Height = 180
Left = 7050
TabIndex = 47
Top = 810
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "终止时间"
Height = 180
Left = 4860
TabIndex = 46
Top = 3240
Width = 720
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "馆编件号"
Height = 180
Left = 4860
TabIndex = 45
Top = 4065
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "隶书"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 3090
TabIndex = 44
Top = 150
Width = 3690
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "室编件号"
ForeColor = &H000000C0&
Height = 180
Left = 4920
TabIndex = 43
Top = 810
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "题名"
ForeColor = &H000000C0&
Height = 180
Left = 1200
TabIndex = 42
Top = 2100
Width = 360
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "文件编号"
Height = 180
Left = 840
TabIndex = 41
Top = 3660
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密级"
Height = 180
Left = 1200
TabIndex = 40
Top = 4110
Width = 360
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "页数"
ForeColor = &H000000C0&
Height = 180
Left = 6090
TabIndex = 39
Top = 1680
Width = 360
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "保管期限"
Height = 180
Left = 8370
TabIndex = 38
Top = 3390
Visible = 0 'False
Width = 720
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "（第一）责任者"
ForeColor = &H000000C0&
Height = 180
Left = 300
TabIndex = 37
Top = 2850
Width = 1260
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "起始时间"
Height = 180
Left = 840
TabIndex = 36
Top = 3270
Width = 720
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备注"
Height = 180
Left = 1200
TabIndex = 35
Top = 5265
Width = 360
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "稿本"
Height = 180
Left = 1200
TabIndex = 34
Top = 4530
Width = 360
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "主题词"
Height = 180
Left = 1020
TabIndex = 33
Top = 4890
Width = 540
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "其它责任者"
Height = 180
Left = 4680
TabIndex = 32
Top = 2850
Width = 900
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "摘要项"
Height = 180
Left = 1020
TabIndex = 31
Top = 6030
Width = 540
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "电子文档号"
Height = 180
Left = 660
TabIndex = 30
Top = 5700
Width = 900
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "年度"
ForeColor = &H000000C0&
Height = 180
Left = 1200
TabIndex = 29
Top = 840
Width = 360
End
End
Attribute VB_Name = "form_WenShu_WJ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strfile As String
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Private Sub Combo2_Click()
Text17.text = Combo2.ListIndex + 1
If flag = "Insert" Then
Text1.text = getNextRefCode(Text6, Combo2.ListIndex, Text20)
Text21.text = getNextOfficeRefCode(Text6, Combo2.ListIndex, Text20)
End If
End Sub
Private Sub Combo2_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Private Sub Combo3_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Private Sub Command1_Click()
On Error GoTo e:
If DTPicker2.Value < DTPicker1.Value Then MsgBox "终止时间必须大于起始时间！", 48, "": Exit Sub
If Len(Text1.text) <> 4 Then
MsgBox "室编件号请补足4位!", 48, ""
Exit Sub
End If
If Text8.text = "0" Then
MsgBox "页数不能为0!", 48, ""
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -