📄 form13.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form13
BorderStyle = 4 'Fixed ToolWindow
Caption = "商品出库操作"
ClientHeight = 4680
ClientLeft = 45
ClientTop = 315
ClientWidth = 11340
LinkTopic = "Form13"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4680
ScaleWidth = 11340
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.TextBox Text8
ForeColor = &H000000C0&
Height = 375
Left = 10320
TabIndex = 16
Top = 1800
Width = 975
End
Begin VB.TextBox Text7
Height = 375
Left = 8400
TabIndex = 15
Top = 3240
Width = 1815
End
Begin VB.CommandButton Command9
Caption = "房间号"
Height = 375
Left = 7200
TabIndex = 14
Top = 3240
Width = 1215
End
Begin VB.TextBox Text6
Height = 375
Left = 8400
TabIndex = 13
Top = 2760
Width = 1815
End
Begin VB.TextBox Text5
Height = 375
Left = 8400
TabIndex = 12
Top = 2280
Width = 1815
End
Begin VB.TextBox Text4
Height = 375
Left = 8400
TabIndex = 11
Top = 1800
Width = 1815
End
Begin VB.TextBox Text3
Height = 375
Left = 8400
TabIndex = 10
Top = 1320
Width = 1815
End
Begin VB.TextBox Text2
Height = 375
Left = 8400
TabIndex = 9
Top = 840
Width = 1815
End
Begin VB.TextBox Text1
Height = 375
Left = 8400
TabIndex = 0
Top = 360
Width = 1815
End
Begin VB.CommandButton Command8
Caption = "退出"
Height = 375
Left = 9360
TabIndex = 8
Top = 3840
Width = 975
End
Begin VB.CommandButton Command7
Caption = "确认"
Height = 375
Left = 8040
TabIndex = 7
Top = 3840
Width = 1215
End
Begin VB.CommandButton Command6
Caption = "售 价"
Height = 375
Left = 7200
TabIndex = 6
Top = 2760
Width = 1215
End
Begin VB.CommandButton Command5
Caption = "合 计"
Height = 375
Left = 7200
TabIndex = 5
Top = 2280
Width = 1215
End
Begin VB.CommandButton Command4
Caption = "数 量"
Height = 375
Left = 7200
TabIndex = 4
Top = 1800
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "单 价"
Height = 375
Left = 7200
TabIndex = 3
Top = 1320
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "名 称"
Height = 375
Left = 7200
TabIndex = 2
Top = 840
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "编 号"
Height = 375
Left = 7200
TabIndex = 1
Top = 360
Width = 1215
End
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 4455
Left = 0
TabIndex = 18
Top = 0
Width = 6975
_ExtentX = 12303
_ExtentY = 7858
_Version = 393216
Cols = 7
FixedCols = 0
FormatString = " 编号 | 名 称 | 单 价 | 数 量 | 合 计 | 出库日期 |房 间 号"
End
Begin VB.Label Label1
Caption = "库存数量"
Height = 255
Left = 10560
TabIndex = 17
Top = 1440
Width = 735
End
End
Attribute VB_Name = "Form13"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'FIXIT: 使用 Option Explicit 可以避免隐式创建 Variant 类型的变量 FixIT90210ae-R383-H1984
Private Sub Command7_Click()
'开始保存内容，在保存内容的同时，在相关数据库中删除出库数量。
Dim db As Database
Dim EF As Recordset
Dim efc As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("Select * from spck", dbOpenDynaset)
Set efc = db.OpenRecordset("Select * from spkc where 编号='" & Val(Text1.Text) & " '", dbOpenDynaset)
EF.AddNew
efc.Edit
efc("数量") = Val(Text8.Text) - Val(Text4.Text)
efc("合计") = (Val(Text8.Text) - Val(Text4.Text)) * Val(Text3.Text)
EF("编号") = Text1.Text
EF("名称") = Text2.Text
EF("单价") = Val(Text3.Text)
EF("数量") = Val(Text4.Text)
EF("合计") = Val(Text5.Text)
EF("房间号") = Text7.Text
EF("出库日期") = Date
EF.Update '-----------------
efc.Update
EF.Close
efc.Close
db.Close
MsgBox "该商品已经出库 ", vbInformation
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text1.SetFocus
SearchItby
End Sub
Private Sub Command8_Click()
Unload Me
End Sub
Private Sub Form_Load()
'retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 11880, 8280, SWP_SHOWWINDOW)
sAppPath = App.Path
'FIXIT: 用 "Right$" 函数替换 "Right" 函数 FixIT90210ae-R9757-R1B8ZE
If Right(App.Path, 1) = "\" Then
sAppPath = App.Path
Else
sAppPath = App.Path & "\"
End If
SearchItby
End Sub
Private Sub Text1_Change()
SearchItf
End Sub
Private Sub SearchItf()
'检索数据
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("Select * from spkc where 编号='" & Val(Text1.Text) & " '", dbOpenDynaset)
Dim curSumMoney As Currency
Dim curSumQuanty As Currency
curSumMoney = 0
curSumQuanty = 0
'列出记录
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
Text2.Text = EF("名称")
Text3.Text = EF("单价")
Text6.Text = EF("售价")
curSumMoney = EF("数量")
Text8.Text = curSumMoney
EF.MoveNext
Loop
End If
'
EF.Close
db.Close
End Sub
Private Sub Text4_Change()
Text5.Text = Val(Text4.Text) * Val(Text3.Text)
End Sub
Private Sub SearchItby()
'检索数据
Dim db As Database
Dim EF As Recordset
Set db = OpenDatabase(ConData, False, False, Constr)
Set EF = db.OpenRecordset("select * from spck", dbOpenDynaset)
Dim curSumMoney As Currency
Dim curSumQuanty As Currency
Dim curSumMone As Currency
Dim curSumQuant As Currency
Dim curSumMon As Currency
Dim curSumQuan As Currency
Dim curSumMo As Currency
Grid1.Rows = 1
'列出记录
If Not (EF.BOF And EF.EOF) Then
Do While Not EF.EOF
Grid1.AddItem EF("编号") & vbTab & EF("名称") & vbTab & EF("数量") _
& vbTab & EF("单价") & vbTab & EF("合计") & vbTab & EF("出库日期") & vbTab & EF("房间号")
EF.MoveNext
Loop
End If
'添加合计
'Grid1.AddItem "" & vbTab & " 合 计 " & vbTab & "" _
& vbTab & "" & vbTab & vbTab & vbTab & vbTab & curSumQuanty & vbTab & "" _
& curSumMoney & vbTab & curSumMone & vbTab & curSumQuant & vbTab & curSumMon & vbTab & curSumQuan & vbTab & curSumMo & ""
' Grid1.Row = Grid1.Rows - 1
' Dim X As Integer
' For X = 7 To 0 Step -1
'Grid1.Col = X
' Grid1.CellBackColor = &HE0E0D0
' Next
'Grid1.ColSel = 7
EF.Close
db.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -