📄 frmpsedit.frm
字号:
Left = 3690
TabIndex = 3
Top = 5100
Width = 2295
End
Begin VB.TextBox txt_total
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 6855
TabIndex = 2
Top = 5460
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 = 10
Text = "1"
Top = 5490
Width = 735
End
Begin MSDataListLib.DataCombo combdw
Bindings = "FrmPsEdit.frx":0442
Height = 330
Left = 8865
TabIndex = 13
Top = 5475
Width = 960
_ExtentX = 1693
_ExtentY = 582
_Version = 393216
Enabled = 0 'False
MatchEntry = -1 'True
ListField = "dw_name"
BoundColumn = ""
Text = ""
Object.DataMember = "comdw"
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 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 = 8250
TabIndex = 43
Top = 5535
Width = 630
End
Begin VB.Label Label1
Caption = "类别:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 6285
TabIndex = 41
Top = 5130
Width = 585
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 = 36
Top = 5490
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 = 35
Top = 5535
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 = 8235
TabIndex = 34
Top = 5160
Width = 630
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 = 1
Left = 6735
TabIndex = 33
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 = 375
TabIndex = 31
Top = 285
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 = 3
Left = 3270
TabIndex = 30
Top = 735
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 = 4
Left = 3270
TabIndex = 29
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 = 375
TabIndex = 28
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 = 7
Left = 6735
TabIndex = 27
Top = 285
Width = 525
End
Begin VB.Label Label2
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 = 8865
TabIndex = 26
Top = 5145
Width = 480
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 = 25
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 = 24
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 = 23
Top = 4800
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 = 22
Top = 5130
Width = 570
End
End
End
Attribute VB_Name = "FrmPsEdit"
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 yesno2 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(8) As Integer
Dim recBT(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
totalprice
txt_id.Enabled = True
CmdAct(7).SetFocus
CmdAct(1).Enabled = False
cmdSave.Enabled = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -