📄 marcdata.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form markdata
Caption = "MARC数据转入"
ClientHeight = 4905
ClientLeft = 60
ClientTop = 345
ClientWidth = 6735
ControlBox = 0 'False
Icon = "marcdata.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 4905
ScaleWidth = 6735
StartUpPosition = 1 'CenterOwner
Begin VB.Frame Frame3
Height = 1455
Left = 150
TabIndex = 16
Top = 3120
Width = 6495
Begin VB.TextBox Text3
Appearance = 0 'Flat
BackColor = &H80000000&
Height = 1095
Left = 180
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 17
Top = 210
Width = 6255
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 120
Top = 2640
_ExtentX = 847
_ExtentY = 847
_Version = 393216
DialogTitle = "选择MARC文件"
Filter = "*.iso|*.iso"
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "D:\TSCG\bookcgk.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 375
Left = 2640
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 2640
Visible = 0 'False
Width = 1455
End
Begin VB.Frame Frame2
Caption = "数据转入预采库，同时MARC数据也保存下来"
Height = 1725
Left = 120
TabIndex = 5
Top = 870
Width = 6495
Begin VB.OptionButton Option5
Caption = " 5、用ISBN、书名查重，有书名，ISBN字段才转入"
Height = 255
Left = 1920
TabIndex = 19
Top = 1350
Width = 4425
End
Begin VB.OptionButton Option4
Caption = "Option4"
Height = 255
Left = 1920
TabIndex = 15
Top = 1050
Width = 285
End
Begin VB.OptionButton Option3
Caption = "Option3"
Height = 255
Left = 1920
TabIndex = 14
Top = 800
Width = 255
End
Begin VB.OptionButton Option2
Caption = "Option2"
Height = 255
Left = 1920
TabIndex = 13
Top = 540
Value = -1 'True
Width = 255
End
Begin VB.OptionButton Option1
Caption = "Option1"
Height = 255
Left = 1920
TabIndex = 12
Top = 240
Width = 255
End
Begin VB.Label Label5
Caption = "4、用ISBN，书名和价格查重转入"
Height = 375
Left = 2280
TabIndex = 11
Top = 1080
Width = 3135
End
Begin VB.Label Label4
Caption = "3、用ISBN、书名查重转入"
Height = 375
Left = 2280
TabIndex = 10
Top = 780
Width = 3825
End
Begin VB.Label Label3
Caption = "2、用ISBN查重转入"
Height = 375
Left = 2280
TabIndex = 9
Top = 520
Width = 1695
End
Begin VB.Label Label2
Caption = "1、转入不作处理"
Height = 375
Left = 2280
TabIndex = 8
Top = 180
Width = 1455
End
Begin VB.Label Label1
Caption = "转入方式："
Height = 255
Left = 300
TabIndex = 7
Top = 270
Width = 1215
End
End
Begin VB.Frame Frame1
Caption = "数据转入馆藏库"
Height = 1455
Left = 120
TabIndex = 4
Top = 930
Width = 6495
Begin VB.TextBox Text2
Appearance = 0 'Flat
BackColor = &H80000004&
BorderStyle = 0 'None
Height = 855
Left = 480
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 6
Text = "marcdata.frx":0442
Top = 390
Width = 5295
End
End
Begin VB.CommandButton Command3
Caption = "转入"
Height = 375
Left = 840
TabIndex = 3
Top = 2670
Width = 1575
End
Begin VB.TextBox Text1
Height = 375
Left = 1800
Locked = -1 'True
TabIndex = 2
Top = 120
Width = 4815
End
Begin VB.CommandButton Command2
Caption = "请选择MARC文件"
Height = 375
Left = 120
TabIndex = 1
Top = 120
Width = 1575
End
Begin VB.CommandButton Command1
Caption = "退 出"
Height = 375
Left = 4320
TabIndex = 0
Top = 2640
Width = 1575
End
Begin VB.Label Label6
Caption = "说明：MARC数据转入预采库时，重复不转入，错误ISBN记录会转入但报告结果。"
Height = 375
Left = 120
TabIndex = 18
Top = 4620
Width = 6615
End
Begin VB.Line Line1
X1 = 0
X2 = 6720
Y1 = 720
Y2 = 720
End
End
Attribute VB_Name = "markdata"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.filename
End Sub
Private Sub Command3_Click()
Dim currecord As Long
Dim loadrecord As Long
Dim recordno As Long
Dim recno801 As Long
Dim isofile As String
Dim header As String
Dim isbnstring As String
Dim mcq As String
Dim dataq As String
Dim marc As String
Dim errisbn As String
Dim errisbnnum As Long
Dim fbl As Long
Dim bly801 As String
Dim not801 As String
Dim filenam As String
not801 = ""
fbl = 0
'读取：isbn(010a),价格010d，书名(200a)，作者(200f)，出版社210c，出版年210d，内容题要330a，
On Error Resume Next
filenam = "d:\tscg\temp\errormarc.txt"
If Dir(filenam) = "errormarc.txt" Then
Kill (filenam)
End If
Open filenam For Output As #2
errisbnnum = 0
errisbn = ""
currecord = 0
loadrecord = 0
recno801 = 0
recordno = 0
isbnstring = ""
marc = ""
If Text1.Text = "" Then
MsgBox "请选择MARC文件！"
Exit Sub
End If
isofile = Text1.Text
If Not Filexists(isofile) Then
MsgBox "文件不存在,请重新输入。"
Exit Sub
End If
'-------------------------------------------------------------------------
'marc数据转入馆库
If worktok = "馆藏" Then
Open isofile For Binary As #1
Do Until EOF(1)
Line Input #1, linestring
If Len(linestring) = 0 Then
ddf = 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -