📄 frm0003.frm
字号:
End
Begin VB.TextBox txSID
Height = 315
Left = 4080
TabIndex = 27
Top = 120
Visible = 0 'False
Width = 315
End
Begin VB.Line Line1
BorderColor = &H80000005&
Index = 1
X1 = 0
X2 = 10000
Y1 = 1155
Y2 = 1155
End
Begin VB.Line Line1
Index = 0
X1 = 0
X2 = 10000
Y1 = 1140
Y2 = 1140
End
Begin VB.Label lbMerchandise
Alignment = 1 'Right Justify
Caption = "商品"
Height = 195
Left = 3120
TabIndex = 18
Top = 240
Width = 1020
End
Begin VB.Label lbRemark
Alignment = 1 'Right Justify
Caption = "备注"
Height = 195
Left = 6600
TabIndex = 26
Top = 720
Width = 600
End
Begin VB.Label lbStorage
Alignment = 1 'Right Justify
Caption = "库存"
Height = 195
Left = 1980
TabIndex = 25
Top = 720
Width = 660
End
Begin VB.Label lbTotal
Alignment = 1 'Right Justify
Caption = "合计"
Height = 195
Left = 3540
TabIndex = 24
Top = 5700
Width = 960
End
Begin VB.Label lbSubTotal
Alignment = 1 'Right Justify
Caption = "小计"
Height = 195
Left = 4980
TabIndex = 23
Top = 720
Width = 720
End
Begin VB.Label lbPrice
Alignment = 1 'Right Justify
Caption = "单价"
Height = 195
Left = 3360
TabIndex = 22
Top = 720
Width = 720
End
Begin VB.Label lbOscAmount
Alignment = 1 'Right Justify
Caption = "变动数量"
Height = 195
Left = 0
TabIndex = 21
Top = 720
Width = 1260
End
Begin VB.Label lbBarCode
Alignment = 1 'Right Justify
Caption = "条形码"
Height = 195
Left = 60
TabIndex = 20
Top = 240
Width = 840
End
Begin VB.Label lbUnit
Alignment = 1 'Right Justify
Caption = "单位"
Height = 195
Left = 5940
TabIndex = 19
Top = 240
Width = 720
End
Begin VB.Label lbDate
Alignment = 1 'Right Justify
Caption = "日期"
Height = 195
Left = 7800
TabIndex = 17
Top = 240
Width = 660
End
End
Attribute VB_Name = "frm0003"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub LoadFormLang()
Me.Caption = getFormCaptionResource("0003")
Me.lbMerchandise.Caption = getResource("resMerchandise")
Me.lbBarCode.Caption = getResource("resBarCode")
Me.lbUnit.Caption = getResource("resUnit")
Me.lbDate.Caption = getResource("resDate")
Me.lbOscAmount.Caption = getResource("resChange0") & getResource("resAmount")
Me.lbStorage.Caption = getResource("resStorage")
Me.lbPrice.Caption = getResource("resPrice")
Me.lbSubTotal.Caption = getResource("resSubTotal")
Me.lbRemark.Caption = getResource("resRemark")
Me.lbTotal.Caption = getResource("resTotal")
Me.cmdCheckIn.Caption = getResource("resCheckIn") & "(&Z)"
Me.cmdDelRow.Caption = getResource("resDelRow") & "(&X)"
Me.cmdEmptyTable.Caption = getResource("resEmptyTable") & "(&D)"
Me.cmdCheckOut.Caption = getResource("resCheckOut") & "(&C)"
Me.cmdPrint.Caption = getResource("resPrint") & "(&P)"
Me.cmdExit.Caption = getResource("resExit") & "(Esc)"
Me.dgOscPort.Columns("sName").Caption = getResource("resMerchandise")
Me.dgOscPort.Columns("BarCode").Caption = getResource("resBarCode")
Me.dgOscPort.Columns("Unit").Caption = getResource("resUnit")
Me.dgOscPort.Columns("Price").Caption = getResource("resPrice")
Me.dgOscPort.Columns("Amount").Caption = getResource("resSale") & getResource("resAmount")
Me.dgOscPort.Columns("SubTotal").Caption = getResource("resSubTotal")
Me.dgOscPort.Columns("Remark").Caption = getResource("resRemark")
End Sub
Private Sub RefreshForm()
Me.txSID.Text = ""
Me.txSName.Text = ""
Me.dtpSOpDate.Value = Date
Me.txSBarCode.Text = ""
Me.txSUnit.Text = ""
Me.txSOscAmount.Text = "0"
Me.txSAmount.Text = "0"
Me.txSExPrice.Text = "0"
Me.txSUnit.Text = "0"
Me.txSSubtotal.Text = "0"
Me.txSRemark.Text = ""
myDE.rsrsOtherStorageChange.Requery
Set Me.dgOscPort.DataSource = myDE
Me.dgOscPort.DataMember = "rsOtherStorageChange"
Me.dgOscPort.Refresh
myDE.rsrsOtherStorageChangeTotal.Requery
myDE.rsrsOtherStorageChangeTotal.MoveFirst
Me.txSTotal.Text = Format$(myDE.rsrsOtherStorageChangeTotal.Fields("Total").Value & "", "##,##0.00")
If myDE.rsrsOtherStorageChange.RecordCount > 0 Then
Me.cmdDelRow.Enabled = True
Me.cmdEmptyTable.Enabled = True
Me.cmdCheckOut.Enabled = True
Me.cmdPrint.Enabled = True
Else
Me.cmdDelRow.Enabled = False
Me.cmdEmptyTable.Enabled = False
Me.cmdCheckOut.Enabled = False
Me.cmdPrint.Enabled = False
End If
End Sub
Private Sub cauSubTotal()
'计算每种产品金额小计
On Error GoTo errDealWith
Me.txSSubtotal.Text = CStr(CDbl(Me.txSOscAmount.Text) * CDbl(Me.txSExPrice.Text))
Exit Sub
errDealWith:
Me.txSSubtotal.Text = "0"
End Sub
Private Sub cmdBarCode_Click()
frmStorage.Show 1
Me.txSID.Text = curStorage.sID
Me.txSName.Text = curStorage.sName
Me.txSBarCode.Text = curStorage.sBarCode
Me.txSUnit.Text = curStorage.sUnit
Me.txSExPrice.Text = curStorage.sExPrice
Me.txSAmount.Text = curStorage.sAmount
End Sub
Private Sub cmdCheckIn_Click()
On Error GoTo errHandel
If Not TestText(Me.txSBarCode.Text) Then
MsgBox getResource("resMsgF0001001"), vbCritical + vbOKOnly
Me.txSBarCode.SetFocus
Exit Sub
End If
If Not TestText(Me.txSOscAmount.Text) Then
MsgBox getResource("resMsgF0003001"), vbCritical + vbOKOnly
Me.txSOscAmount.SetFocus
Exit Sub
End If
If CDbl(Me.txSOscAmount.Text) = 0 Then
MsgBox getResource("resMsgF0003001"), vbCritical + vbOKOnly
Me.txSOscAmount.SetFocus
Exit Sub
End If
If Not TestText(Me.txSExPrice.Text) Then
MsgBox getResource("resMsgF0001003"), vbCritical + vbOKOnly
Me.txSExPrice.SetFocus
Exit Sub
End If
If CDbl(Me.txSExPrice.Text) = 0 Then
MsgBox getResource("resMsgF0001003"), vbCritical + vbOKOnly
Me.txSExPrice.SetFocus
Exit Sub
End If
If Not TestText(Me.txSSubtotal.Text) Then
MsgBox getResource("resMsgF0001004"), vbCritical + vbOKOnly
Me.txSSubtotal.SetFocus
Exit Sub
End If
If CDbl(Me.txSSubtotal.Text) = 0 Then
MsgBox getResource("resMsgF0001004"), vbCritical + vbOKOnly
Me.txSSubtotal.SetFocus
Exit Sub
End If
With curImExPort
.pcID = -1
.ieBill = "-1"
.sID = Me.txSID.Text
.iePrice = Me.txSExPrice.Text
.ieAmount = Me.txSOscAmount.Text
.ieOpDate = Me.dtpSOpDate.Value
.iekind = 9
.ieFlag = 0
.ieOperator = curSystemUser.uID '操作员
.ieRemark = Me.txSRemark
End With
Call ImExPortAddNew(curImExPort)
Call RefreshForm
Exit Sub
errHandel:
MsgBox Err.Description, vbCritical
End Sub
Private Sub cmdDelRow_Click()
If MsgBox(getResource("resMsgF0001005"), vbQuestion + vbYesNo) = vbYes Then
Call RunSql("DELETE FROM ImExPort WHERE ID=" & Me.dgOscPort.Columns("ID").Value)
End If
Call RefreshForm
End Sub
Private Sub cmdEmptyTable_Click()
If MsgBox(getResource("resMsgF0001006"), vbQuestion + vbYesNo) = vbYes Then
Call RunSql("DELETE FROM ImExPort WHERE Kind=9 AND Flag=0")
End If
Call RefreshForm
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdCheckOut_Click()
Dim sql1 As String
Dim sql2 As String
'将未冲库商品数量加入/减去库存,减去时填写数量为负值
sql1 = "UPDATE ImExPort INNER JOIN Storage ON ImExPort.sID = Storage.ID " & _
"SET Storage.Amount = [Storage].[Amount]+[ImExPort].[Amount]" & _
"WHERE (((ImExPort.kind)=9) AND ((ImExPort.flag)=0)) "
'将未冲库商品标记为已冲库
sql2 = "UPDATE ImExPort SET Flag =1 WHERE Kind=9 AND Flag=0"
If RunSql(sql1) And RunSql(sql2) Then
MsgBox getResource("resMsgF0001007"), vbInformation + vbOKOnly
Else
MsgBox getResource("resMsgF0001008"), vbInformation + vbOKOnly
End If
Call RefreshForm
End Sub
Private Sub Form_Load()
' Me.Top = 500
' Me.Left = 500
myDE.rsrsOtherStorageChangeTotal.Open
Call LoadFormLang
Call RefreshForm
End Sub
Private Sub Form_Unload(Cancel As Integer)
myDE.rsrsOtherStorageChangeTotal.Close
End Sub
Private Sub txSExPrice_KeyPress(KeyAscii As Integer)
KeyAscii = CheckDec(KeyAscii, Me.txSExPrice.Text)
End Sub
Private Sub txSOscAmount_Change()
Call cauSubTotal
End Sub
Private Sub txSExPrice_Change()
Call cauSubTotal
End Sub
Private Sub txSOscAmount_KeyPress(KeyAscii As Integer)
KeyAscii = CheckInt(KeyAscii, Me.txSOscAmount.Text)
End Sub
Private Sub txSSubtotal_KeyPress(KeyAscii As Integer)
KeyAscii = CheckDec(KeyAscii, Me.txSSubtotal.Text)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -