📄 frmpurchaseorder.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmPurchaseOrder
ClientHeight = 7755
ClientLeft = 60
ClientTop = 345
ClientWidth = 9210
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 7755
ScaleWidth = 9210
Begin ClassSystem.ExcelGrid ExcelGrid1
Height = 3375
Left = 120
TabIndex = 0
Top = 720
Width = 7335
_extentx = 12938
_extenty = 5953
displaytoolbar = 0 'False
End
Begin MSComctlLib.Toolbar topToolbar
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 1
Top = 0
Width = 9210
_ExtentX = 16245
_ExtentY = 979
ButtonWidth = 1058
ButtonHeight = 926
Appearance = 1
Style = 1
ImageList = "toolbarImageList1"
HotImageList = "toolbarImageList2"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 7
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "新加"
Key = "Insert"
Object.ToolTipText = "新加"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "Update"
Object.ToolTipText = "修改"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "作废"
Key = "Delete"
Object.ToolTipText = "删除"
ImageIndex = 4
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "审批"
Key = "App"
Object.ToolTipText = "生成相关出库单"
ImageIndex = 5
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "归档"
ImageIndex = 6
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退货"
ImageIndex = 7
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = " 退 出 "
Key = "Exit"
Object.ToolTipText = " 退 出"
ImageIndex = 11
EndProperty
EndProperty
BorderStyle = 1
Begin MSComctlLib.ImageList toolbarImageList1
Left = 7320
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 15
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 11
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":0542
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":0A84
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":0FC6
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":1160
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":16A2
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":19F6
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":1D4A
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":228C
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":27CE
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":2D10
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList toolbarImageList2
Left = 8040
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 15
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 11
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":2E1A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":335C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":389E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":3DE0
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":3F7C
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":44BE
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":4812
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":4B66
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":50A8
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":55EA
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPurchaseOrder.frx":5B2C
Key = ""
EndProperty
EndProperty
End
End
End
Attribute VB_Name = "frmPurchaseOrder"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public sCustID As String
Public sCustName As String
Private Sub Form_Load()
'button
If g_ButtonArrange Then
topToolbar.TextAlignment = tbrTextAlignBottom
Else
topToolbar.TextAlignment = tbrTextAlignRight
End If
'caption
Me.Caption = "客户采购订单" + IIf(sCustID = "", "", "----[" + sCustName + "]")
RefreshData
End Sub
Private Sub Form_Unload(Cancel As Integer)
sCustID = ""
sCustName = ""
End Sub
Private Sub topToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim objOrder As New clsOrder
Select Case Button.Key
Case "Exit"
Unload Me
Case "Insert"
With frmPurchaseOrderInsert
.Show vbModal
End With
Case "Update"
With frmPurchaseOrderUpdate
.Show vbModal
End With
Case "Delete"
With objOrder
.m_OrderNo = Me.ExcelGrid1.DataRecordset.Fields("OrderNo").value
If .BatchSubmit(.Delete()) Then
Call RefreshData
End If
End With
Case "App"
objOrder.m_OrderNo = Me.ExcelGrid1.DataRecordset.Fields("OrderNo").value
If Me.ExcelGrid1.DataRecordset.Fields("WarehouseID").value = vbNullGUID Then
'自动扣除在途的可用库存
Call objOrder.BatchSubmit(objOrder.AppSQL() + objOrder.BuildCalculateQtySQL())
Else
'生成出入库单（会自动扣除可用库存）
Call objOrder.BatchSubmit(objOrder.AppSQL() + objOrder.BuildWarehouseOrderSQL())
End If
End Select
Set objOrder = Nothing
End Sub
Private Sub Form_Resize()
On Error Resume Next
ExcelGrid1.Left = 10
ExcelGrid1.Width = Me.Width - 20
ExcelGrid1.Top = topToolbar.Top + topToolbar.Height + 100
ExcelGrid1.Height = Me.Height - ExcelGrid1.Top - 300
Err.Clear
End Sub
Public Sub RefreshData()
Dim objOrder As New clsOrder
ExcelGrid1.RelativeGrid objOrder.GetList(, IIf(sCustID = "", " OrderType='采购订单'", " OrderType='采购订单' and CustomerID=" + CheckString(sCustID))), "OrderNo,OrderType,OrderStatus,CustomerID,Address,Contactee,Tel,Fax,Email,Fee,WarehouseID,CommodityID,Price,PQty,RQty,PAmount,RAmount", "OrderNo,OrderType,OrderStatus,CustomerID,Address,Contactee,Tel,Fax,Email,Fee,WarehouseID,CommodityID,Price,PQty,RQty,PAmount,RAmount"
If ExcelGrid1.DataRecordset.RecordCount = 0 Then
topToolbar.Buttons("Update").Enabled = False
topToolbar.Buttons("Delete").Enabled = False
Else
topToolbar.Buttons("Update").Enabled = True
topToolbar.Buttons("Delete").Enabled = True
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -