📄 dlg_outbill.frm
字号:
Height = 300
Left = 600
TabIndex = 6
Top = 210
Width = 1770
End
Begin VB.Label Label4
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "单据号："
Height = 255
Left = 5640
TabIndex = 37
Top = 285
Width = 855
End
Begin VB.Label Label9
Caption = "出库日期："
Height = 255
Left = 8280
TabIndex = 36
Top = 285
Width = 975
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "客户： 经手人："
ForeColor = &H00000000&
Height = 255
Left = 105
TabIndex = 9
Top = 285
Width = 990
End
Begin VB.Label Label3
Caption = "发货员："
Height = 255
Left = 2880
TabIndex = 8
Top = 285
Width = 735
End
End
Begin VB.TextBox txttakeunit
Height = 285
Left = 3090
TabIndex = 4
Text = "0"
Top = 390
Visible = 0 'False
Width = 1215
End
Begin MSDBGrid.DBGrid grid1
Bindings = "dlg_outBill.frx":C40C
Height = 2985
Left = 3900
OleObjectBlob = "dlg_outBill.frx":C420
TabIndex = 12
Top = 1740
Visible = 0 'False
Width = 6285
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "dlg_outBill.frx":DB49
Height = 5865
Left = -74880
OleObjectBlob = "dlg_outBill.frx":DB62
TabIndex = 17
Top = 480
Width = 11040
End
Begin MSFlexGridLib.MSFlexGrid mf1
Height = 3855
Left = 120
TabIndex = 15
Top = 1440
Width = 11175
_ExtentX = 19711
_ExtentY = 6800
_Version = 393216
BackColorFixed = -2147483636
BackColorBkg = -2147483644
AllowUserResizing= 3
End
Begin VB.Label lblTtlQtyCaption
BackColor = &H8000000B&
Caption = "总件数："
ForeColor = &H00FF0000&
Height = 255
Left = 1320
TabIndex = 33
Top = 6840
Width = 735
End
Begin VB.Label lblTtlQty
BackColor = &H8000000B&
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 = 2160
TabIndex = 32
Top = 6720
Width = 735
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 = 1305
Left = 720
TabIndex = 29
Top = 5400
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 = 16
Top = 360
Width = 1395
End
End
Begin MSComCtl2.DTPicker DTP1
Height = 315
Left = 1320
TabIndex = 21
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 = 22
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 = 27
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 = 23
Top = 0
Width = 330
End
End
Attribute VB_Name = "dlg_outBill"
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
Private Sub cmdConfirm_Click()
If Me.DataMaster.Recordset.RecordCount > 0 Then
If SSTab1.Tab = 1 Then
form_outAdd.txtOutNo.Text = Me.txtBillId.Text ' Me.billNo.Text
form_outAdd.billNo.Text = Me.billNo.Text
Else
form_outAdd.txtOutNo.Text = Me.DataMaster.Recordset.Fields("billId")
form_outAdd.billNo.Text = Me.DataMaster.Recordset.Fields("billNo")
End If
End If
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_StockOutBill_Dtl where billId=" + Chr(34) + rs.Fields("billId") + Chr(34)
g_db.Execute sql
sql = " delete from hpos_StockOutBill_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
txttakeunit.Text = ""
txtBillId.Text = ""
takeunitName.Text = ""
handler.Text = ""
' Me.txtPrevBillNo.Text = ""
cmdEdit.Enabled = False
enableControls (False)
End If
End If
End Sub
Private Sub cmdDeleteLine_Click()
' If mf1.RowSel <> 0 Then
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
' End If
Exit Sub
End Sub
Private Sub cmdPrint_Click()
' If Me.chkSkinWeight.Value = 1 Then
' g_outputSkinWeight = True
' Else
' g_outputSkinWeight = False
' End If
printBill
End Sub
Private Sub cmdQuery_Click()
Dim fldName As String
If (cmbField.Text = "客户编号") Then
fldName = "hpos_organization.orgCode"
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -