?? editbook.frm
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Begin VB.Form EditBook
BorderStyle = 3 'Fixed Dialog
Caption = "編輯修改圖書"
ClientHeight = 5745
ClientLeft = 45
ClientTop = 330
ClientWidth = 6855
Icon = "EditBook.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5745
ScaleWidth = 6855
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Cancel = -1 'True
Caption = "關閉(&C)"
Height = 495
Left = 5160
TabIndex = 18
Top = 5160
Width = 1455
End
Begin VB.Frame Frame2
Height = 135
Left = 720
TabIndex = 17
Top = 4920
Width = 5895
End
Begin VB.PictureBox Picture2
BorderStyle = 0 'None
Height = 1575
Left = 240
ScaleHeight = 1575
ScaleWidth = 6375
TabIndex = 13
Top = 3360
Width = 6375
Begin VB.CommandButton cmdOkCancel
Caption = "取消"
Height = 735
Index = 1
Left = 4080
Picture = "EditBook.frx":0442
Style = 1 'Graphical
TabIndex = 15
Top = 720
Width = 1455
End
Begin VB.CommandButton cmdOkCancel
Caption = "確定"
Height = 735
Index = 0
Left = 1080
Picture = "EditBook.frx":074C
Style = 1 'Graphical
TabIndex = 14
Top = 720
Width = 1455
End
Begin VB.Label labFlag
AutoSize = -1 'True
Caption = "確實要修改當前記錄嗎？"
ForeColor = &H000000FF&
Height = 180
Left = 2280
TabIndex = 16
Top = 240
Width = 1980
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 120
Top = 4920
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "EditBook.frx":0B8E
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "EditBook.frx":0FEE
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "EditBook.frx":144E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "EditBook.frx":18AE
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "EditBook.frx":1D0E
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "EditBook.frx":216E
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "EditBook.frx":25CE
Key = ""
EndProperty
EndProperty
End
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 1335
Left = 360
ScaleHeight = 1335
ScaleWidth = 6375
TabIndex = 11
Top = 3360
Width = 6375
Begin MSComctlLib.Toolbar Toolbar1
Height = 855
Left = 360
TabIndex = 12
Top = 240
Width = 5175
_ExtentX = 9128
_ExtentY = 1508
ButtonWidth = 1138
ButtonHeight = 1349
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 12
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "最前"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "前一個"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "后一個"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "最后"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
ImageIndex = 5
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刪除"
ImageIndex = 6
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查找"
ImageIndex = 7
EndProperty
EndProperty
BorderStyle = 1
End
End
Begin VB.Frame Frame1
Caption = "圖書基本信息"
Height = 2895
Left = 240
TabIndex = 0
Top = 360
Width = 6375
Begin VB.TextBox txtBookNum
ForeColor = &H00FF0000&
Height = 330
Left = 1200
TabIndex = 5
Top = 480
Width = 2055
End
Begin VB.TextBox txtBookName
ForeColor = &H00000000&
Height = 315
Left = 1200
TabIndex = 4
Text = "Text1"
Top = 1290
Width = 2535
End
Begin VB.TextBox txtBookChu
ForeColor = &H00000000&
Height = 315
Left = 1200
TabIndex = 3
Text = "Text1"
Top = 2280
Width = 2535
End
Begin VB.TextBox txtCost
ForeColor = &H00000000&
Height = 315
Left = 4800
TabIndex = 2
Text = "Text1"
Top = 2160
Width = 1335
End
Begin VB.ComboBox Combo1
ForeColor = &H00000000&
Height = 300
ItemData = "EditBook.frx":2A2E
Left = 4800
List = "EditBook.frx":2A30
TabIndex = 1
Text = "Combo1"
Top = 1320
Width = 1335
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "圖書編號"
ForeColor = &H000000C0&
Height = 180
Index = 0
Left = 360
TabIndex = 10
Top = 600
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "書 名"
ForeColor = &H00FF0000&
Height = 180
Index = 1
Left = 360
TabIndex = 9
Top = 1320
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "價 格"
ForeColor = &H00FF0000&
Height = 180
Index = 2
Left = 3960
TabIndex = 8
Top = 2280
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "類 別"
ForeColor = &H00FF0000&
Height = 180
Index = 3
Left = 3960
TabIndex = 7
Top = 1320
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "出版社"
ForeColor = &H00FF0000&
Height = 180
Index = 4
Left = 360
TabIndex = 6
Top = 2280
Width = 540
End
Begin VB.Image Image1
Height = 480
Left = 5400
Picture = "EditBook.frx":2A32
Top = 240
Width = 480
End
End
End
Attribute VB_Name = "EditBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As Database
Dim rst As Recordset
Dim Rec As Integer
Dim StrFlag As String
Dim NumFlag As Boolean
Dim db1 As Database
Dim rst1 As Recordset
Dim i As Integer
Private Sub cmdOkCancel_Click(Index As Integer)
Select Case Index
Case 0
If StrFlag = "修改" Then
rst.Edit
WriteIn
rst.Update
Disp
Picture2.Visible = False
Picture1.Visible = True
SetTxt (False)
ElseIf StrFlag = "刪除" Then
rst.Delete
rst.MovePrevious
If rst.BOF Then rst.MoveNext
Disp
Picture2.Visible = False
Picture1.Visible = True
End If
Case 1
Disp
Picture2.Visible = False
Picture1.Visible = True
SetTxt (False)
End Select
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set db = Workspaces(0).OpenDatabase(App.Path & "\DataBase\BookMIS.mdb", False)
Set rst = db.OpenRecordset("Book", dbOpenTable)
rst.Index = "圖書編號"
Set db1 = Workspaces(0).OpenDatabase(App.Path & "\DataBase\BookMIS.mdb", False)
Set rst1 = db1.OpenRecordset("Type", dbOpenTable)
Rec = rst.RecordCount
If Rec = 0 Then
Toolbar1.Enabled = False
SetTxt (False)
End If
SetTxt (False)
rst.MoveFirst
Disp
TypeAdd
Picture1.Visible = True
Picture2.Visible = False
NumFlag = False
End Sub
Private Sub Disp()
txtBookNum = rst.Fields("圖書編號") & vbNullString
txtBookName = rst.Fields("書名") & vbNullString
txtCost = rst.Fields("價格") & Empty
txtBookChu = rst.Fields("出版社") & vbNullString
Combo1.Text = rst.Fields("類別") & vbNullString
End Sub
Private Sub Kong()
txtBookNum = ""
txtBookName = ""
txtBookChu = ""
Combo1.Text = ""
End Sub
Private Sub SetTxt(Bool As Boolean)
txtBookNum.Enabled = Bool
txtCost.Enabled = Bool
txtBookName.Enabled = Bool
txtBookChu.Enabled = Bool
Combo1.Enabled = Bool
End Sub
Private Sub Form_Unload(Cancel As Integer)
rst.Close
rst1.Close
db1.Close
db.Close
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
rst.MoveFirst
Disp
Case 2
rst.MovePrevious
If rst.BOF Then
rst.MoveNext
Exit Sub
End If
Disp
Case 3
rst.MoveNext
If rst.EOF Then
rst.MovePrevious
Exit Sub
End If
Disp
Case 4
rst.MoveLast
Disp
Case 10
StrFlag = "修改"
SetTxt (True)
labFlag.Caption = "您確實要修改當前記錄嗎？"
Picture1.Visible = False
Picture2.Visible = True
Case 11
StrFlag = "刪除"
labFlag.Caption = "您確實要刪除當前記錄嗎？"
Picture1.Visible = False
Picture2.Visible = True
Case 12
SearchNum.Show (1)
If SearchFlag = True Then
rst.Seek "=", BookBianHao
If rst.NoMatch Then
MsgBox "沒有此圖書編號！", 0 + 48, "查找失敗"
Exit Sub
End If
Disp
SearchFlag = False
End If
End Select
End Sub
Private Sub WriteIn()
rst.Fields("圖書編號") = txtBookNum
rst.Fields("書名") = txtBookName
rst.Fields("價格") = Val(txtCost)
rst.Fields("出版社") = txtBookChu
rst.Fields("類別") = Combo1.Text
End Sub
Private Sub TypeAdd()
rst1.MoveLast
rst1.MoveFirst
For i = 1 To rst1.RecordCount
Combo1.AddItem rst1.Fields("類別")
rst1.MoveNext
If rst1.EOF Then Exit Sub
Next
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -