📄 frmupdateallrelationshiprecords.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmUpdateAllRelationshipRecords
AutoRedraw = -1 'True
BackColor = &H00FF80FF&
BorderStyle = 3 'Fixed Dialog
Caption = "定單更改"
ClientHeight = 5310
ClientLeft = 45
ClientTop = 330
ClientWidth = 6900
Icon = "frmUpdateAllRelationshipRecords.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 354
ScaleMode = 3 'Pixel
ScaleWidth = 460
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdComplete
BackColor = &H00FF80FF&
Caption = "完成[&C]"
Height = 375
Left = 2640
Style = 1 'Graphical
TabIndex = 21
Top = 4680
Width = 1095
End
Begin VB.CommandButton cmdDeliveryDate
BackColor = &H00FF80FF&
Caption = "脩改[&U]"
Height = 330
Left = 4800
Style = 1 'Graphical
TabIndex = 20
Top = 3960
Width = 1095
End
Begin VB.CommandButton cmdOrderformDate
BackColor = &H00FF80FF&
Caption = "脩改[&U]"
Height = 330
Left = 4800
Style = 1 'Graphical
TabIndex = 17
Top = 3480
Width = 1095
End
Begin VB.CommandButton cmdProductName
BackColor = &H00FF80FF&
Caption = "脩改[&U]"
Height = 330
Left = 4800
Style = 1 'Graphical
TabIndex = 14
Top = 3000
Width = 1095
End
Begin VB.CommandButton cmdProductQuantity
BackColor = &H00FF80FF&
Caption = "脩改[&U]"
Height = 330
Left = 4800
Style = 1 'Graphical
TabIndex = 11
Top = 2520
Width = 1095
End
Begin VB.CommandButton cmdOrderformID
BackColor = &H00FF80FF&
Caption = "脩改[&U]"
Height = 330
Left = 4800
Style = 1 'Graphical
TabIndex = 8
Top = 2040
Width = 1095
End
Begin VB.CommandButton cmdDesignStyleNo
BackColor = &H00FF80FF&
Caption = "脩改[&U]"
Height = 330
Left = 4800
Style = 1 'Graphical
TabIndex = 5
Top = 1560
Width = 1095
End
Begin VB.CommandButton cmdSalesSlipNo
BackColor = &H00FF80FF&
Caption = "脩改[&U]"
Height = 330
Left = 4800
Style = 1 'Graphical
TabIndex = 2
Top = 1080
Width = 1095
End
Begin MSComCtl2.DTPicker dptDeliveryDate
Height = 315
Left = 1800
TabIndex = 19
Top = 3960
Width = 2445
_ExtentX = 4313
_ExtentY = 556
_Version = 393216
Format = 25559041
CurrentDate = 38225
End
Begin MSComCtl2.DTPicker dptOrderformDate
Height = 315
Left = 1800
TabIndex = 16
Top = 3480
Width = 2445
_ExtentX = 4313
_ExtentY = 556
_Version = 393216
Format = 25559041
CurrentDate = 38225
End
Begin VB.OptionButton optDeliveryDate
BackColor = &H00FF80FF&
Caption = "[交貨日期]"
Height = 255
Left = 360
TabIndex = 18
Top = 3960
Width = 1215
End
Begin VB.OptionButton optOrderformDate
BackColor = &H00FF80FF&
Caption = "[訂單日期]"
Height = 255
Left = 360
TabIndex = 15
Top = 3480
Width = 1335
End
Begin VB.TextBox txtProductName
Height = 285
Left = 1800
MaxLength = 50
TabIndex = 13
Top = 3000
Width = 2415
End
Begin VB.OptionButton optProductName
BackColor = &H00FF80FF&
Caption = "[製品名稱]"
Height = 255
Left = 360
TabIndex = 12
Top = 3000
Width = 1215
End
Begin VB.TextBox txtProductQuantity
Height = 285
Left = 1800
MaxLength = 10
TabIndex = 10
Top = 2520
Width = 2415
End
Begin VB.OptionButton optProductQuantity
BackColor = &H00FF80FF&
Caption = "[製品數量]"
Height = 255
Left = 360
TabIndex = 9
Top = 2520
Width = 1215
End
Begin VB.TextBox txtOrderformID
Height = 285
Left = 1800
MaxLength = 50
TabIndex = 7
Top = 2040
Width = 2415
End
Begin VB.OptionButton optOrderformID
BackColor = &H00FF80FF&
Caption = "[訂單編號]"
Height = 255
Left = 360
TabIndex = 6
Top = 2040
Width = 1215
End
Begin VB.TextBox txtDesignStyleNo
Height = 285
Left = 1800
MaxLength = 50
TabIndex = 4
Top = 1560
Width = 2415
End
Begin VB.OptionButton optDesignStyleNo
BackColor = &H00FF80FF&
Caption = "[製品款號]"
Height = 255
Left = 360
TabIndex = 3
Top = 1560
Width = 1215
End
Begin VB.OptionButton optSalesSlipNo
BackColor = &H00FF80FF&
Caption = "[銷貨單號]"
Height = 255
Left = 360
TabIndex = 0
Top = 1080
Width = 1215
End
Begin VB.TextBox txtSalesSlipNo
Height = 285
Left = 1800
MaxLength = 50
TabIndex = 1
Top = 1080
Width = 2415
End
Begin VB.Image Image1
Height = 720
Left = 240
Picture = "frmUpdateAllRelationshipRecords.frx":1042
Top = 240
Width = 720
End
Begin VB.Label lblWarning
BackStyle = 0 'Transparent
Caption = "提醒！下面的任一脩改操作都會影響到數據庫中其它與之相關聯的數據記錄。請謹慎脩改！"
Height = 495
Left = 1200
TabIndex = 22
Top = 240
Width = 4695
End
End
Attribute VB_Name = "frmUpdateAllRelationshipRecords"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private pSalesSlipNo As String '1.存儲[銷貨單號]
Private pDesignStyleNo As String '2.存儲[製品款號]
Private pOrderformID As String '3.存儲[訂單編號]
Private pProductQuantity As String '4.存儲[製品數量]
Private pProductName As String '5.存儲[製品名稱]
Private pOrderformDate As String '6.存儲[訂單日期]
Private pDeliveryDate As String '7.存儲[交貨日期]
'1.獲取存儲到緩存的[銷貨單號]
Public Property Get SalesSlipNo() As String
SalesSlipNo = pSalesSlipNo
End Property
'存儲[銷貨單號]到緩存中
Public Property Let SalesSlipNo(ByVal strSalesSlipNo As String)
pSalesSlipNo = strSalesSlipNo
End Property
'2.獲取存儲到緩存的[製品款號]
Public Property Get DesignStyleNo() As String
DesignStyleNo = pDesignStyleNo
End Property
'存儲[製品款號]到緩存中
Public Property Let DesignStyleNo(ByVal strDesignStyleNo As String)
pDesignStyleNo = strDesignStyleNo
End Property
'3.獲取存儲到緩存的[訂單編號]
Public Property Get OrderformID() As String
OrderformID = pOrderformID
End Property
'存儲[訂單編號]到緩存中
Public Property Let OrderformID(ByVal strOrderformID As String)
pOrderformID = strOrderformID
End Property
'4.獲取存儲到緩存的[製品數量]
Public Property Get ProductQuantity() As String
ProductQuantity = pProductQuantity
End Property
'存儲[製品數量]到緩存中
Public Property Let ProductQuantity(ByVal strProductQuantity As String)
pProductQuantity = strProductQuantity
End Property
'5.獲取存儲到緩存的[製品名稱]
Public Property Get ProductName() As String
ProductName = pProductName
End Property
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -