📄 form1.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form Form1
Caption = "图书销售管理系统V1.0"
ClientHeight = 4440
ClientLeft = 60
ClientTop = 345
ClientWidth = 8055
LinkTopic = "Form1"
ScaleHeight = 4440
ScaleWidth = 8055
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton CmdClose
Caption = "退出"
Height = 375
Left = 6960
TabIndex = 6
Top = 3960
Width = 975
End
Begin VB.CommandButton CmdFindNext
Caption = "继续查找"
Enabled = 0 'False
Height = 375
Left = 5280
TabIndex = 5
Top = 3960
Width = 975
End
Begin VB.CommandButton CmdFind
Caption = "查找"
Height = 375
Left = 4320
TabIndex = 4
Top = 3960
Width = 975
End
Begin VB.CommandButton CmdDelete
Caption = "删除"
Enabled = 0 'False
Height = 375
Left = 1680
TabIndex = 3
Top = 3960
Width = 960
End
Begin VB.CommandButton CmdJS
Caption = "计算金额"
Enabled = 0 'False
Height = 375
Left = 2640
TabIndex = 2
Top = 3960
Width = 1095
End
Begin VB.CommandButton CmdEditmode
Caption = "编辑"
Height = 375
Left = 100
TabIndex = 1
Top = 3960
Width = 975
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3480
Width = 7815
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "Form1.frx":0000
Height = 3255
Left = 120
OleObjectBlob = "Form1.frx":0014
TabIndex = 0
Top = 120
Width = 7815
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub DispRecNo()
Dim CurRecmark As Variant
CurRecmark = Data1.Recordset.Bookmark
Data1.Recordset.MoveLast
TotalRecNum = Data1.Recordset.RecordCount
Data1.Recordset.Bookmark = CurRecmark
If Data1.Recordset.BOF Then
Data1.Caption = "记录总数：" & TotalRecNum & Space(10) & "当前位于：首记录!"
ElseIf Data1.Recordset.EOF Then
Data1.Caption = "记录总数：" & TotalRecNum & Space(10) & "当前位于：尾记录!"
Else
Data1.Caption = "记录总数：" & TotalRecNum & Space(10) & "当前记录号：" & CurRecNo
End If
End Sub
Private Sub CmdEditmode_Click()
If CmdEditmode.Caption = "编辑" Then
DBGrid1.AllowAddNew = True
DBGrid1.AllowDelete = True
DBGrid1.AllowUpdate = True
CmdDelete.Enabled = True
CmdJS.Enabled = True
CmdEditmode.Caption = "只读"
Else
DBGrid1.AllowAddNew = False
DBGrid1.AllowDelete = False
DBGrid1.AllowUpdate = False
CmdDelete.Enabled = False
CmdJS.Enabled = False
CmdEditmode.Caption = "编辑"
End If
End Sub
Private Sub CmdDelete_Click()
If Not Data1.Recordset.EOF Then
Data1.Recordset.Delete
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
Else
Data1.Recordset.MoveNext
End If
End If
End Sub
Private Sub CmdJS_Click()
Dim value, Totalvalue As Single, num As Integer
Data1.UpdateRecord
value = Data1.Recordset.Fields(3).value
num = Data1.Recordset.Fields(4).value
Totalvalue = value * num
Data1.Recordset.Edit
Data1.Recordset.Fields(6).value = Totalvalue
Data1.UpdateRecord
End Sub
Private Sub CmdReadOnly_Click()
End Sub
Private Sub CmdFind_Click()
Dim oldLocation As Variant
Load Form2
Form2.Show 1
If cancelFlag Then Exit Sub
oldLocation = Data1.Recordset.Bookmark
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst FindString
If Data1.Recordset.NoMatch Then
Data1.Recordset.Bookmark = oldLocation
Data1.Caption = "记录总数：" & TotalRecNum & Space(10) & "当前记录号：" & (Data1.Recordset.AbsolutePosition + 1)
MsgBox "未找到符合条件的记录!", 64, "数据查询"
Else
CmdFindNext.Enabled = True '让继续查找生效
Data1.Caption = "记录总数：" & TotalRecNum & Space(10) & "当前记录号：" & (Data1.Recordset.AbsolutePosition + 1)
End If
End Sub
Private Sub CmdFindNext_Click()
If Not Data1.Recordset.EOF And (Not Data1.Recordset.NoMatch) Then
Data1.Recordset.FindNext FindString
If Data1.Recordset.NoMatch Then
MsgBox "搜索完毕!", 64, "信息查询"
CmdFindNext.Enabled = False ' 让继续查找失效
End If
End If
End Sub
Private Sub CmdRefresh_Click()
Data1.Refresh
DBGrid1.Refresh
End Sub
Private Sub CmdClose_Click()
If MsgBox("真的要退出吗?", 36, "图书销售管理") = vbYes Then
Data1.Recordset.Close
End
End If
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
On Error Resume Next
Select Case Action
Case 1 ' movefirst
CurRecNo = 1
Case 2 ' movePrevious
If CurRecNo = 1 Then Beep
If CurRecNo > 1 Then CurRecNo = CurRecNo - 1
Case 3 'movenext
If CurRecNo = TotalRecNum Then Beep
If CurRecNo < TotalRecNum Then CurRecNo = CurRecNo + 1
Case 4 'movelast
CurRecNo = TotalRecNum
Case 5, 6 'addnew或update
' If Data1.EditMode = 2 Then 'addnew
' If MsgBox("保存添加的记录吗?", 36, "图书销售管理") = vbYes Then
' TotalRecNum = TotalRecNum + 1
' Else
' Save = False
' End If
' Else
' If MsgBox("保存更改结果吗?", 36, "图书销售管理") = vbNo Then
' Save = False
' End If
' End If
Case 7 'delete
TotalRecNum = TotalRecNum - 1
Case 8 'find方法群
CurRecNo = Data1.Recordset.AbsolutePosition + 1
Case 9 'bookmark
Case 10, 11 'close
If Save Then
If MsgBox("保存更改结果吗?", 36, "图书销售管理") = vbNo Then
Save = False
End If
End If
End Select
DispRecNo '显示当前记录信息
Exit Sub
End Sub
Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Data1.Caption = "记录总数：" & TotalRecNum & Space(10) & "当前记录号：" & (Data1.Recordset.AbsolutePosition + 1)
End Sub
Private Sub Form_Load()
Dim RecNum As Long
Data1.DatabaseName = App.Path + "\book.mdb"
Data1.RecordSource = "xsku"
Data1.Refresh
'设置网格的行高
DBGrid1.RowHeight = 329.9528
'设置各列的显示宽度
DBGrid1.Columns(0).Width = 500
DBGrid1.Columns(1).Width = 900
DBGrid1.Columns(2).Width = 3600
DBGrid1.Columns(3).Width = 600
DBGrid1.Columns(4).Width = 900
DBGrid1.Columns(5).Width = 1000
DBGrid1.Columns(6).Width = 900
DBGrid1.Columns(7).Width = 700
DBGrid1.Refresh
'显示记录信息
Data1.Recordset.MoveLast
TotalRecNum = Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst
Data1.Caption = "记录总数：" & TotalRecNum & Space(10) & "当前记录号： 1"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -