📄 frmshipmentstodoinfo.frm
字号:
VERSION 5.00
Object = "{4932CEF1-2CAA-11D2-A165-0060081C43D9}#2.0#0"; "Actbar2.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmShipmentsTodoInfo
BorderStyle = 3 'Fixed Dialog
Caption = "出辦通知書"
ClientHeight = 6645
ClientLeft = 45
ClientTop = 435
ClientWidth = 8085
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6645
ScaleWidth = 8085
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin ActiveBar2LibraryCtl.ActiveBar2 ActiveBar21
Height = 6645
Left = 0
TabIndex = 0
Top = 0
Width = 8085
_LayoutVersion = 1
_ExtentX = 14261
_ExtentY = 11721
_DataPath = ""
Bands = "frmShipmentsTodoInfo.frx":0000
Begin VB.Frame Frame1
Height = 6015
Left = 60
TabIndex = 1
Top = 540
Width = 7815
Begin VB.CommandButton CmdTransport
Caption = "..."
Height = 255
Left = 3720
TabIndex = 30
Top = 1680
Width = 435
End
Begin VB.TextBox txtTransportName
Height = 315
Left = 5520
TabIndex = 29
Top = 1140
Width = 1995
End
Begin VB.CommandButton CmdCustomer
Caption = "..."
Height = 255
Left = 3720
TabIndex = 28
Top = 780
Width = 435
End
Begin VB.CommandButton CmdOk
Caption = "選擇合约"
Height = 315
Left = 360
TabIndex = 27
Top = 2580
Width = 1035
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHF1
Height = 1695
Left = 1500
TabIndex = 26
Top = 2520
Width = 6015
_ExtentX = 10610
_ExtentY = 2990
_Version = 393216
AllowUserResizing= 1
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin VB.ComboBox txtReInfo
Height = 315
Left = 1500
TabIndex = 25
Text = "GYM APPREOVED SAMPLE"
Top = 2100
Width = 3615
End
Begin VB.TextBox txtId
Height = 270
Left = 480
TabIndex = 24
Top = 4920
Visible = 0 'False
Width = 435
End
Begin VB.TextBox txtFromInfo
Height = 915
Left = 1500
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 23
Top = 4440
Width = 6015
End
Begin MSComCtl2.DTPicker TransportDate
Height = 315
Left = 5520
TabIndex = 21
Top = 1620
Width = 1995
_ExtentX = 3519
_ExtentY = 556
_Version = 393216
Format = 88473601
CurrentDate = 39601
End
Begin VB.TextBox txtTransportNo
Height = 315
Left = 1500
MaxLength = 50
TabIndex = 20
Top = 1620
Width = 1995
End
Begin VB.TextBox txtLinkman
Height = 315
Left = 1500
MaxLength = 50
TabIndex = 16
Top = 1140
Width = 1995
End
Begin VB.TextBox txtUpdateOperator
BackColor = &H00FFFFFF&
Height = 315
Left = 1500
MaxLength = 20
TabIndex = 6
Top = 5520
Width = 1875
End
Begin VB.TextBox txtUpdateDate
BackColor = &H8000000F&
Enabled = 0 'False
Height = 315
Left = 5520
TabIndex = 5
Top = 5520
Width = 1995
End
Begin VB.TextBox txtPatternNo
BackColor = &H00C0C0FF&
Height = 315
Left = 1500
MaxLength = 20
TabIndex = 4
Top = 300
Width = 1995
End
Begin VB.TextBox txtCustomerNo
Height = 315
Left = 1500
MaxLength = 20
TabIndex = 3
Top = 720
Width = 1995
End
Begin VB.TextBox txtCustomerAllName
Height = 315
Left = 5520
MaxLength = 100
TabIndex = 2
Top = 720
Width = 1995
End
Begin MSComCtl2.DTPicker FoundDate
Height = 315
Left = 5520
TabIndex = 7
Top = 300
Width = 1995
_ExtentX = 3519
_ExtentY = 556
_Version = 393216
Format = 88473601
CurrentDate = 39282
End
Begin VB.Label Label6
Caption = "備註"
Height = 255
Left = 360
TabIndex = 22
Top = 4440
Width = 795
End
Begin VB.Label Label5
Caption = "快遞日期"
Height = 255
Left = 4380
TabIndex = 19
Top = 1620
Width = 975
End
Begin VB.Label Label4
Caption = "快遞編號"
Height = 255
Left = 360
TabIndex = 18
Top = 1620
Width = 855
End
Begin VB.Label Label3
Caption = "快運公司"
Height = 315
Left = 4380
TabIndex = 17
Top = 1200
Width = 1035
End
Begin VB.Label Label10
Caption = "填寫人"
Height = 255
Left = 360
TabIndex = 15
Top = 5580
Width = 735
End
Begin VB.Label Label12
Caption = "填寫日期"
Height = 255
Left = 4260
TabIndex = 14
Top = 5580
Width = 855
End
Begin VB.Label Label2
Caption = "信息源"
Height = 255
Index = 12
Left = 360
TabIndex = 13
Top = 2160
Width = 855
End
Begin VB.Label Label2
Caption = "聯繫人"
Height = 255
Index = 6
Left = 360
TabIndex = 12
Top = 1200
Width = 1035
End
Begin VB.Label Label1
Caption = "編號"
Height = 255
Left = 360
TabIndex = 11
Top = 360
Width = 1035
End
Begin VB.Label Label2
Caption = "客戶編號"
Height = 255
Index = 1
Left = 360
TabIndex = 10
Top = 780
Width = 1035
End
Begin VB.Label Label2
Caption = "日期"
Height = 255
Index = 0
Left = 4380
TabIndex = 9
Top = 360
Width = 735
End
Begin VB.Label Label2
Caption = "客戶全稱"
Height = 255
Index = 2
Left = 4380
TabIndex = 8
Top = 780
Width = 1035
End
End
End
End
Attribute VB_Name = "frmShipmentsTodoInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public newItem As Boolean 'true表示增加
Dim lngrow As Integer
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 "cmdPrint"
Call PrintShipmentsTodo
End Select
End Sub
Private Sub PrintShipmentsTodo()
Dim Str As String
Str = txtFromInfo
Str = Replace(Str, vbCrLf, vbLf)
Str = Replace(Str, vbCr, vbLf)
Str = Replace(Str, vbLf, vbCrLf)
With BillReportShipmentsTodo
.Founddate.SetText (Founddate.Value)
.CustomerAllName.SetText (txtCustomerAllName)
.TransportName.SetText (txtTransportName)
.RE.SetText (txtReInfo)
.fromInfo.SetText (Str)
.shipmentsno.SetText (txtPatternNo)
.dated.SetText (Founddate.Value)
End With
Dim i, iRows As Integer
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
.LockType = adLockOptimistic
.CursorType = adOpenDynamic
End With
rs.Fields.Append "contractno", adVarChar, 50
rs.Fields.Append "fabricno", adVarChar, 50
rs.Fields.Append "col", adVarChar, 50
rs.Fields.Append "quantity", adVarChar, 20
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -