📄 jyform.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"
Begin VB.Form Form3
BorderStyle = 1 'Fixed Single
Caption = "商品交易窗体"
ClientHeight = 6660
ClientLeft = 60
ClientTop = 345
ClientWidth = 8475
LinkTopic = "Form3"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6660
ScaleWidth = 8475
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command4
Caption = "删除记录"
Height = 375
Left = 4440
TabIndex = 15
Top = 5160
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "刷新记录"
Height = 375
Left = 3240
TabIndex = 14
Top = 5160
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "返回"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6600
TabIndex = 13
Top = 5280
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "新交易"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6600
TabIndex = 12
Top = 4680
Width = 1335
End
Begin VB.TextBox Text5
DataField = "小计"
DataSource = "Adodc1"
Height = 375
Left = 6840
TabIndex = 11
Top = 3960
Width = 1095
End
Begin VB.TextBox Text4
DataField = "交易日期"
DataSource = "Adodc1"
Height = 375
Left = 6840
TabIndex = 10
Top = 3240
Width = 1095
End
Begin VB.TextBox Text3
DataField = "件数"
DataSource = "Adodc1"
Height = 375
Left = 6840
TabIndex = 9
Top = 2520
Width = 1095
End
Begin VB.TextBox Text2
DataField = "价格"
DataSource = "Adodc1"
Height = 375
Left = 6840
TabIndex = 8
Top = 1800
Width = 1095
End
Begin VB.TextBox Text1
DataField = "商品编号"
DataSource = "Adodc1"
Height = 375
Left = 6840
TabIndex = 7
Top = 1080
Width = 1095
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "jyForm.frx":0000
Height = 4815
Left = 120
TabIndex = 1
Top = 120
Width = 5535
_ExtentX = 9763
_ExtentY = 8493
_Version = 393216
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
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 120
Top = 5040
Width = 2775
_ExtentX = 4895
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=E:\vb写作\商品交易管理数据库\Spjybase.mdb"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=E:\vb写作\商品交易管理数据库\Spjybase.mdb"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "spjy"
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 VB.Label Label2
Caption = "金额小计"
Height = 375
Index = 4
Left = 5760
TabIndex = 6
Top = 3960
Width = 855
End
Begin VB.Label Label2
Caption = "交易日期"
Height = 375
Index = 3
Left = 5760
TabIndex = 5
Top = 3240
Width = 855
End
Begin VB.Label Label2
Caption = " 件数"
Height = 375
Index = 2
Left = 5760
TabIndex = 4
Top = 2520
Width = 855
End
Begin VB.Label Label2
Caption = " 价格"
Height = 375
Index = 1
Left = 5760
TabIndex = 3
Top = 1800
Width = 855
End
Begin VB.Label Label2
Caption = "商品编号"
Height = 375
Index = 0
Left = 5760
TabIndex = 2
Top = 1080
Width = 855
End
Begin VB.Label Label1
BorderStyle = 1 'Fixed Single
Caption = "Label1"
Height = 4815
Left = 120
TabIndex = 0
Top = 120
Width = 5535
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Adodc1_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
'这就是放置错误处理代码的地方
'如果想忽略错误，注释掉下一行代码
'如果想捕捉错误'在这里添加错误处理代码
MsgBox "数据错误事件命中错误：" & Error$(DataErr)
Response = 0 '忽略错误
End Sub 'adodc错误过程触发代码
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'记录状态显示代码
Adodc1.Caption = "记录：" & (Adodc1.Recordset.AbsolutePosition + 1)
End Sub
Private Sub Command1_Click() '新交易
Adodc1.recorset.AddNew
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click() '刷新记录
Adodc1.Recordset.uudate
End Sub
Private Sub Command4_Click() '删除记录
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveLast
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text3_Change()
Text5.Text = Str(Val(Text2.Text) * Val(Text3.Text))
End Sub
Private Sub Text3_Click()
Text5.Text = Str(Val(Text2.Text) * Val(Text3.Text))
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
Text5.Text = Str(Val(Text2.Text) * Val(Text3.Text))
End Sub
Private Sub Text4_Change()
Text4.Text = Str(Data)
End Sub
Private Sub Text5_Change() ' 金额小计
Text5.Text = Str(Val(Text2.Text) * Val(Text3.Text))
End Sub
Private Sub Text5_Click()
Text5.Text = Str(Val(Text2.Text) * Val(Text3.Text))
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -