?? 主界面.frm
字號:
VERSION 5.00
Begin VB.Form form10
Caption = "主界面"
ClientHeight = 7245
ClientLeft = 4635
ClientTop = 2580
ClientWidth = 9480
DrawWidth = 3
LinkTopic = "Form1"
Picture = "主界面.frx":0000
ScaleHeight = 4142.367
ScaleMode = 0 'User
ScaleWidth = 8000
WindowState = 2 'Maximized
Begin VB.Label Label1
Caption = "小型售書管理系統 開發者 劉振華 編號 20054440216"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 2640
TabIndex = 0
Top = 5880
Width = 5175
End
Begin VB.Menu man
Caption = "會員管理(&M)"
Begin VB.Menu newman
Caption = "新會員(&N)"
End
Begin VB.Menu delman
Caption = "注銷會員(&D)"
End
End
Begin VB.Menu find
Caption = "查詢(&F)"
Begin VB.Menu all
Caption = "顯示所有圖書(&A)"
End
Begin VB.Menu name
Caption = "按書名查詢(&N)"
End
Begin VB.Menu user
Caption = "會員信息查詢(&M)"
End
End
Begin VB.Menu books
Caption = "書庫(&B)"
Begin VB.Menu new
Caption = "存入新書(&I)"
End
Begin VB.Menu del
Caption = "刪除舊書(&O)"
End
End
Begin VB.Menu st
Caption = "統計(&S)"
Begin VB.Menu sav
Caption = "購書統計(&S)"
End
End
Begin VB.Menu help
Caption = "幫助(&H)"
End
End
Attribute VB_Name = "form10"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim note As New ADODB.Recordset
Private Sub all_Click()
Dim sql As String
sql = "select * from 書庫表" 'Sql查詢書庫表
note.Open sql, cnn, 3, 2
If note.EOF And note.BOF Then
MsgBox "無書!"
note.Close
Else
form7.Show
On Error Resume Next '有錯誤也強制執行
note.MoveFirst
If Err.Number <> 0 Then Exit Sub '如果有錯則退出
Do While Not note.EOF '循環直到記錄集的末尾
form7.MSFlexGrid1.AddItem (Empty) '將記錄集合的數據輸出到MSFLEXGRID控件
form7.MSFlexGrid1.Row = form7.MSFlexGrid1.Rows - 2
form7.MSFlexGrid1.Col = 0
form7.MSFlexGrid1.Text = Trim(note.Fields("書號").Value)
form7.MSFlexGrid1.Col = 1
form7.MSFlexGrid1.Text = Trim(note.Fields("書名").Value)
form7.MSFlexGrid1.Col = 2
form7.MSFlexGrid1.Text = note.Fields("作者").Value
form7.MSFlexGrid1.Col = 3
form7.MSFlexGrid1.Text = Trim(note.Fields("定價").Value)
form7.MSFlexGrid1.Col = 4
form7.MSFlexGrid1.Text = note.Fields("出版社編號").Value
form7.MSFlexGrid1.Col = 5
form7.MSFlexGrid1.Text = note.Fields("數量").Value
form7.MSFlexGrid1.Col = 6
form7.MSFlexGrid1.Text = note.Fields("類別").Value
note.MoveNext
Loop
Set note = Nothing '釋放連接
form7.MSFlexGrid1.RemoveItem form7.MSFlexGrid1.Rows - 1
End If
End Sub
Private Sub del_Click() '以下為菜單欄鏈接部分
form6.Show
End Sub
Private Sub delman_Click()
form11.Show
End Sub
Private Sub Form_Load()
Call forOpen
End Sub
Private Sub help_Click()
Form12.Show
End Sub
Private Sub name_Click()
form4.Show
End Sub
Private Sub new_Click()
form9.Show
End Sub
Private Sub newman_Click()
form8.Show
End Sub
Private Sub sav_Click()
Form2.Show
End Sub
Private Sub user_Click()
form3.Show
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -