📄 search purchase transfer form.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form30
BackColor = &H80000013&
Caption = "Search Purchase Product Transfer"
ClientHeight = 8040
ClientLeft = 60
ClientTop = 450
ClientWidth = 11880
LinkTopic = "Form30"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8040
ScaleWidth = 11880
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame1
BackColor = &H80000013&
Caption = "Search By"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2415
Left = 120
TabIndex = 3
Top = 4680
Width = 4815
Begin VB.OptionButton Option4
BackColor = &H80000013&
Caption = "From Date"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 8
Top = 1440
Width = 1935
End
Begin VB.OptionButton Option1
BackColor = &H80000013&
Caption = "Arrival No"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 7
Top = 480
Width = 1935
End
Begin VB.OptionButton Option2
BackColor = &H80000013&
Caption = "Invoice Key"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 6
Top = 960
Width = 1935
End
Begin VB.TextBox invoice
Height = 285
Left = 2760
TabIndex = 5
Top = 960
Width = 1455
End
Begin VB.TextBox depno
Height = 285
Left = 2760
TabIndex = 4
Top = 480
Width = 1455
End
Begin MSComCtl2.DTPicker fdate
Height = 315
Left = 2760
TabIndex = 15
Top = 1440
Width = 1455
_ExtentX = 2566
_ExtentY = 556
_Version = 393216
Format = 64225281
CurrentDate = 38289
End
Begin MSComCtl2.DTPicker tdate
Height = 315
Left = 2760
TabIndex = 16
Top = 1920
Width = 1455
_ExtentX = 2566
_ExtentY = 556
_Version = 393216
Format = 64225281
CurrentDate = 38289
End
Begin VB.Label Label2
BackColor = &H80000013&
Caption = "To Date"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 840
TabIndex = 9
Top = 1920
Width = 1335
End
End
Begin VB.Frame Frame2
BackColor = &H80000013&
Caption = "Operations"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2415
Left = 6120
TabIndex = 0
Top = 4680
Width = 4095
Begin VB.Frame Frame3
BackColor = &H00C0C0FF&
Height = 1575
Left = 240
TabIndex = 1
Top = 600
Width = 3615
Begin VB.Frame Frame4
BackColor = &H00FFFFFF&
Height = 975
Left = 240
TabIndex = 2
Top = 360
Width = 3135
Begin VB.CommandButton search
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Caption = "Search"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
Style = 1 'Graphical
TabIndex = 14
Top = 240
Width = 975
End
Begin VB.CommandButton select
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Caption = "Select"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1080
Style = 1 'Graphical
TabIndex = 13
Top = 240
Width = 975
End
Begin VB.CommandButton Close
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Caption = "Close"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 2040
Style = 1 'Graphical
TabIndex = 12
Top = 240
Width = 975
End
End
End
End
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 3015
Left = 120
TabIndex = 10
Top = 1440
Width = 10215
_ExtentX = 18018
_ExtentY = 5318
_Version = 393216
Cols = 15
BackColorBkg = 16777215
End
Begin VB.Image Image3
Height = 585
Left = 9960
Picture = "Search Purchase Transfer Form.frx":0000
Top = 6615
Width = 615
End
Begin VB.Label Label3
BackColor = &H80000013&
Height = 6735
Left = 10150
TabIndex = 17
Top = 0
Width = 375
End
Begin VB.Image Image2
Height = 915
Left = -120
Picture = "Search Purchase Transfer Form.frx":1326
Top = 7200
Width = 10335
End
Begin VB.Image Image1
Height = 8100
Left = 10200
Picture = "Search Purchase Transfer Form.frx":2002C
Top = 0
Width = 1800
End
Begin VB.Label Label1
BackColor = &H80000013&
Caption = "Search Purchase Product Transfer"
BeginProperty Font
Name = "Times New Roman"
Size = 24
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1320
TabIndex = 11
Top = 360
Width = 7335
End
End
Attribute VB_Name = "Form30"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Public callingform As Object
Private Sub code1_Change()
End Sub
Private Sub Close_Click()
Unload Me
End Sub
Private Sub Form_Load()
Grid1.Rows = 2
Grid1.TextMatrix(0, 0) = "Arrival No"
Grid1.TextMatrix(0, 1) = "Arrival Date"
Grid1.TextMatrix(0, 2) = "Arrival Time"
Grid1.TextMatrix(0, 3) = "Purchase Key"
Grid1.TextMatrix(0, 4) = "Purchase Date"
Grid1.TextMatrix(0, 5) = "Supplier Name"
Grid1.TextMatrix(0, 6) = "Product Name"
Grid1.TextMatrix(0, 7) = "Total Bags"
Grid1.TextMatrix(0, 8) = "Weight/Bag"
Grid1.TextMatrix(0, 9) = "Total Mounds"
Grid1.TextMatrix(0, 10) = "Vehical Name"
Grid1.TextMatrix(0, 11) = "Vehical No"
Grid1.TextMatrix(0, 12) = "Driver Name"
Grid1.TextMatrix(0, 13) = "Bilty No"
Grid1.TextMatrix(0, 14) = "Good Company"
'//////////////////////////////////
If cnn.State = adStateOpen Then cnn.Close
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -