uoperoutcontainer.dfm

物流行业

object fmoperoutcontainer: Tfmoperoutcontainer
  Left = 221
  Top = 47
  Width = 875
  Height = 593
  Caption = #38598#35013#31665'('#29702#31665'--'#25286#31665#65289#36755#20837#30028#38754
  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 = 231
    Top = 16
    Width = 405
    Height = 29
    Alignment = taCenter
    Caption = #38598#35013#31665'('#29702#31665'--'#25286#31665#65289#36755#20837#30028#38754
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -29
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsUnderline]
    ParentFont = False
    Transparent = True
  end
  object groupbox1: TGroupBox
    Left = 16
    Top = 64
    Width = 841
    Height = 209
    Caption = #35760#24405#36755#20837
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label2: TLabel
      Left = 25
      Top = 24
      Width = 33
      Height = 13
      Caption = #26085#26399':'
    end
    object Label3: TLabel
      Left = 297
      Top = 26
      Width = 39
      Height = 13
      Caption = #36710#21495#65306
    end
    object Label4: TLabel
      Left = 25
      Top = 92
      Width = 52
      Height = 13
      Caption = #25552#21333#21495#65306
    end
    object Label5: TLabel
      Left = 297
      Top = 61
      Width = 33
      Height = 13
      Caption = #31665#21495':'
    end
    object Label10: TLabel
      Left = 25
      Top = 126
      Width = 33
      Height = 13
      Caption = #36135#21517':'
    end
    object Label6: TLabel
      Left = 297
      Top = 96
      Width = 39
      Height = 13
      Caption = #20214#25968#65306
    end
    object Label7: TLabel
      Left = 297
      Top = 131
      Width = 39
      Height = 13
      Caption = #37325#37327#65306
    end
    object Label8: TLabel
      Left = 297
      Top = 167
      Width = 33
      Height = 13
      Caption = #22791#27880':'
    end
    object Label9: TLabel
      Left = 25
      Top = 58
      Width = 39
      Height = 13
      Caption = #36135#20195#65306
    end
    object GroupBox4: TGroupBox
      Left = 28
      Top = 153
      Width = 154
      Height = 37
      TabOrder = 13
    end
    object DateTimePicker1: TDateTimePicker
      Left = 75
      Top = 20
      Width = 110
      Height = 20
      CalAlignment = dtaLeft
      Date = 38928.8932289352
      Time = 38928.8932289352
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object Edit1: TEdit
      Left = 347
      Top = 22
      Width = 110
      Height = 21
      ImeMode = imChinese
      ImeName = #26234#33021'ABC'#36755#20837#27861
      MaxLength = 14
      TabOrder = 4
      Text = 'Edit1'
      OnClick = Edit1Click
    end
    object Edit3: TEdit
      Left = 347
      Top = 57
      Width = 110
      Height = 21
      CharCase = ecUpperCase
      ImeMode = imClose
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      MaxLength = 11
      TabOrder = 5
      Text = 'EDIT3'
      OnClick = Edit3Click
      OnExit = Edit3Exit
    end
    object CheckBox1: TCheckBox
      Left = 44
      Top = 165
      Width = 57
      Height = 17
      Caption = #22806#25286
      TabOrder = 9
    end
    object BitBtn5: TBitBtn
      Left = 692
      Top = 161
      Width = 130
      Height = 40
      Caption = #25171#21360#35760#24405
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -21
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
    end
    object GroupBox3: TGroupBox
      Left = 600
      Top = 10
      Width = 225
      Height = 143
      Caption = #29366#24577#25552#31034
      Font.Charset = GB2312_CHARSET
      Font.Color = clOlive
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 12
      object Memo1: TMemo
        Left = 2
        Top = 15
        Width = 221
        Height = 126
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        Lines.Strings = (
          'Memo1')
        ParentFont = False
        TabOrder = 0
      end
    end
    object Edit4: TEdit
      Left = 347
      Top = 92
      Width = 65
      Height = 21
      ImeMode = imClose
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 6
      Text = 'Edit4'
      OnClick = Edit4Click
    end
    object Edit5: TEdit
      Left = 347
      Top = 127
      Width = 81
      Height = 21
      ImeMode = imClose
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 7
      Text = 'Edit5'
      OnClick = Edit5Click
    end
    object CheckBox2: TCheckBox
      Left = 123
      Top = 165
      Width = 49
      Height = 17
      Caption = #26631#31354
      TabOrder = 10
    end
    object Edit6: TEdit
      Left = 75
      Top = 122
      Width = 161
      Height = 21
      ImeMode = imChinese
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 3
      Text = 'Edit6'
    end
    object Edit7: TEdit
      Left = 347
      Top = 163
      Width = 249
      Height = 21
      ImeMode = imChinese
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 8
      Text = 'Edit7'
    end
    object ComboBox1: TComboBox
      Left = 75
      Top = 54
      Width = 153
      Height = 24
      Style = csDropDownList
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 16
      ParentFont = False
      TabOrder = 1
      OnClick = ComboBox1Click
      Items.Strings = (
        #39532#38797#23665#22806#20195
        #39532#38797#23665#22806#36816
        #22269#38469#36135#36816
        #23431#29615)
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 75
      Top = 88
      Width = 165
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      KeyField = 'ctdh'
      ListField = 'ctdh'
      ListSource = DataSource2
      TabOrder = 2
      OnClick = DBLookupComboBox1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 274
    Width = 841
    Height = 201
    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 = 837
      Height = 185
      Align = alClient
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clNavy
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnExit = DBGrid1Exit
      Columns = <
        item
          Expanded = False
          FieldName = 'Drq'
          Title.Caption = #26085#26399
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Cch'
          Title.Caption = #36710#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Ctdh'
          Title.Caption = #25552#21333#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Cdl'
          PickList.Strings = (
            #39532#38797#23665#22806#36816
            #39532#38797#23665#22806#20195
            #22269#38469#36135#36816
            #23431#29615)
          Title.Caption = #36135#20195
          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 = 'Njs'
          Title.Caption = #20214#25968
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Nzl'
          Title.Caption = #37325#37327
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Chm'
          Title.Caption = #36135#21517
          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 = 'Lwc'
          PickList.Strings = (
            'True'
            'False')
          Title.Caption = #22806#25286
          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 BitBtn1: TBitBtn
    Left = 128
    Top = 505
    Width = 130
    Height = 40
    Caption = #28155#21152#35760#24405
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 288
    Top = 505
    Width = 130
    Height = 40
    Caption = #21024#38500#35760#24405
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 448
    Top = 505
    Width = 130
    Height = 40
    Caption = #25552#20132#20219#21153
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 608
    Top = 505
    Width = 130
    Height = 40
    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 = 5
    OnClick = BitBtn4Click
  end
  object StatusBar1: TStatusBar
    Left = 18
    Top = 472
    Width = 840
    Height = 20
    Align = alNone
    Panels = <
      item
        Alignment = taCenter
        Width = 280
      end
      item
        Alignment = taCenter
        Width = 280
      end
      item
        Alignment = taCenter
        Width = 280
      end>
    SimplePanel = False
  end
  object Table1: TTable
    Active = True
    AutoCalcFields = False
    AfterScroll = Table1AfterScroll
    DatabaseName = 'miscontainer'
    DefaultIndex = False
    TableName = 'tmpoperout'
    TableType = ttParadox
    Left = 80
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 56
    Top = 16
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'miscontainer'
    SQL.Strings = (
      'select sum(njs),sum(nzl) from tmpoperout '
      '')
    Left = 152
    Top = 16
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'miscontainer'
    SQL.Strings = (
      
        'select distinct ctdh,chm,cjl,nzl from inputtdh where lbw=false a' +
        'nd cdl=:cdl1'
      '')
    Left = 520
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'cdl1'
        ParamType = ptUnknown
      end>
  end
  object BatchMove1: TBatchMove
    Destination = Table3
    Source = Table1
    Left = 656
    Top = 24
  end
  object Table2: TTable
    Active = True
    AutoCalcFields = False
    DatabaseName = 'miscontainer'
    TableName = 'importcontainer.DB'
    Left = 256
    Top = 8
  end
  object Query3: TQuery
    DatabaseName = 'miscontainer'
    SQL.Strings = (
      
        'select * from importcontainer where cxh=:cxh1 and lzt1='#39'F'#39' and l' +
        'out=false')
    Left = 16
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'cxh1'
        ParamType = ptUnknown
      end>
  end
  object Table3: TTable
    DatabaseName = 'miscontainer'
    TableName = 'operout.DB'
    Left = 736
    Top = 16
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 496
    Top = 8
  end
end