www.pudn.com > 图书管理系统包括VB,ASP各一份代码.rar > WaiWenTuShu.dob
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.UserDocument WaiWenTuShu
BackColor = &H8000000E&
ClientHeight = 6315
ClientLeft = 0
ClientTop = 0
ClientWidth = 8985
HScrollSmallChange= 225
ScaleHeight = 6315
ScaleWidth = 8985
VScrollSmallChange= 225
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 600
Top = 5760
Visible = 0 'False
Width = 2055
_ExtentX = 3625
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin TabDlg.SSTab SSTab1
Height = 4995
Left = 360
TabIndex = 1
Top = 360
Width = 8265
_ExtentX = 14579
_ExtentY = 8811
_Version = 393216
TabsPerRow = 6
TabHeight = 520
BackColor = -2147483639
TabCaption(0) = "记帐单"
TabPicture(0) = "WaiWenTuShu.dox":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "lblLabels(13)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "lblLabels(12)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "lblLabels(11)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "lblLabels(10)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "lblLabels(9)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "lblLabels(8)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "lblLabels(7)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "lblLabels(5)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "lblLabels(3)"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "lblLabels(0)"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "lblLabels(1)"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "lblLabels(2)"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "lblLabels(4)"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "DataCombo2"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "DTPicker1(1)"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "datPrimaryRS"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "picButtons"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "txtFields(13)"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "txtFields(9)"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "txtFields(5)"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "txtFields(1)"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "txtFields(3)"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "txtFields(7)"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "txtFields(8)"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).Control(24)= "txtFields(11)"
Tab(0).Control(24).Enabled= 0 'False
Tab(0).Control(25)= "DTPicker1(0)"
Tab(0).Control(25).Enabled= 0 'False
Tab(0).Control(26)= "DataCombo1"
Tab(0).Control(26).Enabled= 0 'False
Tab(0).Control(27)= "txtFields(0)"
Tab(0).Control(27).Enabled= 0 'False
Tab(0).ControlCount= 28
TabCaption(1) = "清单"
TabPicture(1) = "WaiWenTuShu.dox":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "DataGrid1"
Tab(1).Control(1)= "cmdPrint"
Tab(1).ControlCount= 2
TabCaption(2) = "查询"
TabPicture(2) = "WaiWenTuShu.dox":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "cmdFilter"
Tab(2).Control(1)= "cmdAll"
Tab(2).Control(2)= "cmdCancel"
Tab(2).Control(3)= "Frame1"
Tab(2).ControlCount= 4
Begin VB.TextBox txtFields
DataField = "译名"
DataSource = "datPrimaryRS"
Height = 285
Index = 0
Left = 1260
TabIndex = 44
Top = 1440
Width = 6135
End
Begin VB.CommandButton cmdFilter
Caption = "筛选(&F)"
Height = 375
Left = -71640
TabIndex = 39
Top = 3360
Width = 1215
End
Begin VB.CommandButton cmdAll
Caption = "全部(&A)"
Height = 375
Left = -70200
TabIndex = 38
Top = 3360
Width = 1335
End
Begin VB.CommandButton cmdCancel
Caption = "取消(&C)"
Height = 375
Left = -68640
TabIndex = 37
Top = 3360
Width = 1335
End
Begin VB.CommandButton cmdPrint
Caption = "打印(&P)"
Height = 375
Left = -68640
TabIndex = 36
Top = 4440
Width = 1335
End
Begin MSDataListLib.DataCombo DataCombo1
Bindings = "WaiWenTuShu.dox":0054
DataField = "分类ID"
DataSource = "datPrimaryRS"
Height = 330
Left = 3660
TabIndex = 35
Top = 570
Width = 1335
_ExtentX = 2355
_ExtentY = 582
_Version = 393216
ListField = "分类"
BoundColumn = "分类ID"
Text = "DataCombo1"
End
Begin MSComCtl2.DTPicker DTPicker1
DataField = "出版日期"
DataSource = "datPrimaryRS"
Height = 330
Index = 0
Left = 5220
TabIndex = 33
Top = 2430
Width = 2175
_ExtentX = 3836
_ExtentY = 582
_Version = 393216
CheckBox = -1 'True
Format = 59244545
CurrentDate = 37046
End
Begin VB.TextBox txtFields
DataField = "页数"
DataSource = "datPrimaryRS"
Height = 285
Index = 11
Left = 5220
TabIndex = 31
Top = 1995
Width = 2175
End
Begin VB.TextBox txtFields
DataField = "单价"
DataSource = "datPrimaryRS"
Height = 285
Index = 8
Left = 1260
TabIndex = 30
Top = 2910
Width = 2175
End
Begin VB.TextBox txtFields
DataField = "作者"
DataSource = "datPrimaryRS"
Height = 285
Index = 7
Left = 1200
TabIndex = 29
Top = 1995
Width = 2175
End
Begin VB.TextBox txtFields
DataField = "书名"
DataSource = "datPrimaryRS"
Height = 285
Index = 3
Left = 1260
TabIndex = 28
Top = 1050
Width = 6135
End
Begin VB.TextBox txtFields
DataField = "图书ID"
DataSource = "datPrimaryRS"
Height = 285
Index = 1
Left = 1260
TabIndex = 0
Top = 600
Width = 1335
End
Begin VB.Frame Frame1
Caption = "查询条件"
Height = 2235
Left = -74820
TabIndex = 20
Top = 480
Width = 7875
Begin VB.TextBox txtFields
Height = 285
Index = 16
Left = 3840
TabIndex = 25
Top = 420
Width = 1575
End
Begin VB.TextBox txtFields
Height = 285
Index = 15
Left = 1380
TabIndex = 22
Top = 1290
Width = 5895
End
Begin VB.TextBox txtFields
Height = 285
Index = 14
Left = 1380
TabIndex = 21
Top = 420
Width = 1575
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 330
Index = 2
Left = 1380
TabIndex = 40
Top = 840
Width = 1575
_ExtentX = 2778
_ExtentY = 582
_Version = 393216
CheckBox = -1 'True
DateIsNull = -1 'True
Format = 59244545
CurrentDate = 37038
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 330
Index = 3
Left = 3840
TabIndex = 41
Top = 840
Width = 1575
_ExtentX = 2778
_ExtentY = 582
_Version = 393216
CheckBox = -1 'True
DateIsNull = -1 'True
Format = 59244545
CurrentDate = 37038
End
Begin MSDataListLib.DataCombo DataCombo3
Bindings = "WaiWenTuShu.dox":0069
Height = 330
Left = 1380
TabIndex = 48
Top = 1680
Width = 2175
_ExtentX = 3836
_ExtentY = 582
_Version = 393216
ListField = "分类"
BoundColumn = "分类ID"
Text = ""
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "分类:"
Height = 180
Index = 6
Left = 840
TabIndex = 49
Top = 1755
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "至:"
Height = 180
Index = 21
Left = 3480
TabIndex = 43
Top = 915
Width = 270
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "登记日期由:"
Height = 180
Index = 19
Left = 300
TabIndex = 42
Top = 915
Width = 990
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "作者:"
Height = 180
Index = 16
Left = 3300
TabIndex = 26
Top = 465
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "书名:"
Height = 180
Index = 15
Left = 840
TabIndex = 24
Top = 1350
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "书号:"
Height = 180
Index = 14
Left = 840
TabIndex = 23
Top = 480
Width = 450
End
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "WaiWenTuShu.dox":007E
Height = 3735
Left = -74820
TabIndex = 19
Top = 480
Width = 7875
_ExtentX = 13891
_ExtentY = 6588
_Version = 393216
HeadLines = 1
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 11
BeginProperty Column00
DataField = "图书ID"
Caption = "图书ID"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = "书名"
Caption = "书名"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "分类ID"
Caption = "分类ID"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "作者"
Caption = "作者"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "出版单位"
Caption = "出版单位"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "单价"
Caption = "单价"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "册数"
Caption = "册数"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column07
DataField = "页数"
Caption = "页数"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column08
DataField = "出版日期"
Caption = "出版日期"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column09
DataField = "登记日期"
Caption = "登记日期"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column10
DataField = "备注"
Caption = "备注"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 1094.74
EndProperty
BeginProperty Column01
ColumnWidth = 2085.166
EndProperty
BeginProperty Column02
ColumnWidth = 615.118
EndProperty
BeginProperty Column03
ColumnWidth = 2085.166
EndProperty
BeginProperty Column04
ColumnWidth = 2085.166
EndProperty
BeginProperty Column05
ColumnWidth = 2085.166
EndProperty
BeginProperty Column06
ColumnWidth = 464.882
EndProperty
BeginProperty Column07
ColumnWidth = 734.74
EndProperty
BeginProperty Column08
ColumnWidth = 2085.166
EndProperty
BeginProperty Column09
ColumnWidth = 2085.166
EndProperty
BeginProperty Column10
ColumnWidth = 2085.166
EndProperty
EndProperty
End
Begin VB.TextBox txtFields
DataField = "出版单位"
DataSource = "datPrimaryRS"
Height = 285
Index = 5
Left = 1260
TabIndex = 9
Top = 2445
Width = 2175
End
Begin VB.TextBox txtFields
DataField = "册数"
DataSource = "datPrimaryRS"
Height = 285
Index = 9
Left = 5220
TabIndex = 8
Top = 2910
Width = 2175
End
Begin VB.TextBox txtFields
DataField = "备注"
DataSource = "datPrimaryRS"
Height = 285
Index = 13
Left = 5220
TabIndex = 7
Top = 3360
Width = 2175
End
Begin VB.PictureBox picButtons
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 2280
ScaleHeight = 300
ScaleWidth = 5805
TabIndex = 2
Top = 4380
Width = 5805
Begin VB.CommandButton cmdPrint1
Caption = "打印(&P)"
Height = 300
Left = 4680
TabIndex = 50
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdRefresh
Caption = "刷新(&R)"
Height = 300
Left = 3521
TabIndex = 6
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
Height = 300
Left = 2367
TabIndex = 5
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdUpdate
Caption = "更新(&U)"
Height = 300
Left = 1213
TabIndex = 4
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
Height = 300
Left = 59
TabIndex = 3
Top = 0
Width = 1095
End
End
Begin MSAdodcLib.Adodc datPrimaryRS
Height = 330
Left = 240
Top = 4380
Width = 1845
_ExtentX = 3254
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 1
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = " "
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSComCtl2.DTPicker DTPicker1
DataField = "登记日期"
DataSource = "datPrimaryRS"
Height = 330
Index = 1
Left = 1260
TabIndex = 34
Top = 3330
Width = 2175
_ExtentX = 3836
_ExtentY = 582
_Version = 393216
CheckBox = -1 'True
Format = 59244545
CurrentDate = 37046
End
Begin MSDataListLib.DataCombo DataCombo2
Bindings = "WaiWenTuShu.dox":0099
DataField = "文种ID"
DataSource = "datPrimaryRS"
Height = 330
Left = 6060
TabIndex = 46
Top = 570
Width = 1335
_ExtentX = 2355
_ExtentY = 582
_Version = 393216
ListField = "文种"
BoundColumn = "文种ID"
Text = "DataCombo1"
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "文种:"
Height = 180
Index = 4
Left = 5520
TabIndex = 47
Top = 600
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "译名:"
Height = 180
Index = 2
Left = 360
TabIndex = 45
Top = 1440
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "图书ID:"
Height = 180
Index = 1
Left = 360
TabIndex = 32
Top = 600
Width = 630
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "登记日期:"
Height = 180
Index = 0
Left = 360
TabIndex = 27
Top = 3360
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "书名:"
Height = 180
Index = 3
Left = 360
TabIndex = 18
Top = 1050
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "出版单位:"
Height = 180
Index = 5
Left = 360
TabIndex = 17
Top = 2445
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "作者:"
Height = 180
Index = 7
Left = 360
TabIndex = 16
Top = 1995
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "单价:"
Height = 180
Index = 8
Left = 360
TabIndex = 15
Top = 2910
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "册数:"
Height = 180
Index = 9
Left = 4320
TabIndex = 14
Top = 2910
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "出版日期:"
Height = 180
Index = 10
Left = 4320
TabIndex = 13
Top = 2445
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "页数:"
Height = 180
Index = 11
Left = 4320
TabIndex = 12
Top = 1995
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "分类:"
Height = 180
Index = 12
Left = 3120
TabIndex = 11
Top = 600
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "备注:"
Height = 180
Index = 13
Left = 4320
TabIndex = 10
Top = 3360
Width = 450
End
End
Begin MSAdodcLib.Adodc Adodc2
Height = 375
Left = 2760
Top = 5760
Visible = 0 'False
Width = 2055
_ExtentX = 3625
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
End
Attribute VB_Name = "WaiWenTuShu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Const strSource As String = "select 书籍序号,总号,书号,书名,著者,ISBN编号,出版处,内容简介,页数,购买价格,购买数量,购买日期,书架编号,附注 from 书籍"
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub cmdOK_Click()
Dim strSearch As String
End Sub
Private Sub cmdAll_Click()
datPrimaryRS.Recordset.Filter = ""
datPrimaryRS.Refresh
SSTab1.Tab = 1
End Sub
Private Sub cmdCancel_Click()
SSTab1.Tab = 1
End Sub
Private Sub cmdFilter_Click()
Dim strFilter As String
'生成filter字符串
strFilter = ""
If Trim(txtFields(14).Text) <> "" Then
strFilter = "图书ID=" & Trim(txtFields(14).Text)
End If
If Trim(txtFields(16).Text) <> "" Then
If strFilter = "" Then
strFilter = "作者 like '%" & Trim(txtFields(16).Text) & "%'"
Else
strFilter = strFilter & " and 作者 like '%" & Trim(txtFields(16).Text) & "%'"
End If
End If
If Not IsNull(DTPicker1(2).Value) Then
If strFilter = "" Then
strFilter = "登记日期 >= #" & Format(DTPicker1(2).Value, "yyyy-mm-dd") & "#"
Else
strFilter = strFilter & " and 登记日期 >= #" & Format(DTPicker1(2).Value, "yyyy-mm-dd") & "#"
End If
End If
If Not IsNull(DTPicker1(3).Value) Then
If strFilter = "" Then
strFilter = "登记日期 <= #" & Format(DTPicker1(3).Value, "yyyy-mm-dd") & "#"
Else
strFilter = strFilter & " and 登记日期 <= #" & Format(DTPicker1(3).Value, "yyyy-mm-dd") & "#"
End If
End If
If txtFields(15).Text <> "" Then
If strFilter = "" Then
strFilter = "书名 like '%" & txtFields(15).Text & "%'"
Else
strFilter = strFilter & " and 书名 like '%" & txtFields(15).Text & "%'"
End If
End If
If DataCombo3.Text <> "" Then
If strFilter = "" Then
strFilter = "分类ID=" & DataCombo3.BoundText
Else
strFilter = strFilter & " and 分类ID=" & DataCombo3.BoundText
End If
End If
datPrimaryRS.Recordset.Filter = "" 'adFilterNone
datPrimaryRS.Recordset.Filter = strFilter
SSTab1.Tab = 1
End Sub
Private Sub cmdPrint_Click()
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim DataArray() As Variant
Dim i, j, Num As Integer
Screen.MousePointer = vbHourglass
'Start a new workbook in Excel
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
'Create an array
Num = datPrimaryRS.Recordset.RecordCount
If Num = 0 Then
MsgBox "发排数据为空。", vbInformation
Exit Sub
End If
ReDim DataArray(1 To Num, 1 To 10) As Variant
datPrimaryRS.Recordset.MoveFirst
For i = 1 To Num
For j = 1 To 10
DataArray(i, j) = datPrimaryRS.Recordset.Fields(j - 1).Value
Next
datPrimaryRS.Recordset.MoveNext
Next
datPrimaryRS.Recordset.MoveFirst
'Add headers to the worksheet on row 1
Set oSheet = oBook.Worksheets(1)
oSheet.Range("A1:J1").Select
With oExcel.Selection
.HorizontalAlignment = -4108
.VerticalAlignment = -4108
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
oSheet.Range("A1").Value = Format(Now(), "yyyy") & "年外文图书总帐"
oSheet.Range("A2").Value = "总号"
oSheet.Range("B2").Value = "分类"
oSheet.Range("C2").Value = "书名"
oSheet.Range("D2").Value = "作者"
oSheet.Range("E2").Value = "出版单位"
oSheet.Range("F2").Value = "单价"
oSheet.Range("G2").Value = "册数"
oSheet.Range("H2").Value = "出版日期"
oSheet.Range("I2").Value = "登记日期"
oSheet.Range("J2").Value = "备注"
oSheet.Range("A2:J2").Select
With oExcel.Selection
.HorizontalAlignment = -4108
.VerticalAlignment = -4108
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
End With
'Transfer the array to the worksheet starting at cell A2
oSheet.Range("A3").Resize(Num, 10).Value = DataArray
oSheet.Range("A2:J" & CStr(Num + 2)).Select
oExcel.Selection.Borders(5).LineStyle = -4142
oExcel.Selection.Borders(6).LineStyle = -4142
With oExcel.Selection.Borders(7)
.LineStyle = 1
.Weight = 3
.ColorIndex = -4105
End With
With oExcel.Selection.Borders(8)
.LineStyle = 1
.Weight = 3
.ColorIndex = -4105
End With
With oExcel.Selection.Borders(9)
.LineStyle = 1
.Weight = 3
.ColorIndex = -4105
End With
With oExcel.Selection.Borders(10)
.LineStyle = 1
.Weight = 3
.ColorIndex = -4105
End With
With oExcel.Selection.Borders(11)
.LineStyle = 1
.Weight = 2
.ColorIndex = -4105
End With
With oExcel.Selection.Borders(12)
.LineStyle = 1
.Weight = 2
.ColorIndex = -4105
End With
oSheet.Range("E" & CStr(Num + 3)).Value = "合计"
oSheet.Range("F" & CStr(Num + 3)).Formula = "=SUM(F3:F" & CStr(Num + 2) & ")"
oSheet.Range("G" & CStr(Num + 3)).Formula = "=SUM(G3:G" & CStr(Num + 2) & ")"
oSheet.Columns("A:A").EntireColumn.AutoFit
oSheet.Columns("B:B").EntireColumn.AutoFit
oSheet.Columns("C:C").EntireColumn.AutoFit
oSheet.Columns("D:D").EntireColumn.AutoFit
oSheet.Columns("E:E").EntireColumn.AutoFit
oSheet.Columns("F:F").EntireColumn.AutoFit
oSheet.Columns("G:G").EntireColumn.AutoFit
oSheet.Columns("H:H").EntireColumn.AutoFit
oSheet.Columns("I:I").EntireColumn.AutoFit
oSheet.Columns("J:J").EntireColumn.AutoFit
With oSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
oSheet.PageSetup.PrintArea = ""
With oSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = oExcel.InchesToPoints(0.75)
.RightMargin = oExcel.InchesToPoints(0.75)
.TopMargin = oExcel.InchesToPoints(1)
.BottomMargin = oExcel.InchesToPoints(1)
.HeaderMargin = oExcel.InchesToPoints(0.5)
.FooterMargin = oExcel.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = -4142
.CenterHorizontally = False
.CenterVertically = False
.Orientation = 2
.Draft = False
.PaperSize = 12
.FirstPageNumber = -4105
.Order = 1
.BlackAndWhite = False
.Zoom = 100
End With
oSheet.Range("A1").Select
oExcel.Visible = True
Screen.MousePointer = vbDefault
Set oExcel = Nothing
Set oBook = Nothing
Set oSheet = Nothing
End Sub
Private Sub cmdPrint1_Click()
Dim strSQL As String
Dim oWrd As Object
Set oWrd = CreateObject("Word.Application")
oWrd.Visible = True
oWrd.Activate
oWrd.Documents.Add
With oWrd.ActiveDocument.PageSetup
.TopMargin = 24
.BottomMargin = 72
.LeftMargin = 50
.RightMargin = 361
.PageWidth = 595.3
.PageHeight = 841.9
End With
With oWrd.Selection
With .ParagraphFormat
.Alignment = 3
.LineSpacingRule = 1
.SpaceBefore = 0
.SpaceAfter = 0
End With
.Font.Name = "宋体"
.Font.Bold = True
.Font.Size = 12
.TypeText "图" & Format(txtFields(1).Text, "00000")
.TypeParagraph
.Font.Size = 10.5
.Font.Bold = True
With .ParagraphFormat
.Alignment = 3
.LineSpacingRule = 0
.SpaceBefore = 0
.SpaceAfter = 0
End With
.TypeText txtFields(3).Text
.TypeParagraph
.TypeText txtFields(0).Text
.TypeParagraph
.HomeKey unit:=6
End With
Set oWrd = Nothing
End Sub
Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
'错误处理程序代码置于此处
'想要忽略错误，注释掉下一行
'想要捕获它们，在此添加代码以处理它们
MsgBox "Data error event hit err:" & Description
End Sub
Private Sub cmdAdd_Click()
On Error GoTo AddErr
datPrimaryRS.Recordset.AddNew
Exit Sub
AddErr:
MsgBox Err.Description
End Sub
Private Sub cmdDelete_Click()
' On Error GoTo DeleteErr
' With datPrimaryRS.Recordset
' .Delete
' .MoveNext
' If .EOF Then .MoveLast
' End With
' Exit Sub
'DeleteErr:
' MsgBox Err.Description
Dim lgNum As Long
On Error GoTo DeleteErr
Dim nYN As Byte
nYN = MsgBox("您正准备删除当前记录。" & Chr(13) & Chr(13) & _
"假如您单击“是”，您将不能撤消这个删除操作。" & Chr(13) & _
"您确认删除这条记录吗?", vbExclamation + vbYesNo)
If nYN = vbYes Then
lgNum = datPrimaryRS.Recordset.AbsolutePosition
cn.Execute " delete from 外文图书 where 图书id =" & txtFields(1).Text
datPrimaryRS.Refresh
datPrimaryRS.Recordset.AbsolutePosition = lgNum
If datPrimaryRS.Recordset.EOF Then datPrimaryRS.Recordset.MoveLast
End If
Exit Sub
DeleteErr:
MsgBox Err.Description
End Sub
Private Sub cmdRefresh_Click()
'只有多用户应用程序需要
On Error GoTo RefreshErr
datPrimaryRS.Refresh
Exit Sub
RefreshErr:
MsgBox Err.Description
End Sub
Private Sub cmdUpdate_Click()
On Error GoTo UpdateErr
datPrimaryRS.Recordset.UpdateBatch adAffectAll
Exit Sub
UpdateErr:
MsgBox Err.Description
End Sub
Private Sub UserDocument_Initialize()
' With datPrimaryRS
' .ConnectionString = pConn
' .RecordSource = "select 图书ID, 分类ID, 书名, 作者, 出版单位, 单价, 册数, 出版日期, 登记日期, 备注, 页数, 译名, 文种id from 外文图书 ORDER BY 图书ID;"
' .Refresh
' End With
Dim strSQL As String
cn.Open pConn
strSQL = "select 图书ID, 分类, 书名, 作者, 出版单位, 单价, 册数, 出版日期, 登记日期, 备注, 页数, 译名, 外文图书.分类ID, 文种id " & _
"FROM 外文图书 INNER JOIN 图书分类 ON 外文图书.分类ID = 图书分类.分类ID " & _
" ORDER BY 图书ID;"
With rs
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open strSQL
End With
Set datPrimaryRS.Recordset = rs
With Adodc1
.ConnectionString = pConn
.RecordSource = "图书分类"
.Refresh
End With
With Adodc2
.ConnectionString = pConn
.RecordSource = "文种"
.Refresh
End With
With DataCombo1
Set .DataSource = datPrimaryRS
.DataField = "分类id"
Set .RowSource = Adodc1
.ListField = "分类"
.BoundColumn = "分类id"
End With
End Sub
Private Sub UserDocument_Show()
' datPrimaryRS.Refresh
End Sub
Private Sub UserDocument_Terminate()
rs.Close
cn.Close
End Sub