frmdeliverqury.frm

这是一个利用VB编写的中小企业ERP。功能比较全

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 = 2
        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 = 0
        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