📄 frmcdtapes.frm
字号:
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "上次租阅日期"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 165
Index = 9
Left = 240
TabIndex = 29
Tag = "&Password:"
Top = 3960
Width = 1080
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "是否可租"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 165
Index = 8
Left = 3360
TabIndex = 28
Tag = "&Password:"
Top = 2760
Width = 720
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "租金"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 165
Index = 7
Left = 240
TabIndex = 27
Tag = "&Password:"
Top = 2760
Width = 360
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "总页数"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 165
Index = 6
Left = 3360
TabIndex = 26
Tag = "&Password:"
Top = 2160
Width = 540
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "关键字"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 165
Index = 5
Left = 240
TabIndex = 25
Tag = "&Password:"
Top = 2160
Width = 540
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "出版年份"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 165
Index = 4
Left = 3360
TabIndex = 24
Tag = "&Password:"
Top = 1560
Width = 720
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "作者"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 165
Index = 3
Left = 240
TabIndex = 23
Tag = "&Password:"
Top = 1560
Width = 360
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "项目编号(前缀必须为CHN-,ENG-,OTH-)"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 165
Index = 2
Left = 2880
TabIndex = 22
Tag = "&Password:"
Top = 960
Width = 3300
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "入库时间"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 165
Index = 1
Left = 240
TabIndex = 21
Tag = "&Password:"
Top = 960
Width = 720
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "书籍标题"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 165
Index = 0
Left = 240
TabIndex = 20
Tag = "&Password:"
Top = 360
Width = 720
End
End
Begin VB.ListBox lstTitles
Height = 5640
Left = 240
TabIndex = 1
ToolTipText = "List of Titles"
Top = 360
Width = 4815
End
Begin VB.Frame Frame1
Caption = " 文籍标题"
Height = 6015
Left = 120
TabIndex = 0
Top = 120
Width = 5055
End
Begin VB.Frame Frame3
Caption = "加载范围:"
Height = 1095
Left = 120
TabIndex = 45
Top = 6240
Width = 3615
Begin VB.OptionButton cmdqzxs
Caption = "全部加载"
Height = 375
Left = 120
TabIndex = 49
Top = 240
Width = 1095
End
Begin VB.OptionButton Optsstj
Caption = "零库存项目查看"
Height = 255
Left = 120
TabIndex = 48
Top = 720
Width = 1575
End
Begin VB.Label Label1
Caption = "从"
Height = 255
Left = 1320
TabIndex = 47
Top = 240
Width = 255
End
Begin VB.Label Label3
Caption = "-->"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2400
TabIndex = 46
Top = 285
Width = 375
End
End
End
Attribute VB_Name = "frmCDtapes"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Option Base 1
Dim lstTEXT, tmpItemCodeB4Edit As String
Private Sub cmdAddMovie_Click()
If cmdAddMovie.Caption = "添加" Then
cmdAddMovie.Caption = "&取消添加..."
Call cmdClear_Click
txtDateEntered = Format(Now, "mmm. dd, yyyy")
txtItemCode.Text = ""
If booksnum > 999 Then
txtItemCode.Text = "CHN-" & booksnum
ElseIf booksnum > 99 Then
txtItemCode.Text = "CHN-0" & booksnum
ElseIf booksnum > 9 Then
txtItemCode.Text = "CHN-00" & booksnum
Else
txtItemCode.Text = "CHN-000" & booksnum
End If
Call UnlockTextboxes
lstTitles.Enabled = False
cmdUpdate.Enabled = True
cmdClear.Enabled = True
cmdEdit.Enabled = False
txtTitle.SetFocus
Exit Sub
End If
If cmdAddMovie.Caption = "&取消添加..." Then
cmdAddMovie.Caption = "添加"
Call cmdClear_Click
txtItemCode.Text = ""
txtDateEntered.Text = ""
txtItemCode.Text = ""
Call LockTextboxes
lstTitles.Enabled = True
cmdUpdate.Enabled = False
cmdClear.Enabled = False
lstTitles.Text = lstTEXT
If Trim(lstTitles.Text) = "" Then cmdEdit.Enabled = False
lstTitles.SetFocus
Exit Sub
End If
End Sub
Private Sub cmdClear_Click()
txtTitle.Text = ""
txtActor.Text = ""
txtYearReleased.Text = ""
txtGenre.Text = ""
txtRunTime.Text = ""
txtRentalAmount.Text = ""
txtAvailable.Text = ""
txtOverdueChargePerDay.Text = ""
txtRentalPeriod.Text = ""
txtLastDateBorrowed.Text = ""
txtLastDateBorrowedAddInfo.Text = ""
txtLastDateReturned.Text = ""
txtLastDateReturnedAddInfo.Text = ""
txtCondition.Text = ""
If cmdAddMovie.Caption = "&取消添加..." Then txtItemCode.Text = ""
If cmdEdit.Caption = "取消编辑" Then txtItemCode.Text = ""
txtComments.Text = ""
txtTitle.SetFocus
End Sub
Private Sub cmdEdit_Click()
If cmdEdit.Caption = "编辑" Then
cmdEdit.Caption = "取消编辑"
tmpItemCodeB4Edit = Trim(txtItemCode.Text)
lstTitles.Enabled = False
cmdAddMovie.Enabled = False
cmdUpdate.Enabled = True
cmdClear.Enabled = True
Call UnlockTextboxes
txtTitle.SetFocus
Exit Sub
End If
If cmdEdit.Caption = "取消编辑" Then
cmdEdit.Caption = "编辑"
lstTitles.Enabled = True
cmdAddMovie.Enabled = True
cmdUpdate.Enabled = False
cmdClear.Enabled = False
Call LockTextboxes
lstTitles.Text = lstTEXT
lstTitles.SetFocus
End If
End Sub
Private Sub cmdqzxs_Click()
Call LoadallMoviesList(lstTitles)
End Sub
Sub LoadallMoviesList(lst As ListBox)
On Error GoTo ErrorHandler:
Dim db As Database
Dim rec As Recordset
Dim TDM As Variant
Dim i As Integer
lst.Clear
Set db = OpenDatabase(App.Path & "\Database\CD_Tapes.mdb", False, False, ";pwd=AdmiN")
Set rec = db.OpenRecordset("CD Tapes Table", dbOpenTable)
rec.MoveFirst
If rec.RecordCount > 0 Then
For i = 1 To rec.RecordCount
TDM = DoEvents()
'lst.AddItem rec.Fields("First Name") & " " & Left(rec.Fields("Middle Name"), 1) & ". " & _
rec.Fields("Family Name")
lst.AddItem rec.Fields("标题") & " [" & rec.Fields("Item Code") & "]"
rec.MoveNext
Next i
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -