📄 frmpsout.frm
字号:
TabIndex = 2
Top = 5475
Width = 1155
End
Begin VB.TextBox txt_qty
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 885
TabIndex = 6
Text = "1"
Top = 5490
Width = 1395
End
Begin MSFlexGridLib.MSFlexGrid msglist
Height = 4005
Left = 405
TabIndex = 4
ToolTipText = "双击或回车某行可进行修改"
Top = 1035
Width = 10110
_ExtentX = 17833
_ExtentY = 7064
_Version = 393216
BackColor = 16777215
BackColorFixed = -2147483644
BackColorBkg = -2147483647
Enabled = 0 'False
SelectionMode = 1
AllowUserResizing= 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label1
Caption = "Label1"
Height = 255
Left = 9000
TabIndex = 42
Top = 5160
Visible = 0 'False
Width = 1335
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "0.00"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 240
Left = 8805
TabIndex = 39
Top = 5535
Width = 480
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "单位："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 6240
TabIndex = 38
Top = 5160
Width = 630
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "金额："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 6240
TabIndex = 30
Top = 5505
Width = 630
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "单价："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3030
TabIndex = 29
Top = 5550
Width = 525
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "合计："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 8160
TabIndex = 28
Top = 5550
Width = 630
End
Begin VB.Label text0
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "备注:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 6735
TabIndex = 27
Top = 705
Width = 525
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "单 号:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 330
TabIndex = 26
Top = 270
Width = 735
End
Begin VB.Label combsup
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "部门:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3405
TabIndex = 25
Top = 690
Width = 525
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "制单人:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 4
Left = 3270
TabIndex = 24
Top = 330
Width = 735
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "领用人:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 6
Left = 330
TabIndex = 23
Top = 690
Width = 735
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "日期:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 7
Left = 6735
TabIndex = 22
Top = 285
Width = 525
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "编号："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 285
TabIndex = 21
Top = 5175
Width = 630
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "数量："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 270
TabIndex = 20
Top = 5550
Width = 555
End
Begin VB.Label lab_total
AutoSize = -1 'True
Caption = "0.00"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 240
Left = 2085
TabIndex = 19
Top = 4800
Width = 480
End
Begin VB.Label lab_qty
AutoSize = -1 'True
Caption = "0.00"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 240
Left = 8805
TabIndex = 18
Top = 5520
Visible = 0 'False
Width = 480
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "名称："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3030
TabIndex = 17
Top = 5145
Width = 570
End
End
End
Attribute VB_Name = "FrmPsOut"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private rsProduct As ADODB.Recordset
Private rsSaHA As ADODB.Recordset
Private rsSalDA As ADODB.Recordset
Private cmSaHA As ADODB.Command
Private cmProduct As ADODB.Command
Private rscount As ADODB.Recordset
Private rssql As ADODB.Recordset
Private rstotal As ADODB.Recordset
Private strMaxNum As String
Private lngPsNum As Long
Public yesno As Boolean
Public yesno1 As Boolean
Public num As Long
Public saveyesno As Boolean
Private Sub CmdAct_Click(Index As Integer)
Dim intRow As Integer
Dim blnIsTrue As Boolean
Dim strsql As String
Dim depid As String
Dim sale_id As String
Dim ru, i As Integer
Dim mrc As ADODB.Recordset
Dim TxtSQL As String
Dim msgtext As String
Dim rpt As New report
Dim txt As New clsText
Dim BTarray(1 To 8) As Integer
Dim recBT(1 To 8) As String
On Error GoTo Err:
Select Case Index
Case 1
With msglist
.TextMatrix(.row, 1) = txt_id.text
.TextMatrix(.row, 2) = txt_name.text
.TextMatrix(.row, 3) = combdw
.TextMatrix(.row, 4) = combdj
.TextMatrix(.row, 5) = txt_qty
.TextMatrix(.row, 6) = txt_total.text
End With
CmdAct(7).Enabled = True
txt_id.Enabled = True
CmdAct(7).SetFocus
CmdAct(1).Enabled = False
cmdSave.Enabled = True
CmdAct(2).Enabled = True
CmdAct(3).Enabled = True
totalprice
Case 2
If txt_id.text = "" Then
Exit Sub
End If
With msglist
.TextMatrix(.rows - 1, 0) = .rows - 1
.TextMatrix(.rows - 1, 1) = txt_id.text
.TextMatrix(.rows - 1, 2) = txt_name.text
.TextMatrix(.rows - 1, 3) = combdw
.TextMatrix(.rows - 1, 4) = combdj
.TextMatrix(.rows - 1, 5) = txt_qty
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -