📄 search sale departure.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 Form6
BackColor = &H80000013&
Caption = "Search Sale Product Departure"
ClientHeight = 8025
ClientLeft = 60
ClientTop = 450
ClientWidth = 11880
LinkTopic = "Form6"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8025
ScaleWidth = 11880
StartUpPosition = 1 'CenterOwner
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 = 8520
Style = 1 'Graphical
TabIndex = 16
Top = 5760
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 = 7560
Style = 1 'Graphical
TabIndex = 15
Top = 5760
Width = 975
End
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 = 6600
Style = 1 'Graphical
TabIndex = 14
Top = 5760
Width = 975
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 = 6000
TabIndex = 11
Top = 4560
Width = 4095
Begin VB.Frame Frame3
BackColor = &H00C0C0FF&
Height = 1575
Left = 240
TabIndex = 12
Top = 600
Width = 3615
Begin VB.Frame Frame4
BackColor = &H00FFFFFF&
Height = 975
Left = 240
TabIndex = 13
Top = 360
Width = 3135
End
End
End
Begin MSComCtl2.DTPicker fdate
Height = 315
Left = 3000
TabIndex = 10
Top = 6000
Width = 1455
_ExtentX = 2566
_ExtentY = 556
_Version = 393216
Format = 102236161
CurrentDate = 38289
End
Begin MSComCtl2.DTPicker tdate
Height = 315
Left = 3000
TabIndex = 9
Top = 6480
Width = 1455
_ExtentX = 2566
_ExtentY = 556
_Version = 393216
Format = 102236161
CurrentDate = 38289
End
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 = 360
TabIndex = 2
Top = 4560
Width = 4815
Begin VB.TextBox depno
Height = 285
Left = 2640
TabIndex = 8
Top = 480
Width = 1455
End
Begin VB.TextBox invoice
Height = 285
Left = 2640
TabIndex = 7
Top = 960
Width = 1455
End
Begin VB.OptionButton Option2
BackColor = &H80000013&
Caption = "Invoice 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 = 360
TabIndex = 5
Top = 960
Width = 1815
End
Begin VB.OptionButton Option1
BackColor = &H80000013&
Caption = "Departure 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 = 360
TabIndex = 4
Top = 480
Width = 1815
End
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 = 360
TabIndex = 3
Top = 1440
Width = 1815
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 = 720
TabIndex = 6
Top = 1920
Width = 975
End
End
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 3135
Left = 360
TabIndex = 0
Top = 1320
Width = 9735
_ExtentX = 17171
_ExtentY = 5530
_Version = 393216
Cols = 15
BackColorBkg = 16777215
End
Begin VB.Image Image3
Height = 840
Left = 9960
Picture = "search sale departure.frx":0000
Top = 6480
Width = 690
End
Begin VB.Label Label3
BackColor = &H80000013&
Height = 6735
Left = 10080
TabIndex = 17
Top = 0
Width = 375
End
Begin VB.Image Image2
Height = 870
Left = -480
Picture = "search sale departure.frx":1EE2
Top = 7200
Width = 10680
End
Begin VB.Image Image1
Height = 8100
Left = 10120
Picture = "search sale departure.frx":20314
Top = 0
Width = 1800
End
Begin VB.Label Label1
BackColor = &H80000013&
Caption = "Search Sale Product Departure"
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 = 1560
TabIndex = 1
Top = 240
Width = 6735
End
End
Attribute VB_Name = "Form6"
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) = "Departure No"
Grid1.TextMatrix(0, 1) = "Date"
Grid1.TextMatrix(0, 2) = "Departure Time"
Grid1.TextMatrix(0, 3) = "Sale Invoice No"
Grid1.TextMatrix(0, 4) = "Invoice Date"
Grid1.TextMatrix(0, 5) = "Customer 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
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=hussain"
'////////////////////////////////
If rs.State = adStateOpen Then rs.Close
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -