📄 dlg_incomebill.frm
字号:
TabIndex = 7
Top = 240
Width = 735
End
End
Begin VB.Frame Frame3
Height = 645
Left = 5280
TabIndex = 2
Top = 675
Width = 5370
Begin VB.TextBox billDate
Enabled = 0 'False
Height = 300
Left = 3480
TabIndex = 26
Top = 240
Width = 1395
End
Begin VB.TextBox billNo
BackColor = &H00FFFFFF&
Enabled = 0 'False
Height = 300
Left = 1080
TabIndex = 8
Top = 240
Width = 1395
End
Begin VB.Label Label9
Caption = "入库日期："
Height = 180
Left = 2520
TabIndex = 24
Top = 270
Width = 975
End
Begin VB.Label Label4
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "单据号："
Height = 180
Left = 240
TabIndex = 3
Top = 270
Width = 855
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 = "dlg_incomeBill.frx":C417
Height = 2985
Left = 3900
OleObjectBlob = "dlg_incomeBill.frx":C42B
TabIndex = 11
Top = 1620
Visible = 0 'False
Width = 6285
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "dlg_incomeBill.frx":DB54
Height = 5865
Left = -74880
OleObjectBlob = "dlg_incomeBill.frx":DB6D
TabIndex = 16
Top = 480
Width = 11040
End
Begin MSFlexGridLib.MSFlexGrid mf1
Height = 3735
Left = 120
TabIndex = 14
Top = 1320
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 = 375
Left = 1920
TabIndex = 38
Top = 6600
Width = 735
End
Begin VB.Label lblTtlQtyCaption
Caption = "总件数："
ForeColor = &H00FF0000&
Height = 255
Left = 1080
TabIndex = 37
Top = 6600
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 = 28
Top = 5160
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 = 15
Top = 360
Width = 1395
End
End
Begin MSComCtl2.DTPicker DTP1
Height = 315
Left = 1320
TabIndex = 18
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 = 26935297
CurrentDate = 36654
End
Begin MSComCtl2.DTPicker DTP2
Height = 315
Left = 3600
TabIndex = 19
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 = 26935297
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 = 25
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 = 20
Top = 0
Width = 330
End
End
Attribute VB_Name = "dlg_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 Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Sub cmdConfirm_Click()
If SSTab1.Tab <> 1 Then
SSTab1.Tab = 1
End If
Dim billNo As String
If SSTab1.Tab = 1 Then
billNo = Me.billNo.Text
Else
billNo = Me.DataMaster.Recordset.Fields("billNo")
End If
If Trim(billNo) = "" Then
MsgBox "对不起，没有数据可导入！", vbInformation, "提示"
Exit Sub
End If
If InStr(1, form_outAdd.txtPrevBillNo.Text, billNo, vbTextCompare) > 0 Then
MsgBox "对不起，当前出库单中已经引用了该入库单！", vbInformation, "提示"
Exit Sub
End If
Dim rs As Recordset
Dim sql As String
sql = "select rsvFld1 from hpos_StockOutBill_Master where rsvFld1='" + billNo + "'"
Set rs = g_db.OpenRecordset(sql)
If rs.RecordCount > 0 Then
MsgBox "对不起，其它出库单中已经引用了该入库单！", vbInformation, "提示"
Exit Sub
End If
If Trim(form_outAdd.txtPrevBillNo.Text) <> "" Then
billNo = " || " + billNo
End If
form_outAdd.txtPrevBillNo.Text = form_outAdd.txtPrevBillNo.Text + billNo
appendData Me.mf1, form_outAdd.mf1
Unload Me
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
If SSTab1.Tab = 1 Then
SSTab1.Tab = 0
End If
End If
If Not DataMaster.Recordset.EOF Then
cmdEdit.Enabled = True
enableControls (True)
Else
clearData mf1
clearData msfgTtl
txtSupplier.Text = ""
txtBillId.Text = ""
supplierName.Text = ""
handler.Text = ""
cmdEdit.Enabled = False
enableControls (False)
End If
End If
End Sub
Private Sub cmdDeleteLine_Click()
For i = mf1.FixedCols To mf1.cols - mf1.FixedCols
mf1.TextMatrix(mf1.row, i) = ""
Next i
text1.Text = ""
Call fillTotalDataFromDtlData
If mf1.row > 1 Then
mf1.row = mf1.row - 1
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -