frmwmsqueryinfo.dfm

物流供应链管理系统

object FormWMSQueryInfo: TFormWMSQueryInfo
  Left = 157
  Top = 73
  Width = 544
  Height = 375
  Caption = #20449#24687#26597#35810
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 208
    Top = 32
    Width = 66
    Height = 12
    Caption = #26465#24418#30721'(&B)'#65306
  end
  object CBCond: TComboBox
    Left = 24
    Top = 24
    Width = 145
    Height = 20
    ItemHeight = 12
    ItemIndex = 1
    TabOrder = 0
    Text = #26597#35810#26576#21830#21697#30340#20449#24687
    OnChange = CBCondChange
    Items.Strings = (
      #26597#35810#24211#23384#37327#20302#20110#23433#20840#24211#23384#30340#21830#21697
      #26597#35810#26576#21830#21697#30340#20449#24687)
  end
  object EdtBarCode: TEdit
    Left = 272
    Top = 24
    Width = 121
    Height = 20
    TabOrder = 1
  end
  object BtnSearch: TButton
    Left = 400
    Top = 24
    Width = 113
    Height = 25
    Caption = #26597#35810
    TabOrder = 2
    OnClick = BtnSearchClick
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 72
    Width = 521
    Height = 241
    Caption = #26597#35810#32467#26524
    TabOrder = 3
    object Label2: TLabel
      Left = 32
      Top = 24
      Width = 36
      Height = 12
      Caption = #26465#30721#65306
    end
    object Label3: TLabel
      Left = 176
      Top = 24
      Width = 30
      Height = 12
      Caption = #21517#31216':'
    end
    object Label4: TLabel
      Left = 304
      Top = 24
      Width = 42
      Height = 12
      Caption = #24211#23384#37327':'
    end
    object Label5: TLabel
      Left = 32
      Top = 56
      Width = 66
      Height = 12
      Caption = #23433#20840#24211#23384#37327':'
    end
    object Label6: TLabel
      Left = 176
      Top = 56
      Width = 66
      Height = 12
      Caption = #26368#22823#35746#36135#37327':'
    end
    object Label7: TLabel
      Left = 320
      Top = 56
      Width = 66
      Height = 12
      Caption = #26368#23567#35746#36135#37327':'
    end
    object Label8: TLabel
      Left = 32
      Top = 96
      Width = 66
      Height = 12
      Caption = #32463#27982#35746#36135#37327':'
    end
    object DBEdit1: TDBEdit
      Left = 64
      Top = 24
      Width = 105
      Height = 20
      DataField = 'BarCode'
      DataSource = DS
      ReadOnly = True
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 208
      Top = 24
      Width = 89
      Height = 20
      DataField = 'Name'
      DataSource = DS
      ReadOnly = True
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 360
      Top = 24
      Width = 121
      Height = 20
      DataField = 'Amount'
      DataSource = DS
      ReadOnly = True
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 96
      Top = 56
      Width = 65
      Height = 20
      DataField = 'SafetyStock'
      DataSource = DS
      ReadOnly = True
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 240
      Top = 56
      Width = 73
      Height = 20
      DataField = 'MaxOrder'
      DataSource = DS
      ReadOnly = True
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 392
      Top = 56
      Width = 89
      Height = 20
      DataField = 'MinOrder'
      DataSource = DS
      ReadOnly = True
      TabOrder = 5
    end
    object DBEdit7: TDBEdit
      Left = 104
      Top = 88
      Width = 73
      Height = 20
      DataField = 'EOQ'
      DataSource = DS
      ReadOnly = True
      TabOrder = 6
    end
    object DBGrid1: TDBGrid
      Left = 16
      Top = 120
      Width = 497
      Height = 113
      DataSource = DS
      ReadOnly = True
      TabOrder = 7
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'BarCode'
          Title.Caption = #26465#30721
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Name'
          Title.Caption = #21517#31216
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Amount'
          Title.Caption = #24211#23384#37327
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SafetyStock'
          Title.Caption = #23433#20840#24211#23384
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MaxOrder'
          Title.Caption = #26368#22823#23450#36141#37327
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MinOrder'
          Title.Caption = #26368#23567#23450#36141#37327
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'EOQ'
          Title.Caption = #26368#23567#23450#36141#37327
          Width = 60
          Visible = True
        end>
    end
  end
  object Button1: TButton
    Left = 48
    Top = 320
    Width = 89
    Height = 25
    Caption = #29983#25104#35831#36141#21333
    TabOrder = 4
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 168
    Top = 320
    Width = 89
    Height = 25
    Caption = #20445#23384#21040'Excel'
    TabOrder = 5
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 272
    Top = 320
    Width = 65
    Height = 25
    Caption = #29983#25104#25253#34920
    TabOrder = 6
    OnClick = Button3Click
  end
  object ADOCon: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=GoodsManagementSystem_Data;Data Source=' +
      '127.0.0.1'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 120
    Top = 16
  end
  object ADOQGoodsMaster: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'BarCode'
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'select BarCode,Name,Amount,SafetyStock,MaxOrder,MinOrder,EOQ'
      'from t_GoodsMaster where BarCode=:BarCode')
    Left = 192
    Top = 16
    object ADOQGoodsMasterBarCode: TWideStringField
      FieldName = 'BarCode'
      ReadOnly = True
      Size = 30
    end
    object ADOQGoodsMasterName: TWideStringField
      FieldName = 'Name'
      ReadOnly = True
      Size = 30
    end
    object ADOQGoodsMasterAmount: TLargeintField
      FieldName = 'Amount'
      ReadOnly = True
    end
    object ADOQGoodsMasterSafetyStock: TLargeintField
      FieldName = 'SafetyStock'
      ReadOnly = True
    end
    object ADOQGoodsMasterMaxOrder: TLargeintField
      FieldName = 'MaxOrder'
      ReadOnly = True
    end
    object ADOQGoodsMasterMinOrder: TLargeintField
      FieldName = 'MinOrder'
      ReadOnly = True
    end
    object ADOQGoodsMasterEOQ: TLargeintField
      FieldName = 'EOQ'
      ReadOnly = True
    end
  end
  object DS: TDataSource
    DataSet = ADOQGoodsMaster
    Left = 240
    Top = 16
  end
end