📄 form1.frm
字号:
TabIndex = 55
Top = 4260
Width = 915
End
Begin VB.CommandButton SubEdit
Caption = "編輯"
Height = 315
Left = -66180
TabIndex = 54
Top = 4260
Width = 795
End
Begin VB.CommandButton SubAdd
Caption = "增加"
Height = 315
Left = -67620
TabIndex = 53
Top = 4260
Width = 795
End
Begin VB.CommandButton ColorEdit
Caption = "編輯&E"
Height = 315
Left = -72840
TabIndex = 52
Top = 4260
Width = 735
End
Begin VB.CommandButton ColorAdd
Caption = "增加&A"
Height = 315
Left = -74040
TabIndex = 51
Top = 4260
Width = 735
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHF6
Height = 3795
Left = -74880
TabIndex = 50
Top = 420
Width = 11175
_ExtentX = 19711
_ExtentY = 6694
_Version = 393216
BackColorBkg = 14215660
SelectionMode = 1
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHF5
Height = 3855
Left = -74880
TabIndex = 49
Top = 360
Width = 11175
_ExtentX = 19711
_ExtentY = 6800
_Version = 393216
BackColorBkg = 14215660
SelectionMode = 1
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHF3
Height = 3795
Left = -68100
TabIndex = 48
Top = 420
Width = 4395
_ExtentX = 7752
_ExtentY = 6694
_Version = 393216
BackColorBkg = 14215660
SelectionMode = 1
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHF2
Height = 3795
Left = -74880
TabIndex = 47
Top = 420
Width = 6675
_ExtentX = 11774
_ExtentY = 6694
_Version = 393216
BackColorBkg = 14215660
SelectionMode = 1
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHF1
Height = 4155
Left = 120
TabIndex = 43
Top = 420
Width = 11175
_ExtentX = 19711
_ExtentY = 7329
_Version = 393216
BackColorBkg = 14215660
AllowUserResizing= 3
_NumberOfBands = 1
_Band(0).Cols = 2
End
End
Begin MSComCtl2.DTPicker DTPlate
Height = 315
Left = 5520
TabIndex = 20
Top = 2820
Width = 1995
_ExtentX = 3519
_ExtentY = 556
_Version = 393216
Format = 52494337
CurrentDate = 39583
End
Begin MSComCtl2.DTPicker DTPdelivery
Height = 315
Left = 9300
TabIndex = 21
Top = 1140
Width = 1995
_ExtentX = 3519
_ExtentY = 556
_Version = 393216
Format = 52494337
CurrentDate = 39583
End
Begin MSComCtl2.DTPicker DTPdrop
Height = 315
Left = 9300
TabIndex = 22
Top = 2820
Width = 1995
_ExtentX = 3519
_ExtentY = 556
_Version = 393216
Format = 52494337
CurrentDate = 39583
End
Begin VB.Label Label4
Caption = "花型/顏色標準"
Height = 255
Left = 4320
TabIndex = 44
Top = 2460
Width = 1335
End
Begin VB.Label Label2
Caption = "廠名"
Height = 255
Index = 3
Left = 8220
TabIndex = 42
Top = 780
Width = 1035
End
Begin VB.Label Label2
Caption = "客戶簡稱"
Height = 255
Index = 2
Left = 4320
TabIndex = 41
Top = 780
Width = 1035
End
Begin VB.Label Label7
Caption = "後加日期"
Height = 255
Left = 4320
TabIndex = 40
Top = 2880
Width = 1035
End
Begin VB.Label Label2
Caption = "訂單號"
Height = 255
Index = 0
Left = 4320
TabIndex = 39
Top = 360
Width = 735
End
Begin VB.Label Label2
Caption = "客戶編號"
Height = 255
Index = 1
Left = 360
TabIndex = 38
Top = 780
Width = 1035
End
Begin VB.Label Label1
Caption = "上批單號"
Height = 255
Left = 360
TabIndex = 37
Top = 360
Width = 1035
End
Begin VB.Label Label2
Caption = "季節"
Height = 255
Index = 6
Left = 360
TabIndex = 36
Top = 1200
Width = 1035
End
Begin VB.Label Label2
Caption = "交貨期"
Height = 255
Index = 5
Left = 4320
TabIndex = 35
Top = 1200
Width = 735
End
Begin VB.Label Label2
Caption = "交期日期"
Height = 255
Index = 7
Left = 8160
TabIndex = 34
Top = 1200
Width = 735
End
Begin VB.Label Label2
Caption = "布號"
Height = 255
Index = 9
Left = 360
TabIndex = 33
Top = 1620
Width = 1035
End
Begin VB.Label Label2
Caption = "花型/顏色"
Height = 255
Index = 10
Left = 4320
TabIndex = 32
Top = 1560
Width = 1215
End
Begin VB.Label Label2
Caption = "顏料"
Height = 255
Index = 11
Left = 4320
TabIndex = 31
Top = 1980
Width = 1035
End
Begin VB.Label Label2
Caption = "款號"
Height = 255
Index = 12
Left = 360
TabIndex = 30
Top = 2040
Width = 1035
End
Begin VB.Label Label2
Caption = "整理"
Height = 255
Index = 13
Left = 8160
TabIndex = 29
Top = 2040
Width = 1215
End
Begin VB.Label Label2
Caption = "品種"
Height = 255
Index = 15
Left = 360
TabIndex = 28
Top = 2460
Width = 1035
End
Begin VB.Label Label2
Caption = "價格 "
Height = 255
Index = 16
Left = 8160
TabIndex = 27
Top = 2460
Width = 1215
End
Begin VB.Label Label3
Caption = "取消日期"
Height = 255
Left = 8100
TabIndex = 26
Top = 2880
Width = 1035
End
Begin VB.Label Label2
Caption = "備注"
Height = 255
Index = 17
Left = 4320
TabIndex = 25
Top = 3300
Width = 1035
End
Begin VB.Label Label12
Caption = "更新日期"
Height = 255
Left = 6900
TabIndex = 24
Top = 3720
Width = 1155
End
Begin VB.Label Label10
Caption = "創建人"
Height = 255
Left = 2400
TabIndex = 23
Top = 3720
Width = 735
End
End
End
End
Attribute VB_Name = "frmBeforeInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim lngrow As Long
Public newItem As Boolean
Dim MshF As MSHFlexGrid
Private Sub ActiveBar21_ToolClick(ByVal Tool As ActiveBar2LibraryCtl.Tool)
Select Case Tool.Name
Case "cmdSave":
Save newItem
Case "cmdCancel":
Unload Me
Case "cmdDel":
DelOperatorInf
Case "cmdAdd":
If txtLabdipNo = "" Then
MsgBox "請先填寫上批單號，訂單號等基本信息", vbInformation + vbOKOnly, "提示"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -