📄 form3.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{B02F3647-766B-11CE-AF28-C3A2FBE76A13}#2.5#0"; "ss32x25.ocx"
Begin VB.Form Form3
Caption = "Form3"
ClientHeight = 7335
ClientLeft = 60
ClientTop = 345
ClientWidth = 8340
LinkTopic = "Form3"
ScaleHeight = 7335
ScaleWidth = 8340
StartUpPosition = 3 'Windows Default
Begin MSComctlLib.ProgressBar PrBar2
Height = 255
Left = 3360
TabIndex = 11
Top = 3360
Width = 3855
_ExtentX = 6800
_ExtentY = 450
_Version = 393216
Appearance = 1
End
Begin MSComctlLib.ProgressBar PrBar1
Height = 255
Left = 3480
TabIndex = 10
Top = 480
Width = 3735
_ExtentX = 6588
_ExtentY = 450
_Version = 393216
Appearance = 1
End
Begin VB.CommandButton Cmd_no
Caption = "Cancel"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7080
TabIndex = 7
Top = 6840
Width = 1095
End
Begin VB.CommandButton Cmd_ok
Caption = "Ok"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5760
TabIndex = 6
Top = 6840
Width = 1095
End
Begin VB.CommandButton Cmd_down
Caption = "Down"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4440
TabIndex = 5
Top = 6840
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "Command3"
Height = 615
Left = 5880
TabIndex = 4
Top = 7560
Width = 1575
End
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 615
Left = 3360
TabIndex = 3
Top = 7560
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 615
Left = 720
TabIndex = 2
Top = 7560
Width = 1455
End
Begin FPSpread.vaSpread vaS2
Height = 2655
Left = 360
TabIndex = 1
Top = 3720
Width = 7695
_Version = 131077
_ExtentX = 13573
_ExtentY = 4683
_StockProps = 64
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
SpreadDesigner = "Form3.frx":0000
End
Begin FPSpread.vaSpread vaS1
Height = 2055
Left = 480
TabIndex = 0
Top = 840
Width = 7215
_Version = 131077
_ExtentX = 12726
_ExtentY = 3625
_StockProps = 64
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
SpreadDesigner = "Form3.frx":0126
End
Begin VB.Label Label2
Caption = "Sales Order Detail"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 720
TabIndex = 9
Top = 3120
Width = 2055
End
Begin VB.Label label1
Caption = "Sales Order Head"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 720
TabIndex = 8
Top = 360
Width = 1935
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Type OrderH
salotyp As String
salonum As Long
salocre As Long
cmpcode As String
Entcode As String
soddate As Long
doddate As Long
Cuscode As Long
End Type
Private Type OrderD
cmpcode As String
Entcode As String
salotype As String
salonum As Long
salolin As Long
salolnc As Long
Itecode As Long
itedesc As String
sugoqty As Long
picknum As Long
meaunit As String
End Type
Private OrderH() As OrderH
Private OrderD() As OrderD
Private Sub Cmd_down_Click()
Call Orderh_down
Call Orderd_down
End Sub
Private Sub cmd_no_click()
vaS1.MaxRows = 0
vaS2.MaxRows = 0
PrBar1.Visible = False
PrBar2.Visible = False
End Sub
Private Sub cmd_ok_click()
Call Orderh_import
Call Orderd_import
End Sub
Private Sub Form_Load()
Call initvas
PrBar1.Visible = False
PrBar1.Visible = False
End Sub
Private Sub initvas()
vaS1.MaxCols = 8
SetColHead vaS1, 1, "Sales Type", 2
SetColHead vaS1, 2, "Sales Order Number ", 8
SetColHead vaS1, 3, "Sales Order Creation Date ", 6
SetColHead vaS1, 4, "Company Code", 5
SetColHead vaS1, 5, "entity code", 5
SetColHead vaS1, 6, "SO Download Date ", 6
SetColHead vaS1, 7, "DO Download Date", 6
SetColHead vaS1, 8, "Costomer Code", 8
lockspread vaS1, True
vaS2.MaxCols = 10
SetColHead vaS2, 1, "Company code", 5
SetColHead vaS2, 2, "Entity code ", 5
SetColHead vaS2, 3, "Sales Order type", 6
SetColHead vaS2, 4, "Sales order number", 5
SetColHead vaS2, 5, "Sales order line number", 5
SetColHead vaS2, 6, "Sales order line number creation date ", 6
SetColHead vaS2, 7, "Item code", 6
SetColHead vaS2, 8, "Item description", 8
SetColHead vaS2, 9, "Order quantity", 6
SetColHead vaS2, 10, "Pick number", 8
SetColHead vaS2, 11, "Unit of Measurement", 6
End Sub
Private Sub Orderh_down()
Dim i As Integer
PrBar1.Visible = True
DBFC ("Orderhdbf")
DBF_Rec.Open "select * from f4201 "
ReDim Preserve Cusrc(0) As CusC
PrBar1.Max = DBF_Rec.RecordCount
i = 1
vaS1.MaxRows = 0
DBF_Rec.MoveFirst
Do
PrBar1.Value = i
vaS1.MaxRows = vaS1.MaxRows + 1
OrderH(UBound(OrderH)).cmpcode = gsCmpCode
OrderH(UBound(OrderH)).Cuscode = DBF_Rec!shan8
Order
Loop Until DBF_Rec.EOF
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -