【VB开源代码栏目提醒】:本文主要为网学会员提供FrmDeliverQury.frm,希望对需要FrmDeliverQury.frm网友有所帮助,学习一下!
VERSION 5.00
Begin VB.Form FrmDeliverQury
Caption = "送货信息查询"
ClientHeight = 2295
ClientLeft = 60
ClientTop = 510
ClientWidth = 5205
Icon = "FrmDeliverQury.frx":0000
LinkTopic = "Form1"
ScaleHeight = 2295
ScaleWidth = 5205
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox TxtDeliverID
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 0
Top = 720
Width = 3615
End
Begin VB.Image ImgCOID
Height = 300
Left = 4440
MouseIcon = "FrmDeliverQury.frx":0CCA
MousePointer = 99 'Custom
Picture = "FrmDeliverQury.frx":0FD4
ToolTipText = "
查询送货地代号"
Top = 720
Width = 300
End
Begin VB.Label Label1
Caption = "请输入要查询的送货地代号:"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 3
Top = 120
Width = 4095
End
Begin VB.Label LblOK
BackStyle = 0 'Transparent
Caption = "确 定"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1080
MouseIcon = "FrmDeliverQury.frx":14C6
MousePointer = 99 'Custom
TabIndex = 2
Top = 1440
Width = 735
End
Begin VB.Image Image3
Height = 300
Left = 480
Picture = "FrmDeliverQury.frx":17D0
Top = 1440
Width = 300
End
Begin
VB.Label LblCancel
BackStyle = 0 'Transparent
Caption = "取 消"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3480
MouseIcon = "FrmDeliverQury.frx":1BEC
MousePointer = 99 'Custom
TabIndex = 1
Top = 1440
Width = 855
End
Begin VB.Image Image4
Height = 300
Left = 2880
Picture = "FrmDeliverQury.frx":1EF6
Top = 1440
Width = 300
End
End
Attribute VB_Name = "FrmDeliverQury"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ImgCOID_Click()
FrmDeliverIDQury.Show 1
End Sub
Private Sub LblCancel_Click()
Unload Me
End Sub
Private Sub lblOk_Click()
DataEnvironmentSales.CmdDeliver (TxtDeliverID.Text)
DataReportDeliver.Show 1
'DataReport1.Show 1
DataEnvironmentSales.rsCmdDeliver.Close
Unload Me
End Sub