📄 frmdatamake.frm
字号:
Left = 6120
TabIndex = 42
Top = 1680
Width = 1215
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 5
Left = 4800
MaxLength = 20
TabIndex = 36
Text = "Text1"
Top = 720
Width = 2535
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 4
Left = 960
MaxLength = 20
TabIndex = 35
Text = "Text1"
Top = 720
Width = 2535
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 3
Left = 4800
MaxLength = 20
TabIndex = 34
Text = "Text1"
Top = 240
Width = 2535
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 2
Left = 960
MaxLength = 20
TabIndex = 33
Text = "Text1"
Top = 240
Width = 2535
End
Begin VB.Frame Frame4
Height = 2295
Left = 7560
TabIndex = 55
Top = 0
Width = 3495
Begin VB.CommandButton Command5
Caption = "返回（&R）"
Height = 615
Index = 0
Left = 1920
TabIndex = 41
Top = 1440
Width = 1455
End
Begin VB.CommandButton Command4
Caption = "取消（&C）"
Height = 615
Index = 0
Left = 240
TabIndex = 40
Top = 1440
Width = 1455
End
Begin VB.CommandButton Command3
Caption = "删除（&D）"
Height = 615
Index = 0
Left = 1920
TabIndex = 39
Top = 480
Width = 1455
End
Begin VB.CommandButton Command2
Caption = "修改（&M）"
Height = 615
Index = 0
Left = 240
TabIndex = 38
Top = 480
Width = 1455
End
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "说明："
Height = 180
Index = 7
Left = 240
TabIndex = 57
Top = 1260
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "若全部删除表格中的数据请单击这"
ForeColor = &H000000FF&
Height = 180
Left = 1320
TabIndex = 56
Top = 1920
Width = 2700
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "导电:"
Height = 180
Index = 4
Left = 360
TabIndex = 54
Top = 300
Width = 450
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "操作说明：请在上面表格单击你要修改或删除的数据，然后输入数据"
ForeColor = &H000000FF&
Height = 180
Index = 3
Left = 420
TabIndex = 53
Top = 1680
Width = 5400
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "单位："
Height = 180
Index = 6
Left = 3960
TabIndex = 52
Top = 780
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "数量:"
Height = 180
Index = 5
Left = 360
TabIndex = 51
Top = 780
Width = 450
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "硬度:"
Height = 180
Index = 2
Left = 3960
TabIndex = 50
Top = 300
Width = 450
End
End
Begin VB.CommandButton Command1
Caption = "查找(&F)"
Height = 375
Index = 0
Left = 8160
TabIndex = 32
Top = 240
Width = 1215
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 1
Left = 5400
MaxLength = 20
TabIndex = 31
Text = "Text1"
Top = 270
Width = 2535
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 2040
MaxLength = 20
TabIndex = 30
Text = "Text1"
Top = 270
Width = 2535
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "品名*:"
Height = 180
Index = 0
Left = 4680
TabIndex = 48
Top = 337
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "品名*:"
Height = 180
Index = 1
Left = 1440
TabIndex = 47
Top = 337
Width = 540
End
End
End
End
End
Attribute VB_Name = "FrmDataMake"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public list2count As Integer '统计进库表中的记录数据
Public list1count As Integer '统计出库表中的记录数据
Public list3count As Integer '统计库存表中的记录数据
'---------保存要修改的数据
Dim instorehousetext(4)
Dim instorehousetext1(4)
Public RecNO As String '用来保存取消记录的自动编号
Public RecNO1 As String '用来保存修改记录的自动编号
Dim outstorehousetext(10)
Dim outstorehousetext1(10)
Public recNO2_1 As String '用来保存出库取消记录的自动编号
Public recno2_2 As String '用来保存出库修改记录的自动编号
Dim stocktext(3)
Dim stocktext1(3)
Public recno3_1 As String '用来保存库存取消记录的自动编号
Public recno3_2 As String '用来保存库存修改记录的自动编号
Public recno3_3 As String
Public recno3_4 As String
Private Sub Command1_Click(Index As Integer) '查询操作
Dim list2SQL As String
If Text1(0) = "" Or Text1(1) = "" Then
MsgBox ("品名和规格不能为空！")
Text1(0).SelStart = 0
Text1(0).SelLength = Len(Text1(0))
Text1(0).SetFocus
Exit Sub
End If
list2SQL = "select * from instorehouse where 品名='" + Trim(Text1(0)) + "' and 规格='" + Trim(Text1(1)) + "'"
Call list2disp(list2SQL)
If list2count = 0 Then
command6(0).Enabled = False '判断是否list2中是否有数据来全部删除
Text1(0).SetFocus
list2.Enabled = False '控制list2是否可以单击
Else
command6(0).Enabled = True
list2.Enabled = True
End If
End Sub
Private Sub Command2_Click(Index As Integer) '修改操作
If IsNumeric(Text1(4)) = False Then
MsgBox ("要修改的数值输入有误！")
Text1(4).SetFocus
Exit Sub
End If
For i = 0 To 4
instorehousetext1(i) = instorehousetext(i)
Next i
RecNO1 = RecNO
instorehouse.RecordSource = "select * from instorehouse where 自动编号=" + RecNO1
instorehouse.Refresh
With instorehouse.Recordset
.Fields(2) = Text1(2)
.Fields(3) = Text1(3)
.Fields(4) = Val(Text1(4))
.Fields(5) = Text1(5)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -