📄 frmcheckother.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmCheckOther
BackColor = &H00C0C0FF&
BorderStyle = 1 'Fixed Single
Caption = "信息修改"
ClientHeight = 5580
ClientLeft = 45
ClientTop = 435
ClientWidth = 9510
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5580
ScaleWidth = 9510
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdClear
Caption = "编辑"
Height = 375
Left = 1680
TabIndex = 26
Top = 4920
Width = 1095
End
Begin VB.TextBox txtNo
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 3600
TabIndex = 13
Top = 720
Width = 2535
End
Begin VB.TextBox txtName
Height = 285
Left = 3600
TabIndex = 12
Top = 1440
Width = 2535
End
Begin VB.ComboBox cboType
Height = 315
Left = 1800
Style = 2 'Dropdown List
TabIndex = 11
Top = 1920
Width = 2535
End
Begin VB.TextBox txtValue
Height = 285
Left = 1800
TabIndex = 10
Top = 2400
Width = 2535
End
Begin VB.TextBox txtUnit
Height = 285
Left = 1800
TabIndex = 9
Top = 3120
Width = 2535
End
Begin VB.TextBox txtPurge
Height = 285
Left = 1800
TabIndex = 8
Top = 3720
Width = 2535
End
Begin VB.TextBox txtSum
Height = 285
Left = 1800
TabIndex = 7
Top = 4200
Width = 2535
End
Begin VB.TextBox txtMonth
Height = 285
Left = 6000
TabIndex = 6
Top = 2160
Width = 2415
End
Begin VB.ComboBox cboProvince
Height = 315
Left = 6000
Style = 2 'Dropdown List
TabIndex = 5
Top = 3240
Width = 2415
End
Begin VB.ComboBox cboFactory
Height = 315
Left = 6000
Style = 2 'Dropdown List
TabIndex = 4
Top = 3840
Width = 2415
End
Begin VB.CommandButton cmdAdd
Caption = "添加"
Height = 375
Left = 3120
TabIndex = 3
Top = 4920
Width = 1095
End
Begin VB.CommandButton cmdDel
Caption = "删除"
Height = 375
Left = 4560
TabIndex = 2
Top = 4920
Width = 1095
End
Begin VB.CommandButton cmdModify
Caption = "修改"
Height = 375
Left = 6000
TabIndex = 1
Top = 4920
Width = 1095
End
Begin VB.CommandButton cmdEnd
Caption = "关闭"
Height = 375
Left = 7440
TabIndex = 0
Top = 4920
Width = 1095
End
Begin MSComCtl2.DTPicker dtpProduce
Height = 375
Left = 6000
TabIndex = 14
Top = 2640
Width = 2415
_ExtentX = 4260
_ExtentY = 661
_Version = 393216
Format = 166395905
CurrentDate = 38878
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "商品编号*"
Height = 195
Index = 0
Left = 2640
TabIndex = 25
Top = 840
Width = 780
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "商品名称*"
Height = 195
Index = 1
Left = 2610
TabIndex = 24
Top = 1440
Width = 780
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "商品种类"
Height = 195
Index = 2
Left = 840
TabIndex = 23
Top = 1920
Width = 720
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单价(元)"
Height = 195
Index = 3
Left = 960
TabIndex = 22
Top = 2400
Width = 630
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单位(如:元/千克)"
Height = 195
Index = 4
Left = 960
TabIndex = 21
Top = 2880
Width = 1290
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "净含量(g)"
Height = 195
Index = 6
Left = 960
TabIndex = 20
Top = 3720
Width = 735
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "库存量"
Height = 195
Index = 7
Left = 990
TabIndex = 19
Top = 4200
Width = 555
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "生产时间"
Height = 195
Index = 10
Left = 4920
TabIndex = 18
Top = 2760
Width = 735
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "保质期（天）"
Height = 195
Index = 11
Left = 4920
TabIndex = 17
Top = 2160
Width = 1095
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "生产省份"
Height = 195
Index = 12
Left = 4920
TabIndex = 16
Top = 3360
Width = 735
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "生产厂家"
Height = 195
Index = 13
Left = 4920
TabIndex = 15
Top = 3960
Width = 735
End
End
Attribute VB_Name = "frmCheckOther"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Sql As String
Dim RS As ADODB.Recordset
Private Sub cboProvince_click()
'厂名的添加
Sql = "select 厂名 from 生产厂家表 where 省份='" & Trim(Me.cboProvince.Text) & "'"
Set RS = dbSelect(Sql)
Me.cboFactory.Clear
While Not RS.EOF
Me.cboFactory.AddItem RS.Fields(0)
RS.MoveNext
Wend
End Sub
Private Sub cmdAdd_Click()
'添加
On Error Resume Next
If Trim(Me.txtNo.Text) <> "" And Trim(Me.txtName.Text) <> "" Then
Sql = "select * from 商品表 where 商品编号=" & Trim(Me.txtNo.Text)
Set RS = dbSelect(Sql)
If RS.EOF Then
Sql = "insert into 商品表 values("
Sql = Sql & Str(Val(Trim(Me.txtNo.Text)))
Sql = Sql & ",'" & Trim(Me.txtName.Text)
Sql = Sql & "','" & Trim(Me.cboType.Text)
Sql = Sql & "'," & Str(Val(Trim(Me.txtValue.Text)))
Sql = Sql & ",'" & Trim(Me.txtUnit.Text)
Sql = Sql & "'," & Str(Val(Trim(Me.txtPurge)))
Sql = Sql & "," & Str(Val(Trim(Me.txtSum.Text)))
Sql = Sql & "," & Str(Val(Trim(Me.txtMonth.Text)))
Sql = Sql & ",'" & Trim(Me.dtpProduce.Value)
Sql = Sql & "','" & Trim(Me.cboProvince.Text)
Sql = Sql & "','" & Trim(Me.cboFactory.Text)
Sql = Sql & "')"
dbOperate Sql
Else
MsgBox "库中已有!", , "提示"
End If
Set RS = Nothing
Else
MsgBox "主键不能为空"
Me.txtNo.SetFocus
End If
End Sub
Private Sub cmdClear_Click()
'清空所有文本框
Me.txtMonth.Text = ""
Me.txtName.Text = ""
Me.txtNo.Text = ""
Me.txtPurge.Text = ""
Me.txtSum.Text = ""
Me.txtUnit.Text = ""
Me.txtValue.Text = ""
End Sub
Private Sub cmdDel_Click()
'删除
Dim i As Integer
If Trim(Me.txtNo.Text) <> "" And Trim(Me.txtName.Text) <> "" Then
i = MsgBox("确信删除！", , "提示")
If i = 1 Then
Sql = "delete * from 商品表 where 商品编号=" & Trim(Me.txtNo.Text)
dbOperate (Sql)
End If
Else
MsgBox "主键不能为空"
Me.txtNo.SetFocus
End If
End Sub
Private Sub cmdEnd_Click()
Unload Me
End Sub
Private Sub cmdModify_Click()
'修改
If Trim(Me.txtNo.Text) <> "" And Trim(Me.txtName.Text) <> "" Then
Sql = "select * from 商品表 where 商品编号=" & Trim(Me.txtNo.Text)
Set RS = dbSelect(Sql)
If Not RS.EOF Then
Sql = "update 商品表 set 商品编号="
Sql = Sql & Str(Val(Trim(Me.txtNo.Text)))
Sql = Sql & ",商品名称='" & Trim(Me.txtName.Text)
Sql = Sql & "',种类='" & Trim(Me.cboType.Text)
Sql = Sql & "',单价=" & Str(Val(Trim(Me.txtValue.Text)))
Sql = Sql & ",单位='" & Trim(Me.txtUnit.Text)
Sql = Sql & "',净含量=" & Str(Val(Trim(Me.txtPurge)))
Sql = Sql & ",库存量=" & Str(Val(Trim(Me.txtSum.Text)))
Sql = Sql & ",保质期=" & Str(Val(Trim(Me.txtMonth.Text)))
Sql = Sql & ",生产时间='" & Trim(Me.dtpProduce.Value)
Sql = Sql & "',生产省份='" & Trim(Me.cboProvince.Text)
Sql = Sql & "',生产厂家='" & Trim(Me.cboFactory.Text)
Sql = Sql & "' where 商品编号=" & Trim(Me.txtNo.Text)
dbOperate Sql
Else
MsgBox "库中无此数据!", , "提示"
End If
Set RS = Nothing
Else
MsgBox "主键不能为空"
Me.txtNo.SetFocus
End If
End Sub
Private Sub Form_Load()
'初始化
Sql = "select 种类名 from 种类表"
Set RS = dbSelect(Sql)
While Not RS.EOF
Me.cboType.AddItem RS.Fields(0)
RS.MoveNext
Wend
Sql = "select 省名 from 省份表"
Set RS = dbSelect(Sql)
While Not RS.EOF
Me.cboProvince.AddItem RS.Fields(0)
RS.MoveNext
Wend
Set RS = Nothing
End Sub
Private Sub txtMonth_KeyPress(KeyAscii As Integer)
'保质期
If Not IsNumeric(Trim(Me.txtMonth.Text)) And Trim(Me.txtMonth.Text) <> "" Then
MsgBox "请输入数字!"
End If
End Sub
Private Sub txtNo_KeyPress(KeyAscii As Integer)
'商品编号
If Not IsNumeric(Trim(Me.txtNo.Text)) And Trim(Me.txtNo.Text) <> "" Then
MsgBox "请输入数字!"
End If
End Sub
Private Sub txtPurge_KeyPress(KeyAscii As Integer)
'净含量
If Not IsNumeric(Trim(Me.txtPurge.Text)) And Trim(Me.txtPurge.Text) <> "" Then
MsgBox "请输入数字!"
End If
End Sub
Private Sub txtSum_KeyPress(KeyAscii As Integer)
'数量
If Not IsNumeric(Trim(Me.txtSum.Text)) And Trim(Me.txtSum.Text) <> "" Then
MsgBox "请输入数字!"
End If
End Sub
Private Sub txtValue_KeyPress(KeyAscii As Integer)
'单价
If Not IsNumeric(Trim(Me.txtValue.Text)) And Trim(Me.txtValue.Text) <> "" Then
MsgBox "请输入数字!"
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -