📄 form_incomebill.frm
字号:
Caption = "箱号续单："
Height = 300
Left = 3000
TabIndex = 33
Top = 240
Width = 975
End
End
Begin MSFlexGridLib.MSFlexGrid msfgTtl
Height = 1575
Left = 960
TabIndex = 17
Top = 5880
Width = 8895
_ExtentX = 15690
_ExtentY = 2778
_Version = 393216
AllowUserResizing= 3
End
Begin MSDBGrid.DBGrid gridCustomer
Bindings = "form_incomeBill.frx":C7E2
Height = 1500
Left = 840
OleObjectBlob = "form_incomeBill.frx":C7F6
TabIndex = 5
Top = 1920
Visible = 0 'False
Width = 3840
End
Begin VB.TextBox txtBillId
Height = 285
Left = 1080
TabIndex = 9
Top = 480
Visible = 0 'False
Width = 1575
End
Begin VB.TextBox text1
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 210
Left = 435
TabIndex = 4
Top = 2340
Visible = 0 'False
Width = 1485
End
Begin VB.Frame Frame1
Height = 1110
Left = 9600
TabIndex = 2
Top = 6600
Visible = 0 'False
Width = 1830
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "E:\datum\应用软件\物流管理\warehouse\DB-Access\hunterPOS.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 360
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "hpos_products"
Top = 120
Width = 1140
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "E:\datum\应用软件\物流管理\warehouse\DB-Access\hunterPOS.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 360
Left = 360
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "hpos_organization"
Top = 480
Width = 1140
End
Begin VB.Data DataMaster
Caption = "DataMaster"
Connect = "Access"
DatabaseName = "E:\datum\应用软件\物流管理\warehouse\DB-Access\hunterPOS.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = $"form_incomeBill.frx":D52E
Top = 720
Visible = 0 'False
Width = 1140
End
End
Begin VB.TextBox txtSupplier
Height = 285
Left = 3090
TabIndex = 1
Text = "0"
Top = 390
Visible = 0 'False
Width = 1215
End
Begin MSDBGrid.DBGrid grid1
Bindings = "form_incomeBill.frx":D5F5
Height = 2985
Left = 3900
OleObjectBlob = "form_incomeBill.frx":D609
TabIndex = 3
Top = 2340
Visible = 0 'False
Width = 6285
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "form_incomeBill.frx":ED32
Height = 5865
Left = -74880
OleObjectBlob = "form_incomeBill.frx":ED4B
TabIndex = 8
Top = 480
Width = 11040
End
Begin MSFlexGridLib.MSFlexGrid mf1
Height = 3735
Left = 120
TabIndex = 6
Top = 2040
Width = 11175
_ExtentX = 19711
_ExtentY = 6588
_Version = 393216
BackColorFixed = -2147483636
BackColorBkg = -2147483644
AllowUserResizing= 3
End
Begin VB.Label lblTtlQty
Caption = "0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 1920
TabIndex = 28
Top = 7560
Width = 735
End
Begin VB.Label lblTtlQtyCaption
Caption = "总件数："
ForeColor = &H00FF0000&
Height = 255
Left = 1080
TabIndex = 27
Top = 7560
Width = 855
End
Begin VB.Label Label6
Caption = "累计净重毛重"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1200
Left = 720
TabIndex = 18
Top = 6120
Width = 255
End
Begin VB.Line Line1
X1 = 6285
X2 = 7485
Y1 = 3000
Y2 = 3480
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "入 库 单"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 5100
TabIndex = 7
Top = 360
Width = 1395
End
End
Begin MSComCtl2.DTPicker DTP1
Height = 315
Left = 1320
TabIndex = 10
Top = 0
Width = 1785
_ExtentX = 3149
_ExtentY = 556
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 27000833
CurrentDate = 36654
End
Begin MSComCtl2.DTPicker DTP2
Height = 315
Left = 3600
TabIndex = 11
Top = 0
Width = 1785
_ExtentX = 3149
_ExtentY = 556
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 27000833
CurrentDate = 37256
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "起止日期："
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 240
TabIndex = 16
Top = 0
Width = 1245
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "到"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3225
TabIndex = 12
Top = 0
Width = 330
End
End
Attribute VB_Name = "form_incomeBill"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim s, y, i '定义变量
Dim mydb As Database '定义数据库
Dim rs1 As Recordset '定义字段
Dim rs2 As Recordset
Dim rsMaster As Recordset
Dim lsph As Integer '定义一个整型变量
Dim sqlMaster As String
Dim sqlOrderBy As String
Dim isAdd As Boolean '是否新增
Dim grid1IsVisible As Boolean
Dim m_billType As Integer
Dim m_productCount As Integer ' 当前单据中产品个数
Private Sub cmdCHeck_Click()
Dim strMsg As String
SSTab1.Tab = 1
strMsg = checkbarcodesRepeated(mf1)
If strMsg <> "" Then
MsgBox "红色显示部分条码重复！", vbCritical, "警告"
End If
End Sub
Private Sub cmdDelete_Click()
Dim rs As Recordset
Set rs = DataMaster.Recordset
If Not IsNull(rs) And rs.RecordCount > 0 And Not IsNull(rs.Fields("billId")) Then
Dim sql As String
If MsgBox("真的要删除吗？", vbYesNo + vbQuestion + vbDefaultButton2, "提示") = vbYes Then
sql = " delete from hpos_StockIncomeBill_Dtl where billId=" + Chr(34) + rs.Fields("billId") + Chr(34)
g_db.Execute sql
sql = " delete from hpos_StockIncomeBill_Master where billId=" + Chr(34) + rs.Fields("billId") + Chr(34)
g_db.Execute sql
DataMaster.Refresh
MsgBox "已经删除!", vbInformation, "提示"
' EditData
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -