📄 frmbeforeadd.frm
字号:
Top = 1440
Width = 1035
End
Begin VB.Label Label18
Caption = "評語日期"
Height = 255
Left = -74520
TabIndex = 63
Top = 3540
Width = 1035
End
Begin VB.Label Label3
Caption = "花型結果"
Height = 255
Index = 6
Left = -74520
TabIndex = 62
Top = 1860
Width = 1035
End
Begin VB.Label Label17
Caption = "填入日期"
Height = 315
Left = -70860
TabIndex = 61
Top = 3540
Width = 915
End
Begin VB.Label Label12
Caption = "上批單號"
Height = 315
Left = -74520
TabIndex = 60
Top = 600
Width = 795
End
Begin VB.Label Label3
Caption = "花型結果"
Height = 255
Index = 5
Left = -74580
TabIndex = 50
Top = 2460
Width = 1035
End
Begin VB.Label Label9
Caption = "次數"
Height = 255
Left = -74580
TabIndex = 49
Top = 2820
Width = 1035
End
Begin VB.Label Label3
Caption = "花型名稱"
Height = 255
Index = 0
Left = -74580
TabIndex = 48
Top = 1560
Width = 1035
End
Begin VB.Label Label2
Caption = "訂單號"
Height = 255
Index = 0
Left = -74520
TabIndex = 47
Top = 1140
Width = 1035
End
Begin VB.Label Label8
Caption = "上批單號"
Height = 255
Left = -74580
TabIndex = 46
Top = 660
Width = 1035
End
Begin VB.Label Label6
Caption = "上批日期"
Height = 255
Left = -74580
TabIndex = 45
Top = 3240
Width = 1035
End
Begin VB.Label Label5
Caption = "評語日期"
Height = 255
Left = -70920
TabIndex = 44
Top = 3300
Width = 1035
End
Begin VB.Label Label4
Caption = "英文花型名稱"
Height = 255
Left = -74580
TabIndex = 43
Top = 1980
Width = 1095
End
Begin VB.Label Label3
Caption = "英文顏色名稱"
Height = 255
Index = 2
Left = -74640
TabIndex = 31
Top = 1920
Width = 1215
End
Begin VB.Label Label11
Caption = "次數"
Height = 255
Left = -74580
TabIndex = 30
Top = 2820
Width = 1035
End
Begin VB.Label Label3
Caption = "顏色名稱"
Height = 255
Index = 1
Left = -74580
TabIndex = 29
Top = 1500
Width = 1035
End
Begin VB.Label Label2
Caption = "顏色結果"
Height = 255
Index = 1
Left = -74580
TabIndex = 28
Top = 2340
Width = 1035
End
Begin VB.Label Label1
Caption = "上批單號"
Height = 255
Left = -74640
TabIndex = 27
Top = 660
Width = 1035
End
Begin VB.Label Label16
Caption = "上批日期"
Height = 255
Left = -74580
TabIndex = 26
Top = 3240
Width = 1035
End
Begin VB.Label Label14
Caption = "評語日期"
Height = 255
Left = -70980
TabIndex = 25
Top = 3300
Width = 1035
End
Begin VB.Label Label24
Caption = "訂單號"
Height = 255
Left = -74580
TabIndex = 24
Top = 1080
Width = 1275
End
Begin VB.Label Label7
Caption = "填寫人"
Height = 255
Left = -70680
TabIndex = 23
Top = 3000
Width = 1035
End
Begin VB.Label Label10
Caption = "上批日期"
Height = 255
Left = -74340
TabIndex = 22
Top = 3060
Width = 1035
End
Begin VB.Label Label13
Caption = "加工廠"
Height = 255
Left = -74340
TabIndex = 21
Top = 2640
Width = 1035
End
Begin VB.Label Label15
Caption = "評語"
Height = 255
Left = -74340
TabIndex = 20
Top = 2220
Width = 1035
End
Begin VB.Label Label22
Caption = "訂單號"
Height = 255
Left = -74340
TabIndex = 19
Top = 960
Width = 1035
End
Begin VB.Label Label3
Caption = "顏色名稱"
Height = 255
Index = 3
Left = -74340
TabIndex = 18
Top = 1380
Width = 1035
End
Begin VB.Label Label23
Caption = "評語日期"
Height = 255
Left = -74340
TabIndex = 17
Top = 3480
Width = 1035
End
Begin VB.Label Label3
Caption = "顏色結果"
Height = 255
Index = 4
Left = -74340
TabIndex = 16
Top = 1800
Width = 1035
End
Begin VB.Label Label40
Caption = "填入日期"
Height = 315
Left = -70680
TabIndex = 15
Top = 3480
Width = 915
End
Begin VB.Label Label50
Caption = "上批單號"
Height = 315
Left = -74340
TabIndex = 14
Top = 540
Width = 795
End
End
End
End
Attribute VB_Name = "frmBeforeAdd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public viewFlag As String
Public newItem As Boolean 'true表示增加
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOk_Click()
Save newItem
End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
If viewFlag = "Color" Then
SSTab1.Tab = 0
End If
If viewFlag = "subColor" Then
SSTab1.Tab = 1
End If
If viewFlag = "Layout" Then
SSTab1.Tab = 2
End If
If viewFlag = "subLayout" Then
SSTab1.Tab = 3
End If
If viewFlag = "Placement" Then
SSTab1.Tab = 4
End If
InitCombo
End Sub
Private Sub InitCombo()
ComColor.AddItem ("0")
ComColor.AddItem ("1")
subColor.AddItem ("0")
subColor.AddItem ("1")
txtLayout.AddItem ("0")
txtLayout.AddItem ("1")
subLayout.AddItem ("0")
subLayout.AddItem ("1")
End Sub
Public Sub InitInfo(strId As String, LabdipNo As String, OrderNo As String)
If newItem = False Then
Dim rs As ADODB.Recordset
SystemExecuteStart Me
' On Error GoTo errLabel
Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
Set .ActiveConnection = cn
End With
Dim strSql As String
If viewFlag = "Color" Then
strSql = "select * from tBeforeLabdipColor where id=" & strId
rs.Open strSql
If Not rs.EOF Then
txtLabdipNo.Text = rs.Fields!LabdipNo
txtOrderNo.Text = rs.Fields!OrderNo
ColorId = rs.Fields!ID
txtColorName = rs.Fields!ColorName
txteColorName = rs.Fields!eColorName
txtColorNumber = rs.Fields!ColorNumber
txtLabdipDate = rs.Fields!LabdipDate
txtReviewsDate = rs.Fields!ReviewsDate
End If
rs.Close
End If
If viewFlag = "subColor" Then
strSql = "select * from tBeforeLabdipColorSub where id=" & strId
rs.Open strSql
If Not rs.EOF Then
subLabdipNo.Text = rs.Fields!LabdipNo
subOrderNo.Text = rs.Fields!OrderNo
subId = rs.Fields!ID
subColorName.Text = rs.Fields!ColorName
subColor.Text = IIf(rs.Fields!Color, "1", "0")
subReviews.Text = rs.Fields!Reviews
subFactoryName.Text = rs.Fields!FactoryName
subLabdipDate = rs.Fields!LabdipDate
subReviewsDate = rs.Fields!ReviewsDate
subUpdateOperator = rs.Fields!UpdateOperator
subUpdateDate = rs.Fields!UpdateDate
End If
rs.Close
End If
If viewFlag = "Layout" Then
strSql = "select * from tBeforeLabdipLayout where id=" & strId
rs.Open strSql
If Not rs.EOF Then
LayoutLabdipNo.Text = rs.Fields!LabdipNo
LayoutOrderNo.Text = rs.Fields!OrderNo
LayoutId = rs.Fields!ID
txtLayoutName.Text = rs.Fields!LayoutName
txteLayoutName.Text = rs.Fields!eLayoutName
txtLayout.Text = IIf(rs.Fields!Layout, "1", "0")
txtLayoutNumber.Text = rs.Fields!LayoutNumber
LayoutLabdipDate = rs.Fields!LabdipDate
LayoutReviewsDate = rs.Fields!ReviewsDate
End If
rs.Close
End If
If viewFlag = "subLayout" Then
strSql = "select * from tBeforeLabdipLayoutSub where id=" & strId
rs.Open strSql
If Not rs.EOF Then
subLayoutLabdipNo.Text = rs.Fields!LabdipNo
subLayoutOrderNo.Text = rs.Fields!OrderNo
subLayoutId = rs.Fields!ID
subLayoutName.Text = rs.Fields!LayoutName
subLayout = IIf(rs.Fields!Layout, "1", "0")
LayoutReviews = rs.Fields!Reviews
subFactoryName = rs.Fields!FactoryName
subLabdipDate = rs.Fields!LabdipDate
subReviewsDate = rs.Fields!ReviewsDate
subUpdateOperator = rs.Fields!UpdateOperator
subUpdateDate = rs.Fields!UpdateDate
End If
rs.Close
End If
If viewFlag = "Placement" Then
strSql = "select * from tBeforeLabdipReference where id=" & strId
rs.Open strSql
If Not rs.EOF Then
RefLabdipNo.Text = rs.Fields!LabdipNo
RefOrderNo.Text = rs.Fields!OrderNo
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -