📄 frmmodifyg.frm
字号:
BoundColumn = "ZrID"
Text = ""
End
Begin ComCtl2.UpDown udPage
Height = 324
Left = 11160
TabIndex = 29
Top = 2340
Width = 276
_ExtentX = 487
_ExtentY = 572
_Version = 327681
AutoBuddy = -1 'True
OrigLeft = 11160
OrigTop = 2340
OrigRight = 11436
OrigBottom = 2712
Max = 9999
Wrap = -1 'True
Enabled = 0 'False
End
Begin ComCtl2.UpDown udPaper
Height = 324
Left = 11160
TabIndex = 26
Top = 1860
Width = 276
_ExtentX = 487
_ExtentY = 572
_Version = 327681
AutoBuddy = -1 'True
OrigLeft = 11160
OrigTop = 1860
OrigRight = 11436
OrigBottom = 2124
Max = 9999
Wrap = -1 'True
Enabled = 0 'False
End
Begin ComCtl2.UpDown udDate
Height = 324
Left = 10200
TabIndex = 11
Top = 840
Width = 276
_ExtentX = 487
_ExtentY = 572
_Version = 327681
AutoBuddy = -1 'True
BuddyControl = "Text4"
BuddyDispid = 196617
OrigLeft = 9120
OrigTop = 720
OrigRight = 9396
OrigBottom = 1092
Enabled = 0 'False
End
Begin MSDataListLib.DataCombo dcZTC
Bindings = "frmModifyG.frx":00B0
Height = 348
Index = 0
Left = 3600
TabIndex = 33
ToolTipText = "第一主题词"
Top = 3840
Width = 2652
_ExtentX = 4678
_ExtentY = 614
_Version = 393216
Locked = -1 'True
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
Begin MSDataListLib.DataCombo dcZTC
Bindings = "frmModifyG.frx":00C5
Height = 348
Index = 1
Left = 6360
TabIndex = 34
ToolTipText = "第二主题词"
Top = 3840
Width = 2652
_ExtentX = 4678
_ExtentY = 614
_Version = 393216
Locked = -1 'True
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
Begin MSDataListLib.DataCombo dcZTC
Bindings = "frmModifyG.frx":00DA
Height = 348
Index = 2
Left = 9120
TabIndex = 35
ToolTipText = "第三主题词"
Top = 3840
Width = 2652
_ExtentX = 4678
_ExtentY = 614
_Version = 393216
Locked = -1 'True
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
Begin MSDataListLib.DataCombo dcZTC
Bindings = "frmModifyG.frx":00EF
Height = 348
Index = 3
Left = 3600
TabIndex = 36
ToolTipText = "第四主题词"
Top = 4320
Width = 2652
_ExtentX = 4678
_ExtentY = 614
_Version = 393216
Locked = -1 'True
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
Begin MSDataListLib.DataCombo dcZTC
Bindings = "frmModifyG.frx":0104
Height = 348
Index = 4
Left = 6360
TabIndex = 37
ToolTipText = "第五主题词"
Top = 4320
Width = 2652
_ExtentX = 4678
_ExtentY = 614
_Version = 393216
Locked = -1 'True
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "全宗号"
Height = 216
Index = 0
Left = 2760
TabIndex = 1
Top = 420
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "形成日期"
Height = 216
Index = 4
Left = 7920
TabIndex = 9
Top = 900
Width = 864
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "文件编号"
Height = 216
Index = 3
Left = 2760
TabIndex = 7
Top = 900
Width = 864
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "档 号"
Height = 216
Index = 2
Left = 7920
TabIndex = 5
Top = 420
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "目录号"
Height = 216
Index = 1
Left = 5040
TabIndex = 3
Top = 420
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "责任者"
Height = 216
Index = 5
Left = 2760
TabIndex = 12
Top = 1440
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "份数"
Height = 216
Index = 10
Left = 9840
TabIndex = 24
Top = 1896
Width = 432
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "页数"
Height = 216
Index = 11
Left = 9840
TabIndex = 27
Top = 2376
Width = 432
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "保管期限"
Height = 216
Index = 6
Left = 7560
TabIndex = 16
Top = 1440
Width = 864
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "归文密级"
Height = 216
Index = 7
Left = 7560
TabIndex = 18
Top = 1920
Width = 864
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "存档情况"
Height = 216
Index = 8
Left = 7560
TabIndex = 20
Top = 2400
Width = 864
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "规格"
Height = 216
Index = 9
Left = 9840
TabIndex = 22
Top = 1440
Width = 432
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "正题名"
Height = 216
Index = 12
Left = 2760
TabIndex = 30
Top = 2880
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "主题词"
Height = 216
Index = 13
Left = 2760
TabIndex = 32
Top = 3900
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "摘 要"
Height = 216
Index = 14
Left = 2760
TabIndex = 38
Top = 4920
Width = 648
End
End
Attribute VB_Name = "frmModifyG"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim adoCon As ADODB.Connection
Dim adoRst, adoZrRst, adoZtcRst As ADODB.Recordset
Dim ZZID(8) As Integer
Private Function ConvertNull(para_Value As Variant) As Variant
If IsNull(para_Value) = True Then
ConvertNull = ""
Else
ConvertNull = para_Value
End If
End Function
Private Sub cmdDelete_Click()
Dim NextIndex As Integer
NextIndex = ListDG.ListIndex
With adoRst
.Delete adAffectCurrent
.MoveNext
If .EOF Then
NextIndex = NextIndex - 1
If NextIndex < 0 Then
frmMain.FileManage = 4
MsgBox "符合要求的档案不存在，按[确定]键后重新过滤数据。"
Call cmdRefilt_Click
Exit Sub
End If
.MoveLast
End If
End With
ListDG.RemoveItem ListDG.ListIndex
ListDG.Text = ListDG.List(NextIndex)
Call ListRecord
End Sub
Private Sub cmdModify_Click()
Call SetEnable(True)
Text0.SetFocus
End Sub
Private Sub cmdRefilt_Click()
frmModifyG.Hide
Unload frmModifyG
Load frmFilterG
frmFilterG.Show
End Sub
Private Sub CmdReturn_Click()
adoRst.CancelUpdate
adoRst.Close
frmModifyG.Hide
Unload frmModifyG
End Sub
Private Sub ListRecord()
Dim Zr, Ztc, i As Integer
With adoRst
Text0.Text = ConvertNull(.Fields!全宗号)
Text1.Text = ConvertNull(.Fields!目录号)
Text2.Text = ConvertNull(.Fields!档号)
Text3.Text = ConvertNull(.Fields!文件编号)
Text4.Text = ConvertNull(.Fields!形成日期)
Text5.Text = ConvertNull(LTrim(.Fields!规格))
Text6.Text = ConvertNull(.Fields!份数)
Text7.Text = ConvertNull(.Fields!页数)
Text8.Text = ConvertNull(.Fields!正题名)
Text9.Text = ConvertNull(.Fields!摘要)
Combo1.Text = ConvertNull(.Fields!保管期限)
Combo2.Text = ConvertNull(.Fields!密级)
Combo3.Text = ConvertNull(.Fields!存档情况)
End With
With adoZrRst
Zr = adoRst.Fields!责任者1
.MoveFirst
.Find "ZrID=" & Zr
If .EOF Or .BOF Then
dcZR(0).Text = ""
Else
dcZR(0).Text = .Fields!Zr
End If
Zr = adoRst.Fields!责任者2
.MoveFirst
.Find "ZrID=" & Zr
If .EOF Or .BOF Then
dcZR(1).Text = ""
Else
dcZR(1).Text = .Fields!Zr
End If
Zr = adoRst.Fields!责任者3
.MoveFirst
.Find "ZrID=" & Zr
If .EOF Or .BOF Then
dcZR(2).Text = ""
Else
dcZR(2).Text = .Fields!Zr
End If
End With
With adoZtcRst
Ztc = adoRst.Fields!主题词1
.MoveFirst
.Find "ZtcID=" & Ztc
If .EOF Or .BOF Then
dcZTC(0).Text = ""
Else
dcZTC(0).Text = .Fields!Ztc
End If
Ztc = adoRst.Fields!主题词2
.MoveFirst
.Find "ZtcID=" & Ztc
If .EOF Or .BOF Then
dcZTC(1).Text = ""
Else
dcZTC(1).Text = .Fields!Ztc
End If
Ztc = adoRst.Fields!主题词3
.MoveFirst
.Find "ZtcID=" & Ztc
If .EOF Or .BOF Then
dcZTC(2).Text = ""
Else
dcZTC(2).Text = .Fields!Ztc
End If
Ztc = adoRst.Fields!主题词4
.MoveFirst
.Find "ZtcID=" & Ztc
If .EOF Or .BOF Then
dcZTC(3).Text = ""
Else
dcZTC(3).Text = .Fields!Ztc
End If
Ztc = adoRst.Fields!主题词5
.MoveFirst
.Find "ZtcID=" & Ztc
If .EOF Or .BOF Then
dcZTC(4).Text = ""
Else
dcZTC(4).Text = .Fields!Ztc
End If
End With
For i = 0 To 2
ZZID(i) = Val(dcZR(i).BoundText)
ZZID(i + 3) = Val(dcZTC(i).BoundText)
Next
ZZID(6) = Val(dcZTC(3).BoundText)
ZZID(7) = Val(dcZTC(4).BoundText)
End Sub
Private Sub cmdRevert_Click()
Call ListRecord
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -