📄 frminputg.frm
字号:
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
Begin MSDataListLib.DataCombo dcZTC
Bindings = "frmInputG.frx":00AC
Height = 348
Index = 1
Left = 4200
TabIndex = 30
ToolTipText = "第二主题词"
Top = 4080
Width = 2652
_ExtentX = 4678
_ExtentY = 614
_Version = 393216
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
Begin MSDataListLib.DataCombo dcZTC
Bindings = "frmInputG.frx":00C1
Height = 348
Index = 2
Left = 7200
TabIndex = 31
ToolTipText = "第三主题词"
Top = 4080
Width = 2652
_ExtentX = 4678
_ExtentY = 614
_Version = 393216
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
Begin MSDataListLib.DataCombo dcZTC
Bindings = "frmInputG.frx":00D6
Height = 348
Index = 3
Left = 1200
TabIndex = 32
ToolTipText = "第四主题词"
Top = 4560
Width = 2652
_ExtentX = 4678
_ExtentY = 614
_Version = 393216
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
Begin MSDataListLib.DataCombo dcZTC
Bindings = "frmInputG.frx":00EB
Height = 348
Index = 4
Left = 4200
TabIndex = 33
ToolTipText = "第五主题词"
Top = 4560
Width = 2652
_ExtentX = 4678
_ExtentY = 614
_Version = 393216
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
Begin MSDataListLib.DataCombo dcZR
Bindings = "frmInputG.frx":0100
Height = 348
Index = 2
Left = 1200
TabIndex = 13
ToolTipText = "第三责任者"
Top = 2400
Width = 3732
_ExtentX = 6583
_ExtentY = 614
_Version = 393216
ListField = "Zr"
BoundColumn = "ZrID"
Text = ""
End
Begin ComCtl2.UpDown udDate
Height = 324
Left = 8760
TabIndex = 46
Top = 720
Width = 276
_ExtentX = 423
_ExtentY = 572
_Version = 327681
AutoBuddy = -1 'True
BuddyControl = "Text4"
BuddyDispid = 196611
OrigLeft = 9120
OrigTop = 720
OrigRight = 9396
OrigBottom = 1092
Enabled = -1 'True
End
Begin VB.Line Line
BorderColor = &H80000003&
Index = 11
X1 = 0
X2 = 10188
Y1 = 0
Y2 = 0
End
Begin VB.Line Line
BorderColor = &H80000005&
Index = 10
X1 = 0
X2 = 10188
Y1 = 12
Y2 = 12
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "全宗号"
Height = 216
Index = 0
Left = 360
TabIndex = 0
Top = 300
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "责任者"
Height = 216
Index = 5
Left = 360
TabIndex = 10
Top = 1500
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "形成日期"
Height = 216
Index = 4
Left = 6480
TabIndex = 8
Top = 780
Width = 864
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "文件编号"
Height = 216
Index = 3
Left = 360
TabIndex = 6
Top = 780
Width = 864
End
Begin VB.Line Line
BorderColor = &H80000003&
Index = 8
X1 = 7980
X2 = 7980
Y1 = 1224
Y2 = 2868
End
Begin VB.Line Line
BorderColor = &H80000005&
Index = 9
X1 = 8004
X2 = 8004
Y1 = 1224
Y2 = 2868
End
Begin VB.Line Line
BorderColor = &H80000005&
Index = 7
X1 = 5520
X2 = 5520
Y1 = 1224
Y2 = 2868
End
Begin VB.Line Line
BorderColor = &H80000003&
Index = 6
X1 = 5496
X2 = 5496
Y1 = 1224
Y2 = 2868
End
Begin VB.Line Line
BorderColor = &H80000005&
Index = 5
X1 = 96
X2 = 10074
Y1 = 6012
Y2 = 6012
End
Begin VB.Line Line
BorderColor = &H80000001&
Index = 4
X1 = 96
X2 = 10074
Y1 = 6000
Y2 = 6000
End
Begin VB.Line Line
BorderColor = &H80000005&
Index = 3
X1 = 96
X2 = 10074
Y1 = 2892
Y2 = 2892
End
Begin VB.Line Line
BorderColor = &H80000003&
Index = 2
X1 = 96
X2 = 10074
Y1 = 2880
Y2 = 2880
End
Begin VB.Line Line
BorderColor = &H80000005&
Index = 1
X1 = 96
X2 = 10074
Y1 = 1212
Y2 = 1212
End
Begin VB.Line Line
BorderColor = &H80000003&
Index = 0
X1 = 96
X2 = 10074
Y1 = 1200
Y2 = 1200
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "正题名"
Height = 216
Index = 12
Left = 360
TabIndex = 26
Top = 3120
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "主题词"
Height = 216
Index = 13
Left = 360
TabIndex = 28
Top = 4152
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "摘 要"
Height = 216
Index = 14
Left = 360
TabIndex = 34
Top = 5160
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "份数"
Height = 216
Index = 10
Left = 8280
TabIndex = 22
Top = 1956
Width = 432
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "页数"
Height = 216
Index = 11
Left = 8280
TabIndex = 24
Top = 2436
Width = 432
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "保管期限"
Height = 216
Index = 6
Left = 5760
TabIndex = 14
Top = 1500
Width = 864
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "归文密级"
Height = 216
Index = 7
Left = 5760
TabIndex = 16
Top = 1980
Width = 864
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "存档情况"
Height = 216
Index = 8
Left = 5760
TabIndex = 18
Top = 2460
Width = 864
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "规格"
Height = 216
Index = 9
Left = 8280
TabIndex = 20
Top = 1500
Width = 432
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "档 号"
Height = 216
Index = 2
Left = 6480
TabIndex = 4
Top = 300
Width = 648
End
Begin VB.Label LabelG
AutoSize = -1 'True
Caption = "目录号"
Height = 216
Index = 1
Left = 3480
TabIndex = 2
Top = 300
Width = 648
End
Begin VB.Menu File
Caption = "文件(&F)"
Begin VB.Menu F_Add
Caption = "添加档案(&A)"
Shortcut = ^A
End
Begin VB.Menu F_Save
Caption = "保存数据(&V)"
Shortcut = ^O
End
Begin VB.Menu F_Cut
Caption = "-"
End
Begin VB.Menu F_Exit
Caption = "退出(&X)"
Shortcut = ^Q
End
End
Begin VB.Menu Edit
Caption = "编辑(&E)"
Begin VB.Menu E_Copy
Caption = "复制上份内容(&C)"
Shortcut = ^C
End
Begin VB.Menu E_Clear
Caption = "清除当前内容(&L)"
Shortcut = ^L
End
End
Begin VB.Menu Data
Caption = "相关数据(&D)"
Begin VB.Menu D_Seek
Caption = "查询(&S)"
Shortcut = ^S
End
Begin VB.Menu D_Modify
Caption = "修改(&M)"
Shortcut = ^M
End
End
End
Attribute VB_Name = "frmInputG"
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 l_Text(20) As String
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 cmdClear_Click()
Call TextEmpty
End Sub
Private Sub cmdAdd_Click()
Call SetEnable(True)
Text5.Text = " 16开"
Text10.Text = frmMain.FileType
adoRst.AddNew
Text0.SetFocus
End Sub
Private Sub cmdCopy_Click()
Dim i As Integer
Text0.Text = l_Text(0)
Text1.Text = l_Text(1)
Text2.Text = l_Text(2)
Text3.Text = l_Text(3)
Text4.Text = l_Text(4)
Combo1.Text = l_Text(8)
Combo2.Text = l_Text(9)
Combo3.Text = l_Text(10)
Text5.Text = l_Text(11)
Text6.Text = l_Text(12)
Text7.Text = l_Text(13)
Text8.Text = l_Text(14)
Text9.Text = l_Text(20)
For i = 0 To 2
dcZR(i).Text = l_Text(i + 5)
dcZTC(i).Text = l_Text(i + 15)
Next
dcZTC(3).Text = l_Text(18)
dcZTC(4).Text = l_Text(19)
End Sub
Private Sub TextEmpty()
Dim i As Integer
Text0.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
For i = 0 To 2
dcZR(i).Text = ""
dcZTC(i).Text = ""
Next
dcZTC(3).Text = ""
dcZTC(4).Text = ""
End Sub
Private Sub SaveText()
Dim i As Integer
l_Text(0) = Text0.Text
l_Text(1) = Text1.Text
l_Text(2) = AutoAdd(Text2.Text)
l_Text(3) = Text3.Text
l_Text(4) = Text4.Text
l_Text(8) = Combo1.Text
l_Text(9) = Combo2.Text
l_Text(10) = Combo3.Text
l_Text(11) = Text5.Text
l_Text(12) = Text6.Text
l_Text(13) = Text7.Text
l_Text(14) = Text8.Text
l_Text(20) = Text9.Text
For i = 0 To 2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -