?? 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 = "責(zé)任者"
Height = 216
Index = 5
Left = 2760
TabIndex = 12
Top = 1440
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "份數(shù)"
Height = 216
Index = 10
Left = 9840
TabIndex = 24
Top = 1896
Width = 432
End
Begin VB.Label LabelG
AutoSize = -1 'True
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 = "規(guī)格"
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 "符合要求的檔案不存在，按[確定]鍵后重新過濾數(shù)據(jù)。"
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!規(guī)格))
Text6.Text = ConvertNull(.Fields!份數(shù))
Text7.Text = ConvertNull(.Fields!頁數(shù))
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!責(zé)任者1
.MoveFirst
.Find "ZrID=" & Zr
If .EOF Or .BOF Then
dcZR(0).Text = ""
Else
dcZR(0).Text = .Fields!Zr
End If
Zr = adoRst.Fields!責(zé)任者2
.MoveFirst
.Find "ZrID=" & Zr
If .EOF Or .BOF Then
dcZR(1).Text = ""
Else
dcZR(1).Text = .Fields!Zr
End If
Zr = adoRst.Fields!責(zé)任者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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -