📄 frmoutput.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomct2.ocx"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.Form frmOutput
BorderStyle = 3 'Fixed Dialog
Caption = "领料单"
ClientHeight = 7035
ClientLeft = 90
ClientTop = 1350
ClientWidth = 11190
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 7035
ScaleWidth = 11190
ShowInTaskbar = 0 'False
Begin VB.TextBox txtMsfg
BackColor = &H80000018&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1320
TabIndex = 18
Top = 2160
Visible = 0 'False
Width = 1065
End
Begin VB.Frame fraIncome
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1095
Left = 120
TabIndex = 14
Top = 0
Width = 10935
Begin VB.TextBox txtFields
DataField = "contract_no"
Height = 270
Index = 5
Left = 8040
TabIndex = 28
Top = 600
Width = 1755
End
Begin VB.TextBox txtFields
DataField = "contract_no"
Height = 270
Index = 4
Left = 4440
TabIndex = 27
Top = 600
Width = 1755
End
Begin VB.TextBox txtFields
DataField = "contract_no"
Height = 270
Index = 3
Left = 960
TabIndex = 26
Top = 600
Width = 1755
End
Begin VB.TextBox txtFields
DataField = "contract_no"
Height = 270
Index = 2
Left = 8040
TabIndex = 25
Top = 240
Width = 1755
End
Begin MSComCtl2.DTPicker vcDate
Height = 300
Left = 4440
TabIndex = 20
Top = 240
Width = 1695
_ExtentX = 2990
_ExtentY = 529
_Version = 393216
Format = 61865985
CurrentDate = 37495
End
Begin VB.TextBox txtFields
DataField = "contract_no"
Height = 270
Index = 0
Left = 960
TabIndex = 15
Top = 240
Width = 1755
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "出库:"
DataField = " "
ForeColor = &H00800000&
Height = 180
Index = 5
Left = 7560
TabIndex = 24
Top = 600
Width = 450
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "审核:"
DataField = " "
ForeColor = &H00800000&
Height = 180
Index = 4
Left = 3960
TabIndex = 23
Top = 600
Width = 450
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "领料员工:"
DataField = " "
ForeColor = &H00800000&
Height = 180
Index = 2
Left = 120
TabIndex = 22
Top = 600
Width = 810
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "领料部门:"
DataField = " "
ForeColor = &H00800000&
Height = 180
Index = 1
Left = 7200
TabIndex = 21
Top = 240
Width = 810
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "领料单号:"
DataField = " "
ForeColor = &H00800000&
Height = 180
Index = 0
Left = 120
TabIndex = 17
Top = 300
Width = 810
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "出货日期:"
ForeColor = &H00800000&
Height = 180
Index = 3
Left = 3600
TabIndex = 16
Top = 285
Width = 810
End
End
Begin VB.PictureBox picButtons
Align = 2 'Align Bottom
BorderStyle = 0 'None
Height = 915
Left = 0
ScaleHeight = 915
ScaleWidth = 11190
TabIndex = 0
Top = 6120
Width = 11190
Begin VB.CommandButton cmdDel
Caption = "删行(&D)"
Height = 300
Left = 5010
TabIndex = 12
Top = 0
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
Height = 300
Left = 5010
TabIndex = 11
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdCancel
Caption = "取消(&C)"
Height = 300
Left = 3855
TabIndex = 10
Top = 0
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton cmdUpdate
Caption = "更新(&U)"
Height = 300
Left = 2700
TabIndex = 9
Top = 0
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton cmdEdit
Caption = "编辑(&E)"
Height = 300
Left = 3855
TabIndex = 8
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
Height = 300
Left = 2700
TabIndex = 7
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdClose
Caption = "关闭(&C)"
Height = 300
Left = 7320
TabIndex = 6
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdRefresh
Caption = "刷新(&R)"
Height = 300
Left = 6165
TabIndex = 5
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdFirst
Height = 300
Left = 3105
Picture = "frmOutput.frx":0000
Style = 1 'Graphical
TabIndex = 4
Top = 480
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdPrevious
Height = 300
Left = 3450
Picture = "frmOutput.frx":0342
Style = 1 'Graphical
TabIndex = 3
Top = 480
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdNext
Height = 300
Left = 7320
Picture = "frmOutput.frx":0684
Style = 1 'Graphical
TabIndex = 2
Top = 480
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdLast
Height = 300
Left = 7665
Picture = "frmOutput.frx":09C6
Style = 1 'Graphical
TabIndex = 1
Top = 480
UseMaskColor = -1 'True
Width = 345
End
Begin VB.Label lblStatus
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = " "
Height = 300
Left = 3885
TabIndex = 13
Top = 480
Width = 3345
End
End
Begin MSFlexGridLib.MSFlexGrid Msfg
Height = 4695
Left = 120
TabIndex = 19
Top = 1320
Width = 11025
_ExtentX = 19447
_ExtentY = 8281
_Version = 393216
Rows = 100
Cols = 8
FixedCols = 0
BackColor = -2147483624
AllowUserResizing= 3
FormatString = "进料单号|>物料编码|>物料类型|>物料名称|>物料数量|>计量单位|>物料价格|>备注说明"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "frmOutput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim WithEvents adoPrimaryRS As Recordset
Attribute adoPrimaryRS.VB_VarHelpID = -1
Dim WithEvents adoSecondRS As Recordset
Attribute adoSecondRS.VB_VarHelpID = -1
Dim WithEvents rs As Recordset
Attribute rs.VB_VarHelpID = -1
Dim WithEvents rsTemp As Recordset
Attribute rsTemp.VB_VarHelpID = -1
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean
Dim mbGridFlag As Boolean
Dim strCnn As String
Dim ssql As String
Dim i, j, tmpSum, tmpQty As Variant
Dim msg As String
Dim so As String
Dim exchange As Variant
Dim ArrayList() As String
Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error Resume Next
lblStatus.Caption = " 当前记录： " & CStr(adoPrimaryRS.AbsolutePosition) & "/" & CStr(adoPrimaryRS.RecordCount)
End Sub
Private Sub cmdAdd_Click()
'On Error GoTo AddErr
On Error Resume Next
With adoPrimaryRS
If Not (.BOF And .EOF) Then
mvBookMark = .Bookmark
End If
End With
For i = 0 To adoPrimaryRS.Fields.Count - 1
Select Case i
Case 0
Dim aa As String
Dim Mstr As String
Dim yy As String
Dim mm As String
Dim yymm As String
yy = Year(Date)
yy = Right(yy, 2)
mm = Month(Format(Date, "yyyy-MM-dd"))
If Len(mm) = 1 Then mm = "0" + mm
yymm = yy + mm
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -