frmtakeoutqury.frm

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

Version 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form FrmTakeoutQury
    Caption = "出库清单查询"
    ClientHeight = 3675
    ClientLeft = 60
    ClientTop = 510
    ClientWidth = 5520
    Icon = "FrmTakeoutQury.frx":0000
    LinkTopic = "Form1"
    ScaleHeight = 3675
    ScaleWidth = 5520
    StartUpPosition = 2 'CenterScreen
    Begin VB.Frame Frame2
        Caption = "出库类型"
        BeginProperty Font
        Name = "宋体"
        Size = 10.5
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 1095
        Left = 480
        TabIndex = 5
        Top = 1800
        Width = 4575
        Begin VB.ComboBox ComboType
            Height = 315
            ItemData = "FrmTakeoutQury.frx":0CCA
            Left = 2160
            List = "FrmTakeoutQury.frx":0CD7
            Style = 2 'Dropdown List
            TabIndex = 9
            Top = 480
            Width = 1815
        End
        Begin VB.Label Label1
            AutoSize = -1 'True
            BackStyle = 0 'Transparent
            Caption = "出库类型"
            BeginProperty Font
            Name = "宋体"
            Size = 12
            Charset = 0
            Weight = 700
            Underline = 0 'False
            Italic = 0 'False
            Strikethrough = 0 'False
            EndProperty
            Height = 240
            Left = 720
            TabIndex = 6
            Top = 480
            Width = 1020
        End
    End
    Begin VB.Frame Frame1
        Caption = "出库日期"
        BeginProperty Font
        Name = "宋体"
        Size = 10.5
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 1575
        Left = 480
        TabIndex = 0
        Top = 120
        Width = 4575
        Begin MSComCtl2.DTPicker DTStartDate
            Height = 375
            Left = 2160
            TabIndex = 1
            Top = 360
            Width = 1815
            _ExtentX = 3201
            _ExtentY = 661
            _Version = 393216
            Format = 68681729
            CurrentDate = 38208
        End
        Begin MSComCtl2.DTPicker DTEndDate
            Height = 375
            Left = 2160
            TabIndex = 3
            Top = 960
            Width = 1815
            _ExtentX = 3201
            _ExtentY = 661
            _Version = 393216
            Format = 68681729
            CurrentDate = 38208
        End
        Begin VB.Label Label2
            AutoSize = -1 'True
            BackStyle = 0 'Transparent
            Caption = "终止日期"
            BeginProperty Font
            Name = "宋体"
            Size = 12
            Charset = 0
            Weight = 700
            Underline = 0 'False
            Italic = 0 'False
            Strikethrough = 0 'False
            EndProperty
            Height = 240
            Left = 720
            TabIndex = 4
            Top = 960
            Width = 1020
        End
        Begin VB.Label Label7
            AutoSize = -1 'True
            BackStyle = 0 'Transparent
            Caption = "起始日期"
            BeginProperty Font
            Name = "宋体"
            Size = 12
            Charset = 0
            Weight = 700
            Underline = 0 'False
            Italic = 0 'False
            Strikethrough = 0 'False
            EndProperty
            Height = 240
            Left = 720
            TabIndex = 2
            Top = 480
            Width = 1020
        End
    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 = 1560
        MouseIcon = "FrmTakeoutQury.frx":0CF9
        MousePointer = 99 'Custom
        TabIndex = 8
        Top = 3120
        Width = 735
    End
    Begin VB.Image Image3
        Height = 300
        Left = 960
        Picture = "FrmTakeoutQury.frx":1003
        Top = 3120
        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 = 3960
        MouseIcon = "FrmTakeoutQury.frx":141F
        MousePointer = 99 'Custom
        TabIndex = 7
        Top = 3120
        Width = 855
    End
    Begin VB.Image Image4
        Height = 300
        Left = 3360
        Picture = "FrmTakeoutQury.frx":1729
        Top = 3120
        Width = 300
    End
End
Attribute VB_Name = "FrmTakeoutQury"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
    DTStartDate.Value = Format(Now, "yyyy-mm-dd")
    DTEndDate.Value = Format(Now, "yyyy-mm-dd")
    ComboType.ListIndex = 0
End Sub

Private Sub LblCancel_Click()
    Unload Me
End Sub

Private Sub LblOK_Click()
    If DTEndDate.Value < DTStartDate.Value Then
        MsgBox "终止日期应在起始日期之后，请重新选择"
        Exit Sub
    End If
    DataEnvironmentStore.CmdTakeout DTStartDate.Value, DTEndDate.Value, ComboType.Text
    DataReportTakeout.Show 1
    DataEnvironmentStore.rsCmdTakeout.Close
    Unload Me
End Sub