📄 formsum.frm
字号:
VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form Formsum
BorderStyle = 3 'Fixed Dialog
Caption = "在此进行汇编工作"
ClientHeight = 4935
ClientLeft = 45
ClientTop = 330
ClientWidth = 6975
Icon = "Formsum.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
Picture = "Formsum.frx":0442
ScaleHeight = 4935
ScaleWidth = 6975
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MSForms.CommandButton CommandButton8
Height = 495
Left = 4920
TabIndex = 7
Top = 4080
Width = 1695
BackColor = 16777152
Caption = "返回"
Size = "2990;873"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton CommandButton1
Height = 495
Left = 240
TabIndex = 6
Top = 360
Width = 3015
BackColor = 16777152
Caption = "档案室库存档案目录汇编"
Size = "5318;873"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton CommandButton2
Height = 495
Left = 240
TabIndex = 5
Top = 1600
Width = 3015
BackColor = 16777152
Caption = "库存档案分类目录汇编"
Size = "5318;873"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton CommandButton3
Height = 495
Left = 240
TabIndex = 4
Top = 2840
Width = 3015
BackColor = 16777152
Caption = "案卷内容简介汇编"
Size = "5318;873"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton CommandButton4
Height = 495
Left = 240
TabIndex = 3
Top = 4080
Width = 3615
BackColor = 16777152
Caption = "按作者或课题负责人排列的案卷目录汇编"
Size = "6376;873"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton CommandButton5
Height = 495
Left = 3600
TabIndex = 2
Top = 360
Width = 3015
BackColor = 16777152
Caption = "相同保管期限的案卷目录汇编"
Size = "5318;873"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton CommandButton6
Height = 495
Left = 3600
TabIndex = 1
Top = 1600
Width = 3015
BackColor = 16777152
Caption = "相同密级的案卷目录汇编"
Size = "5318;873"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton CommandButton7
Height = 495
Left = 3600
TabIndex = 0
Top = 2840
Width = 3015
BackColor = 16777152
Caption = "具有相同主题词的案卷目录汇编"
Size = "5318;873"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
Attribute VB_Name = "Formsum"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''
'当选择“编研汇编”后弹出
''''''''''''''''''''''''''''''''''
Private Sub CommandButton1_Click()
On Error Resume Next
Formsumlist.Adodc2.RecordSource = "select 档案号 as 案卷号,存放地点 as 汇编依据 from [档案]"
Formsumlist.Adodc2.Refresh
If Formsumlist.Adodc2.Recordset.RecordCount = 0 Then
MsgBox "因无相关档案，还无法成册", , "注意："
Else
Formsumlist.Adodc2.Recordset.MoveFirst
Formsumlist.Adodc1.Refresh
If Formsumlist.Adodc1.Recordset.RecordCount = 0 Then
Else
Formsumlist.Adodc1.Recordset.MoveFirst
Do Until Formsumlist.Adodc1.Recordset.EOF
Formsumlist.Adodc1.Recordset.Delete
Formsumlist.Adodc1.Recordset.MoveNext
Loop
End If
Do Until Formsumlist.Adodc2.Recordset.EOF
Formsumlist.Adodc1.Recordset.AddNew
Formsumlist.Adodc1.Recordset![案卷号] = Formsumlist.Adodc2.Recordset![案卷号]
Formsumlist.Adodc1.Recordset![汇编依据] = Formsumlist.Adodc2.Recordset![汇编依据]
Formsumlist.Adodc1.Recordset.Update
Formsumlist.Adodc2.Recordset.MoveNext
Loop
Formsumlist.Adodc1.RecordSource = "select * from [汇编] " 'group by [汇编依据]
Formsumlist.Adodc1.Refresh
Formsumlist.MSHFlexGrid1.MergeCells = flexMergeRestrictColumns
Formsumlist.MSHFlexGrid1.MergeRow(2) = True
Formsumlist.MSHFlexGrid1.MergeRow(1) = True
Formsumlist.MSHFlexGrid1.MergeRow(3) = True
Formsumlist.MSHFlexGrid1.ColWidth(1) = 3000
Formsumlist.MSHFlexGrid1.ColWidth(2) = 6000
Formsumlist.MSHFlexGrid1.ColWidth(3) = 0
Me.Hide
Formsumlist.Show
End If
End Sub
Private Sub CommandButton2_Click()
Formsumlist.Adodc2.RecordSource = "select 档案号 as 案卷号,档案类型 as 汇编依据 from [档案]"
Formsumlist.Adodc2.Refresh
If Formsumlist.Adodc2.Recordset.RecordCount = 0 Then
MsgBox "因无相关档案，还无法成册", , "注意："
Else
Formsumlist.Adodc2.Recordset.MoveFirst
Formsumlist.Adodc1.Refresh
If Formsumlist.Adodc1.Recordset.RecordCount = 0 Then
Else
Formsumlist.Adodc1.Recordset.MoveFirst
Do Until Formsumlist.Adodc1.Recordset.EOF
Formsumlist.Adodc1.Recordset.Delete
Formsumlist.Adodc1.Recordset.MoveNext
Loop
End If
Do Until Formsumlist.Adodc2.Recordset.EOF
Formsumlist.Adodc1.Recordset.AddNew
Formsumlist.Adodc1.Recordset![案卷号] = Formsumlist.Adodc2.Recordset![案卷号]
Formsumlist.Adodc1.Recordset![汇编依据] = Formsumlist.Adodc2.Recordset![汇编依据]
Formsumlist.Adodc1.Recordset.Update
Formsumlist.Adodc2.Recordset.MoveNext
Loop
Formsumlist.Adodc1.RecordSource = "select * from [汇编] " 'group by [汇编依据]
Formsumlist.Adodc1.Refresh
Formsumlist.MSHFlexGrid1.MergeRow(2) = True
Formsumlist.MSHFlexGrid1.ColWidth(1) = 3000
Formsumlist.MSHFlexGrid1.ColWidth(2) = 6000
Formsumlist.MSHFlexGrid1.ColWidth(3) = 0
Me.Hide
Formsumlist.Show
End If
End Sub
Private Sub CommandButton3_Click()
Formsumlist.Adodc2.RecordSource = "select 档案号 as 案卷号,案卷内容简介 as 汇编依据 from [档案]"
Formsumlist.Adodc2.Refresh
If Formsumlist.Adodc2.Recordset.RecordCount = 0 Then
MsgBox "因无相关档案，还无法成册", , "注意："
Else
Formsumlist.Adodc2.Recordset.MoveFirst
Formsumlist.Adodc1.Refresh
If Formsumlist.Adodc1.Recordset.RecordCount = 0 Then
Else
Formsumlist.Adodc1.Recordset.MoveFirst
Do Until Formsumlist.Adodc1.Recordset.EOF
Formsumlist.Adodc1.Recordset.Delete
Formsumlist.Adodc1.Recordset.MoveNext
Loop
End If
Do Until Formsumlist.Adodc2.Recordset.EOF
Formsumlist.Adodc1.Recordset.AddNew
Formsumlist.Adodc1.Recordset![案卷号] = Formsumlist.Adodc2.Recordset![案卷号]
Formsumlist.Adodc1.Recordset![汇编依据] = Formsumlist.Adodc2.Recordset![汇编依据]
Formsumlist.Adodc1.Recordset.Update
Formsumlist.Adodc2.Recordset.MoveNext
Loop
Formsumlist.Adodc1.RecordSource = "select * from [汇编] " 'group by [汇编依据]
Formsumlist.Adodc1.Refresh
Formsumlist.MSHFlexGrid1.MergeRow(2) = True
Formsumlist.MSHFlexGrid1.ColWidth(1) = 3000
Formsumlist.MSHFlexGrid1.ColWidth(2) = 6000
Formsumlist.MSHFlexGrid1.ColWidth(3) = 0
Me.Hide
Formsumlist.Show
End If
End Sub
Private Sub CommandButton4_Click()
Formsumlist.Adodc2.RecordSource = "select 档案号 as 案卷号,课题负责人 as 汇编依据 from [档案]"
Formsumlist.Adodc2.Refresh
If Formsumlist.Adodc2.Recordset.RecordCount = 0 Then
MsgBox "因无相关档案，还无法成册", , "注意："
Else
Formsumlist.Adodc2.Recordset.MoveFirst
Formsumlist.Adodc1.Refresh
If Formsumlist.Adodc1.Recordset.RecordCount = 0 Then
Else
Formsumlist.Adodc1.Recordset.MoveFirst
Do Until Formsumlist.Adodc1.Recordset.EOF
Formsumlist.Adodc1.Recordset.Delete
Formsumlist.Adodc1.Recordset.MoveNext
Loop
End If
Do Until Formsumlist.Adodc2.Recordset.EOF
Formsumlist.Adodc1.Recordset.AddNew
Formsumlist.Adodc1.Recordset![案卷号] = Formsumlist.Adodc2.Recordset![案卷号]
Formsumlist.Adodc1.Recordset![汇编依据] = Formsumlist.Adodc2.Recordset![汇编依据]
Formsumlist.Adodc1.Recordset.Update
Formsumlist.Adodc2.Recordset.MoveNext
Loop
Formsumlist.Adodc1.RecordSource = "select * from [汇编] " 'group by [汇编依据]
Formsumlist.Adodc1.Refresh
Formsumlist.MSHFlexGrid1.MergeRow(2) = True
Formsumlist.MSHFlexGrid1.ColWidth(1) = 3000
Formsumlist.MSHFlexGrid1.ColWidth(2) = 6000
Formsumlist.MSHFlexGrid1.ColWidth(3) = 0
Me.Hide
Formsumlist.Show
End If
End Sub
Private Sub CommandButton5_Click()
Formsumlist.Adodc2.RecordSource = "select 档案号 as 案卷号,保管期限 as 汇编依据 from [档案]"
Formsumlist.Adodc2.Refresh
If Formsumlist.Adodc2.Recordset.RecordCount = 0 Then
MsgBox "因无相关档案，还无法成册", , "注意："
Else
Formsumlist.Adodc2.Recordset.MoveFirst
Formsumlist.Adodc1.Refresh
If Formsumlist.Adodc1.Recordset.RecordCount = 0 Then
Else
Formsumlist.Adodc1.Recordset.MoveFirst
Do Until Formsumlist.Adodc1.Recordset.EOF
Formsumlist.Adodc1.Recordset.Delete
Formsumlist.Adodc1.Recordset.MoveNext
Loop
End If
Do Until Formsumlist.Adodc2.Recordset.EOF
Formsumlist.Adodc1.Recordset.AddNew
Formsumlist.Adodc1.Recordset![案卷号] = Formsumlist.Adodc2.Recordset![案卷号]
Formsumlist.Adodc1.Recordset![汇编依据] = Formsumlist.Adodc2.Recordset![汇编依据]
Formsumlist.Adodc1.Recordset.Update
Formsumlist.Adodc2.Recordset.MoveNext
Loop
Formsumlist.Adodc1.RecordSource = "select * from [汇编] " 'group by [汇编依据]
Formsumlist.Adodc1.Refresh
Formsumlist.MSHFlexGrid1.MergeRow(2) = True
Formsumlist.MSHFlexGrid1.ColWidth(1) = 3000
Formsumlist.MSHFlexGrid1.ColWidth(2) = 6000
Formsumlist.MSHFlexGrid1.ColWidth(3) = 0
Me.Hide
Formsumlist.Show
End If
End Sub
Private Sub CommandButton6_Click()
Formsumlist.Adodc2.RecordSource = "select 档案号 as 案卷号,密级 as 汇编依据 from [档案]"
Formsumlist.Adodc2.Refresh
If Formsumlist.Adodc2.Recordset.RecordCount = 0 Then
MsgBox "因无相关档案，还无法成册", , "注意："
Else
Formsumlist.Adodc2.Recordset.MoveFirst
Formsumlist.Adodc1.Refresh
If Formsumlist.Adodc1.Recordset.RecordCount = 0 Then
Else
Formsumlist.Adodc1.Recordset.MoveFirst
Do Until Formsumlist.Adodc1.Recordset.EOF
Formsumlist.Adodc1.Recordset.Delete
Formsumlist.Adodc1.Recordset.MoveNext
Loop
End If
Do Until Formsumlist.Adodc2.Recordset.EOF
Formsumlist.Adodc1.Recordset.AddNew
Formsumlist.Adodc1.Recordset![案卷号] = Formsumlist.Adodc2.Recordset![案卷号]
Formsumlist.Adodc1.Recordset![汇编依据] = Formsumlist.Adodc2.Recordset![汇编依据]
Formsumlist.Adodc1.Recordset.Update
Formsumlist.Adodc2.Recordset.MoveNext
Loop
Formsumlist.Adodc1.RecordSource = "select * from [汇编] " 'group by [汇编依据]
Formsumlist.Adodc1.Refresh
Formsumlist.MSHFlexGrid1.MergeRow(2) = True
Formsumlist.MSHFlexGrid1.ColWidth(1) = 3000
Formsumlist.MSHFlexGrid1.ColWidth(2) = 6000
Formsumlist.MSHFlexGrid1.ColWidth(3) = 0
Me.Hide
Formsumlist.Show
End If
End Sub
Private Sub CommandButton7_Click()
Formsumlist.Adodc2.RecordSource = "select 档案号 as 案卷号,案卷标题的主题词 as 汇编依据 from [档案]"
Formsumlist.Adodc2.Refresh
If Formsumlist.Adodc2.Recordset.RecordCount = 0 Then
MsgBox "因无相关档案，还无法成册", , "注意："
Else
Formsumlist.Adodc2.Recordset.MoveFirst
Formsumlist.Adodc1.Refresh
If Formsumlist.Adodc1.Recordset.RecordCount = 0 Then
Else
Formsumlist.Adodc1.Recordset.MoveFirst
Do Until Formsumlist.Adodc1.Recordset.EOF
Formsumlist.Adodc1.Recordset.Delete
Formsumlist.Adodc1.Recordset.MoveNext
Loop
End If
Do Until Formsumlist.Adodc2.Recordset.EOF
Formsumlist.Adodc1.Recordset.AddNew
Formsumlist.Adodc1.Recordset![案卷号] = Formsumlist.Adodc2.Recordset![案卷号]
Formsumlist.Adodc1.Recordset![汇编依据] = Formsumlist.Adodc2.Recordset![汇编依据]
Formsumlist.Adodc1.Recordset.Update
Formsumlist.Adodc2.Recordset.MoveNext
Loop
Formsumlist.Adodc1.RecordSource = "select * from [汇编] " 'group by [汇编依据]
Formsumlist.Adodc1.Refresh
Formsumlist.MSHFlexGrid1.MergeRow(2) = True
Formsumlist.MSHFlexGrid1.ColWidth(1) = 3000
Formsumlist.MSHFlexGrid1.ColWidth(2) = 6000
Formsumlist.MSHFlexGrid1.ColWidth(3) = 0
Me.Hide
Formsumlist.Show
End If
End Sub
Private Sub CommandButton8_Click()
Me.Hide
Formmain.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
Me.Hide
Formmain.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -