?? 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 = "生成相關(guān)出庫單"
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -