?? frmbooks.frm
字號:
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 = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form FrmBooks
BorderStyle = 1 'Fixed Single
Caption = "圖書管理"
ClientHeight = 7485
ClientLeft = 45
ClientTop = 330
ClientWidth = 11910
Icon = "FrmBooks.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7485
ScaleWidth = 11910
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton Cmd_Close
Caption = "返 回"
Height = 375
Left = 8373
TabIndex = 7
Top = 6840
Width = 1100
End
Begin VB.CommandButton Cmd_Borrow
Caption = "查看借閱歸還記錄"
Height = 375
Left = 6353
TabIndex = 6
Top = 6840
Width = 1815
End
Begin VB.CommandButton Cmd_Del
Caption = "刪 除"
Height = 375
Left = 5048
TabIndex = 5
Top = 6840
Width = 1100
End
Begin VB.CommandButton Cmd_Modi
Caption = "修 改"
Height = 375
Left = 3743
TabIndex = 4
Top = 6840
Width = 1100
End
Begin VB.CommandButton Cmd_Add
Caption = "添 加"
Height = 375
Left = 2438
TabIndex = 3
Top = 6840
Width = 1100
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 7440
Top = 0
Visible = 0 'False
Width = 2415
_ExtentX = 4260
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Books;Data Source=127.0.0.1"
OLEDBString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Books;Data Source=127.0.0.1"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = "sa"
Password = "sa"
RecordSource = "Select * from BookInfo"
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 MSDataGridLib.DataGrid DataGrid1
Bindings = "FrmBooks.frx":0442
Height = 6375
Left = 3120
TabIndex = 2
Top = 120
Width = 8655
_ExtentX = 15266
_ExtentY = 11245
_Version = 393216
AllowUpdate = 0 'False
HeadLines = 1
RowHeight = 15
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 = 2
BeginProperty Column00
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 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
SplitCount = 1
BeginProperty Split0
MarqueeStyle = 3
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin VB.CommandButton Cmd_Back
BackColor = &H80000004&
Cancel = -1 'True
Caption = "返 回"
Height = 400
Left = 12360
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 1
Top = 6600
Width = 1100
End
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483628
ImageWidth = 16
ImageHeight = 16
MaskColor = 16777215
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmBooks.frx":0457
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmBooks.frx":2DE9
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmBooks.frx":577B
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmBooks.frx":810D
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmBooks.frx":AA9F
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView TreeView1
Height = 6375
Left = 120
TabIndex = 0
Top = 120
Width = 2895
_ExtentX = 5106
_ExtentY = 11245
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
Sorted = -1 'True
Style = 7
HotTracking = -1 'True
SingleSel = -1 'True
ImageList = "ImageList1"
BorderStyle = 1
Appearance = 1
MousePointer = 99
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "FrmBooks"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public nTypeId As Integer '分類編號
Public bHaveSon As Boolean '是否有子節點
Public Focuskey As String
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Cmd_Add_Click()
'只能在根節點下面添加書籍，判斷是否為根節點
If Focuskey = "a0" Then '根結點
MsgBox ("只能在最下級添加圖書")
Exit Sub
End If
If bHaveSon Then
MsgBox ("只能在最下級添加圖書")
Exit Sub
End If
'將Modify變量設置為False，表示當前狀態為插入新記錄
FrmBookEdit.Modify = False
'初始化FrmBookEdit信息
FrmBookEdit.txtBookNo = ""
FrmBookEdit.txtBookName = ""
FrmBookEdit.txtAuthor = ""
FrmBookEdit.txtPublisher = ""
FrmBookEdit.txtLocation = ""
FrmBookEdit.txtPrice = "0"
FrmBookEdit.txtDescription = ""
FrmBookEdit.nBookTypeId = CurBookType.TypeId
FrmBookEdit.txtSubType = CurBookType.TypeName
FrmBookEdit.txtType = CurBookType.GetUpperName(CurBookType.TypeId)
'啟動編輯窗體
FrmBookEdit.Show 1
'刷新DataGrid表格的內容
GridRefresh
End Sub
Private Sub Cmd_Back_Click()
Unload Me
End Sub
Private Sub Cmd_Borrow_Click()
'使用Adodc1.Recordset.EOF判斷當前是否選擇了記錄
If Adodc1.Recordset.EOF = True Then
MsgBox "請選擇記錄"
Exit Sub
End If
'通過Adodc1.Recordset.Fields()讀取Adodc1記錄源中的當前數據
FrmRecordView.TmpBNo = Trim(Adodc1.Recordset.Fields(0))
FrmRecordView.Caption = "圖書借閱歸還記錄"
FrmRecordView.txtBookNo = Trim(Adodc1.Recordset.Fields(0))
FrmRecordView.txtBookName = Trim(Adodc1.Recordset.Fields(1))
'設置借閱狀態為"全部"
FrmRecordView.ComboFlag.Visible = True
FrmRecordView.ComboFlag.ListIndex = 0
'顯示窗體
FrmRecordView.Show 1
End Sub
Private Sub Cmd_Close_Click()
Unload Me
End Sub
'單擊“刪除”按鈕
Private Sub Cmd_Del_Click()
Dim TmpNo As String
'使用Adodc1.Recordset.EOF判斷當前是否選擇了記錄
If Adodc1.Recordset.EOF = True Then
MsgBox "請選擇記錄"
Exit Sub
End If
'通過Adodc1.Recordset.Fields()讀取Adodc1記錄源中的當前數據
TmpNo = Trim(Adodc1.Recordset.Fields(0))
'詢問用戶是否確認刪除
If MsgBox("是否刪除當前行?", vbYesNo, "確認") = vbYes Then
Call MyBookInfo.Delete(TmpNo)
MsgBox "刪除成功"
End If
'刷新DataGrid表格的內容
GridRefresh
End Sub
'單擊“修改”按鈕
Private Sub Cmd_Modi_Click()
If Adodc1.Recordset.EOF = True Then
MsgBox "請選擇記錄"
Exit Sub
End If
'將Modify變量設置為True，表示當前狀態為修改新記錄
FrmBookEdit.Modify = True
'初始化FrmBookEdit信息
'設置當前編輯的圖書編號
FrmBookEdit.OriNo = Adodc1.Recordset.Fields(0)
FrmBookEdit.txtBookNo = Adodc1.Recordset.Fields(0)
'圖書編號不能修改
FrmBookEdit.txtBookNo.Enabled = False
'圖書名
FrmBookEdit.txtBookName = Trim(Adodc1.Recordset.Fields(1))
'圖書分類，根據圖書編號取得分類編號，而后取得分類名稱和對應的上級分類名稱
FrmBookEdit.txtType = MyBookType.GetUpperName((MyBookInfo.GetTypeId(Adodc1.Recordset.Fields(0))))
FrmBookEdit.txtSubType = MyBookType.GetName((MyBookInfo.GetTypeId(Adodc1.Recordset.Fields(0))))
'作者
FrmBookEdit.txtAuthor = Trim(Adodc1.Recordset.Fields(2))
'出版社
FrmBookEdit.txtPublisher = Trim(Adodc1.Recordset.Fields(3))
'圖書位置
FrmBookEdit.txtLocation = Trim(Adodc1.Recordset.Fields(4))
'價格
FrmBookEdit.txtPrice = Trim(Adodc1.Recordset.Fields(5))
'價格
FrmBookEdit.txtTotal = Trim(Adodc1.Recordset.Fields(6))
'內容簡介
FrmBookEdit.txtDescription = Trim(Adodc1.Recordset.Fields(7))
'啟動編輯窗體
FrmBookEdit.Show 1
'刷新DataGrid表格的內容
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Dim TmpNode As Node
'設置當前的焦點分類
FocusClassName = "分類名稱"
Focuskey = "a0"
'設置根結點
Set TmpNode = TreeView1.Nodes.Add(, , "a0", "圖書分類", 1, 3)
TmpNode.Selected = True
TmpNode.ExpandedImage = 2
'調用函數將所有圖書分類添加到TreeView1中
Call AddtoTree(TreeView1, "a0")
'讀取當前節點的信息
TreeView1_Click
End Sub
Private Sub TreeView1_Click()
'根據關鍵字獲取圖書分類信息
Focuskey = TreeView1.SelectedItem.Key
CurBookType.TypeName = TreeView1.SelectedItem.Text
CurBookType.TypeId = Val(Right(TreeView1.SelectedItem.Key, Len(TreeView1.SelectedItem.Key) - 1))
If Focuskey = "a0" Then '根結點
nTypeId = -1
Exit Sub
End If
'如果包含子結點，則設置圖像格式
bHaveSon = CurBookType.HaveSon(CurBookType.TypeId)
If bHaveSon = False Then
TreeView1.SelectedItem.ExpandedImage = 4
TreeView1.SelectedItem.Image = 4
TreeView1.SelectedItem.SelectedImage = 5
End If
nTypeId = CurBookType.TypeId
'讀取CurBookType中的所有圖書分類信息
CurBookType.GetInfo (CurBookType.TypeId)
GridRefresh
End Sub
Private Sub GridRefresh()
If nTypeId = -1 Then '表示為根目錄
strSearch = ""
ElseIf bHaveSon = True Then '表示為有子節點的分類，顯示此分類下的所有圖書
strSearch = " ,BookType t WHERE b.TypeId=t.TypeId AND t.UpperId=" + Trim(Str(nTypeId))
Else '表示為根節點
strSearch = " WHERE b.TypeId=" + Trim(Str(nTypeId))
End If
'設置ADO控件的連接字符串
Adodc1.ConnectionString = conn
'刷新DataGrid記錄
Adodc1.RecordSource = "SELECT b.BookNo AS 書號,b.BookName AS 書名,b.Author AS 作者," & _
"b.Publisher AS 出版社,b.Location AS 書架位置,b.Price AS 單價,b.Total AS 總數量 " & _
",b.Description AS 內容介紹 FROM BookInfo b " + strSearch
' MsgBox (Adodc1.RecordSource)
Adodc1.Refresh
DataGrid1.Columns(0).Width = 1000
DataGrid1.Columns(1).Width = 2000
DataGrid1.Columns(2).Width = 1200
DataGrid1.Columns(3).Width = 1600
DataGrid1.Columns(4).Width = 1000
DataGrid1.Columns(5).Width = 800
DataGrid1.Columns(6).Width = 1000
DataGrid1.Columns(7).Width = 2000
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -