?? dlg_incomebill2.frm
字號:
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_incomeBill2.frx":C417
Height = 2985
Left = 3900
OleObjectBlob = "dlg_incomeBill2.frx":C42B
TabIndex = 11
Top = 1620
Visible = 0 'False
Width = 6285
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "dlg_incomeBill2.frx":DB54
Height = 5865
Left = -74880
OleObjectBlob = "dlg_incomeBill2.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 = 27000833
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 = 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 = 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_incomeBill2"
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_outBill.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_outBill.txtPrevBillNo.Text) <> "" Then
billNo = " || " + billNo
End If
form_outBill.txtPrevBillNo.Text = form_outBill.txtPrevBillNo.Text + billNo
appendData Me.mf1, form_outBill.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 + -