📄 formsub.frm
字号:
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Label10
Height = 375
Left = 5280
TabIndex = 12
Top = 4320
Width = 1695
Caption = "备注："
Size = "2990;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Label9
Height = 375
Left = 5280
TabIndex = 11
Top = 3000
Width = 1695
Caption = "存放地点："
Size = "2990;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Label8
Height = 375
Left = 5280
TabIndex = 10
Top = 3660
Width = 1695
Caption = "保管期限："
Size = "2990;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Label7
Height = 375
Left = 240
TabIndex = 9
Top = 3660
Width = 1695
Caption = "保密等级："
Size = "2990;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Label6
Height = 375
Left = 5280
TabIndex = 8
Top = 1020
Width = 1695
Caption = "案卷页数："
Size = "2990;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Label5
Height = 375
Left = 5280
TabIndex = 7
Top = 1680
Width = 1695
Caption = "案卷标题的主题词："
Size = "2990;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Label4
Height = 375
Left = 240
TabIndex = 6
Top = 3000
Width = 1695
Caption = "课题负责人："
Size = "2990;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Label3
Height = 375
Left = 240
TabIndex = 5
Top = 2340
Width = 1695
Caption = "立卷单位："
Size = "2990;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Label2
Height = 375
Left = 240
TabIndex = 4
Top = 1680
Width = 1695
Caption = "案卷标题："
Size = "2990;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Label1
Height = 375
Left = 240
TabIndex = 3
Top = 360
Width = 1695
Caption = "建档时间："
Size = "2990;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
End
Begin VB.Image Image1
Height = 480
Left = 120
Picture = "Formsub.frx":050A
Top = 7680
Width = 480
End
Begin MSForms.CommandButton CommandButton6
Height = 495
Left = 8760
TabIndex = 1
Top = 7680
Width = 1575
BackColor = 16777152
Caption = "取消"
Size = "2778;873"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton CommandButton2
Height = 495
Left = 6900
TabIndex = 0
Top = 7680
Width = 1575
BackColor = 16777152
Caption = "确定"
Size = "2778;873"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
Attribute VB_Name = "Formsub"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub CommandButton2_Click()
'''''''''''''''''''''''''''''''''''''''''''''''
If InStr(Me.MaskEdBox1.Text, "?") = 0 Then
Else
MsgBox "请准确输入时间！", , "注意："
GoTo e1:
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''
If Trim(TextBox3.Text) <> "" Then
Else
MsgBox "请输入档案号！", , "注意："
GoTo e1:
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''
If Trim(TextBox5.Text) <> "" Then
Else
MsgBox "请输入案卷标题！", , "注意："
GoTo e1:
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''
If Trim(TextBox6.Text) <> "" Then
Else
MsgBox "请输入课题负责人！", , "注意："
GoTo e1:
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''
If Trim(TextBox4.Text) <> "" Then
Else
MsgBox "请输入案卷顺序号！", , "注意："
GoTo e1:
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''
If Trim(TextBox1.Text) <> "" Then
Else
MsgBox "请输入案卷页数！", , "注意："
GoTo e1:
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''
If Trim(TextBox7.Text) <> "" Then
Else
MsgBox "请输入案卷标题的主题词！", , "注意："
GoTo e1:
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''
If Trim(TextBox2.Text) <> "" Then
Else
MsgBox "请输入案卷内容简介！", , "注意："
GoTo e1:
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''
Select Case biaoji
Case 0
Formlist.Adodc1.Recordset.AddNew
Case 1
End Select
Formlist.Adodc1.Recordset("归档日期") = Me.MaskEdBox1.Text
Formlist.Adodc1.Recordset("案卷标题") = Me.TextBox5.Text
Formlist.Adodc1.Recordset("立卷单位") = Me.DataCombo2.Text
Formlist.Adodc1.Recordset("课题负责人") = Me.TextBox6.Text
Formlist.Adodc1.Recordset("案卷标题的主题词") = Me.TextBox7.Text
Formlist.Adodc1.Recordset("案卷页数") = Me.TextBox1.Text
Formlist.Adodc1.Recordset("密级") = Me.DataCombo3.Text
Formlist.Adodc1.Recordset("保管期限") = Me.DataCombo4.Text
Formlist.Adodc1.Recordset("存放地点") = Me.DataCombo5.Text
Formlist.Adodc1.Recordset("备注") = Me.TextBox8.Text
Formlist.Adodc1.Recordset("案卷内容简介") = Me.TextBox2.Text
Formlist.Adodc1.Recordset("档案类型") = Me.DataCombo1.Text
Formlist.Adodc1.Recordset("案卷顺序号") = Me.TextBox4.Text
Formlist.Adodc1.Recordset("档案号") = Me.TextBox3.Text
Formlist.Adodc1.Recordset.UpdateBatch adAffectAll
Formlist.Adodc1.Refresh
Me.Hide
If Formlist.Adodc1.Recordset.RecordCount = 0 Then
Formlist.CommandButton2.Enabled = False
Formlist.CommandButton3.Enabled = False
Formlist.CommandButton4.Enabled = False
Formlist.CommandButton5.Enabled = False
Else
Formlist.CommandButton2.Enabled = True
Formlist.CommandButton3.Enabled = True
Formlist.CommandButton4.Enabled = True
Formlist.CommandButton5.Enabled = True
End If
Formlist.Adodc1.RecordSource = "select * from [档案] " + tiaojian
Formlist.Adodc1.Refresh
Formlist.Show
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
e1:
End Sub
Private Sub CommandButton6_Click()
Me.Hide
Formlist.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
Formlist.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -