uqueryimportcm.dfm

物流行业

object fmqueryimportcm: Tfmqueryimportcm
  Left = 188
  Top = 202
  Width = 935
  Height = 576
  Caption = #36827#21475#38598#35013#31665#36755#20837#30028#38754'('#25353#33337#21517' )'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 268
    Top = 16
    Width = 390
    Height = 29
    Caption = #36827#21475#38598#35013#31665#26597#35810#30028#38754'('#25353#33337#21517')'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -29
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsUnderline]
    ParentFont = False
  end
  object groupbox1: TGroupBox
    Left = 10
    Top = 56
    Width = 171
    Height = 413
    Caption = #26597#35810#35774#32622
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label2: TLabel
      Left = 8
      Top = 16
      Width = 54
      Height = 12
      Caption = #36755#20837#33337#21517':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 10
      Top = 33
      Width = 107
      Height = 21
      CharCase = ecUpperCase
      TabOrder = 0
      Text = 'EDIT1'
    end
    object Button1: TButton
      Left = 122
      Top = 34
      Width = 37
      Height = 19
      Caption = #26597#35810
      TabOrder = 1
      OnClick = Button1Click
    end
    object DBLookupListBox1: TDBLookupListBox
      Left = 2
      Top = 46
      Width = 167
      Height = 365
      Align = alBottom
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      KeyField = 'chc'
      ListField = 'chc'
      ListSource = DataSource2
      ParentFont = False
      TabOrder = 2
      OnClick = DBLookupListBox1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 183
    Top = 58
    Width = 733
    Height = 386
    Caption = #35760#24405#27983#35272
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 14
      Width = 729
      Height = 370
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clNavy
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'Drq'
          Title.Caption = #26085#26399
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Ccm'
          Title.Caption = #33337#21517
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Chc'
          Title.Caption = #33322#27425
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Cxh'
          Title.Caption = #31665#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Ccc'
          PickList.Strings = (
            '20'#39
            '40'#39
            '45'#39)
          Title.Caption = #23610#23544
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Cxx'
          Title.Caption = #31665#22411
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Lzt'
          PickList.Strings = (
            'True'
            'False')
          Title.Caption = #29366#24577
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Nxz'
          Title.Caption = #31665#37325
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Ccxr'
          Title.Caption = #25345#31665#20154
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Cxw'
          Title.Caption = #31665#20301
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Chm'
          PickList.Strings = (
            #35774#22791
            #24223#32440)
          Title.Caption = #36135#21517
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Cysfs'
          PickList.Strings = (
            #33337'->'#22330
            #36710'->'#22330)
          Title.Caption = #36816#36755#26041#24335
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cinout'
          Title.Caption = #20869#22806#36152
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'lout'
          Title.Caption = #24050#36208
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Czhg'
          Title.Caption = #35013#36135#28207
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Lyc'
          PickList.Strings = (
            'True'
            'False')
          Title.Caption = #21407#27531
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Mbz'
          Title.Caption = #22791#27880
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cyh'
          Title.Caption = #25805#20316#29992#25143
          Visible = True
        end>
    end
  end
  object BitBtn4: TBitBtn
    Left = 506
    Top = 484
    Width = 140
    Height = 45
    Caption = #36864#20986#31383#21475
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn4Click
  end
  object StatusBar1: TStatusBar
    Left = 184
    Top = 444
    Width = 731
    Height = 21
    Align = alNone
    Panels = <
      item
        Alignment = taCenter
        Width = 121
      end
      item
        Alignment = taCenter
        Width = 121
      end
      item
        Alignment = taCenter
        Width = 121
      end
      item
        Alignment = taCenter
        Width = 121
      end
      item
        Alignment = taCenter
        Width = 121
      end
      item
        Alignment = taCenter
        Width = 50
      end>
    SimplePanel = False
  end
  object BitBtn1: TBitBtn
    Left = 282
    Top = 484
    Width = 140
    Height = 45
    Caption = #25171#21360#35760#24405
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn1Click
  end
  object DataSource1: TDataSource
    DataSet = Query3
    Left = 272
  end
  object Query3: TQuery
    DatabaseName = 'miscontainer'
    SQL.Strings = (
      
        'select * from importcontainer where ccm=:ccm and chc=:chc order ' +
        'by drq')
    Left = 696
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ccm'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'chc'
        ParamType = ptUnknown
      end>
  end
  object Query1: TQuery
    DatabaseName = 'miscontainer'
    SQL.Strings = (
      
        'select distinct chc,drq from importcontainer where ccm=:ccm orde' +
        'r by drq')
    Left = 128
    Top = 16
    ParamData = <
      item
        DataType = ftString
        Name = 'ccm'
        ParamType = ptUnknown
      end>
  end
  object DataSource2: TDataSource
    DataSet = Query1
    Left = 16
    Top = 16
  end
  object Query2: TQuery
    DatabaseName = 'miscontainer'
    Left = 776
    Top = 24
  end
end