📄 waiwentushu.dob
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -