📄 frmbookdoc.frm
字号:
Caption = "新增"
Key = "btnNew"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "btnModify"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
Key = "btnDelete"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "保存"
Key = "btnSave"
ImageIndex = 8
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "取消"
Key = "btnCancel"
ImageIndex = 9
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "btnExit"
ImageIndex = 10
EndProperty
EndProperty
Begin MSComctlLib.ImageList ImageList1
Left = 7440
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmBookDoc.frx":0496
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmBookDoc.frx":05A8
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmBookDoc.frx":06BA
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmBookDoc.frx":07CC
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmBookDoc.frx":08DE
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmBookDoc.frx":09F0
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmBookDoc.frx":0B02
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmBookDoc.frx":0C14
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmBookDoc.frx":0D26
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmBookDoc.frx":0E38
Key = ""
EndProperty
EndProperty
End
End
Begin VB.Label Label6
Caption = "书名"
Height = 255
Left = 5040
TabIndex = 33
Top = 4440
Width = 735
End
Begin VB.Label Label5
Caption = "编号"
Height = 255
Left = 2280
TabIndex = 32
Top = 4440
Width = 855
End
Begin VB.Label Label4
Caption = "条形码"
Height = 255
Left = 120
TabIndex = 31
Top = 4440
Width = 615
End
Begin VB.Label Label8
Caption = "类型"
Height = 255
Left = 7320
TabIndex = 30
Top = 4440
Width = 975
End
Begin VB.Label Label9
Caption = "作者"
Height = 255
Left = 120
TabIndex = 29
Top = 5160
Width = 975
End
Begin VB.Label Label10
Caption = "译者"
Height = 255
Left = 2280
TabIndex = 28
Top = 5160
Width = 855
End
Begin VB.Label Label11
Caption = "ISBN"
Height = 255
Left = 3960
TabIndex = 27
Top = 5160
Width = 975
End
Begin VB.Label Label12
Caption = "出版社"
DataSource = "Adodc1"
Height = 255
Left = 6480
TabIndex = 26
Top = 5160
Width = 855
End
Begin VB.Label Label13
Caption = "价格"
Height = 255
Left = 120
TabIndex = 25
Top = 5880
Width = 855
End
Begin VB.Label Label14
Caption = "页码"
Height = 255
Left = 1560
TabIndex = 24
Top = 5880
Width = 975
End
Begin VB.Label Label15
Caption = "书架名称"
Height = 255
Left = 6480
TabIndex = 23
Top = 5880
Width = 1095
End
Begin VB.Label Label16
Caption = "操作员"
Height = 255
Left = 2640
TabIndex = 22
Top = 5880
Width = 1095
End
Begin VB.Label Label17
Caption = "简介"
Height = 255
Left = 9120
TabIndex = 21
Top = 4440
Width = 735
End
End
Attribute VB_Name = "frmBookDoc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private bAdd As Boolean
Private Sub LoadData()
Dim strFilter As String
Dim db As New DataBases
Dim rs As Recordset
If Len(Trim(txbOne.Text)) = 0 Then
If Len(Trim(txbTwo.Text)) = 0 Then
If Len(Trim(txbThree.Text)) = 0 Then
strFilter = ""
Else
strFilter = "where 书名 like '"
strFilter = strFilter + Trim(txbThree.Text) + "%'"
End If
Else
strFilter = "where 编号 like '"
strFilter = strFilter + Trim(txbTwo.Text) + "%'"
If Len(Trim(txbThree.Text)) <> 0 Then
strFilter = strFilter + " and 书名 like '"
strFilter = strFilter + Trim(txbThree.Text) + "%'"
End If
End If
Else
strFilter = "where 条形码 like '"
strFilter = strFilter + Trim(txbOne.Text) + "%'"
If Len(Trim(txbTwo.Text)) <> 0 Then
strFilter = strFilter + " and 编号 like '"
strFilter = strFilter + Trim(txbTwo.Text) + "%'"
If Len(Trim(txbThree.Text)) <> 0 Then
strFilter = strFilter + " and 书名 like '"
strFilter = strFilter + Trim(txbThree.Text) + "%'"
End If
Else
If Len(Trim(txbThree.Text)) <> 0 Then
strFilter = strFilter + " and 书名 like '"
strFilter = strFilter + Trim(txbThree.Text) + "%'"
End If
End If
End If
Set rs = db.RunSelectSQLUpdatable("select * from 图书信息 " + strFilter)
'根据查询条件重新填充DataGrid
Set Adodc1.Recordset = rs
End Sub
Private Sub btnSearch_Click()
LoadData
End Sub
Private Sub Form_Load()
Dim db As New DataBases
Adodc1.ConnectionString = db.sConn
Adodc2.ConnectionString = db.sConn
Adodc3.ConnectionString = db.sConn
Adodc4.ConnectionString = db.sConn
LoadData
SetTextBoxState (False)
End Sub
Private Sub SetToolBarState(ByVal bState As Boolean)
'设置Button的是否能够单击
Toolbar1.Buttons("btnFirst").Enabled = bState
Toolbar1.Buttons("btnBefore").Enabled = bState
Toolbar1.Buttons("btnNext").Enabled = bState
Toolbar1.Buttons("btnLast").Enabled = bState
Toolbar1.Buttons("btnNew").Enabled = bState
Toolbar1.Buttons("btnModify").Enabled = bState
Toolbar1.Buttons("btnDelete").Enabled = bState
Toolbar1.Buttons("btnSave").Enabled = Not bState
Toolbar1.Buttons("btnCancel").Enabled = Not bState
grdDataGrid.Enabled = bState
End Sub
Private Sub SetTextBoxState(ByVal bState As Boolean)
Me.txbCode.Enabled = bState
Me.txbNumber.Enabled = bState
Me.txbName.Enabled = bState
Me.cbbType.Enabled = bState
Me.txbRemark.Enabled = bState
Me.txbAuthor.Enabled = bState
Me.txbTranslator.Enabled = bState
Me.txbISBN.Enabled = bState
Me.cbbPress.Enabled = bState
Me.txbPrice.Enabled = bState
Me.txbTotalPages.Enabled = bState
Me.txbWorker.Enabled = bState
Me.ckbRegist.Enabled = bState
Me.cbbBookcase.Enabled = bState
End Sub
Private Sub Clear()
Me.txbCode.Text = ""
Me.txbNumber.Text = ""
Me.txbName.Text = ""
Me.cbbType.Text = ""
Me.txbRemark.Text = ""
Me.txbAuthor.Text = ""
Me.txbTranslator.Text = ""
Me.txbISBN.Text = ""
Me.cbbPress.Text = ""
Me.txbPrice.Text = "0"
Me.txbTotalPages.Text = ""
Me.txbWorker.Text = ""
Me.cbbBookcase.Text = ""
Me.ckbRegist.Value = 0
End Sub
Private Sub SaveForUpdate()
Adodc1.Recordset.UpdateBatch adAffectAll
End Sub
Private Sub DeleteData()
Adodc1.Recordset.Delete adAffectCurrent
Adodc1.Recordset.UpdateBatch adAffectAll
End Sub
Private Sub SaveForAdd()
Dim db As New DataBases
Dim strSQL As String
strSQL = "insert into 图书信息(条形码, 编号, 书名, 类型, 作者, 译者, ISBN, 出版社, 价格, 页码, 书架名称, 操作员, 简介, 是否注销) values ('"
strSQL = strSQL + Trim(txbCode.Text) + "','"
strSQL = strSQL + Trim(txbNumber.Text) + "','"
strSQL = strSQL + Trim(txbName.Text) + "','"
strSQL = strSQL + Trim(cbbType.Text) + "','"
strSQL = strSQL + Trim(txbAuthor.Text) + "','"
strSQL = strSQL + Trim(txbTranslator.Text) + "','"
strSQL = strSQL + Trim(txbISBN.Text) + "','"
strSQL = strSQL + Trim(cbbPress.Text) + "',"
strSQL = strSQL + Trim(txbPrice.Text) + ",'"
strSQL = strSQL + Trim(txbTotalPages.Text) + "','"
strSQL = strSQL + Trim(cbbBookcase.Text) + "','"
strSQL = strSQL + Trim(txbWorker.Text) + "','"
strSQL = strSQL + Trim(txbRemark.Text) + "','"
strSQL = strSQL + Trim(ckbRegist.Value) + "')"
db.RunSelectSQL (strSQL)
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If StrComp(Button.Key, "btnFirst") = 0 Then
Adodc1.Recordset.MoveFirst
ElseIf StrComp(Button.Key, "btnBefore") = 0 Then
Adodc1.Recordset.MovePrevious
ElseIf StrComp(Button.Key, "btnNext") = 0 Then
Adodc1.Recordset.MoveNext
ElseIf StrComp(Button.Key, "btnLast") = 0 Then
Adodc1.Recordset.MoveLast
ElseIf StrComp(Button.Key, "btnNew") = 0 Then
bAdd = True
Adodc1.Recordset.AddNew
SetTextBoxState (True)
SetToolBarState (False)
Clear
ElseIf StrComp(Button.Key, "btnModify") = 0 Then
bAdd = False
SetTextBoxState (True)
SetToolBarState (False)
ElseIf StrComp(Button.Key, "btnDelete") = 0 Then
If MsgBox("确定要删除吗？", vbYesNo) = vbYes Then
DeleteData
End If
ElseIf StrComp(Button.Key, "btnSave") = 0 Then
SetTextBoxState (False)
SetToolBarState (True)
If bAdd = True Then
'为新增数据保存
SaveForAdd
Adodc1.Recordset.CancelUpdate
Adodc1.Recordset.Requery
Else
'为更新数据保存
SaveForUpdate
End If
ElseIf StrComp(Button.Key, "btnCancel") = 0 Then
Adodc1.Recordset.CancelUpdate
Adodc1.Recordset.Requery
SetTextBoxState (False)
SetToolBarState (True)
ElseIf StrComp(Button.Key, "btnExit") = 0 Then
Hide
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -