uinputgoods.dfm

港口货物管理系统

    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    Text = 'Edit5'
  end
  object Edit6: TEdit
    Left = 75
    Top = 110
    Width = 115
    Height = 23
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    Text = 'Edit6'
  end
  object ComboBox1: TComboBox
    Left = 246
    Top = 36
    Width = 114
    Height = 23
    Style = csDropDownList
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ItemHeight = 15
    ItemIndex = 1
    ParentFont = False
    TabOrder = 1
    Text = #36135#36816#20844#21496
    OnClick = ComboBox1Click
    Items.Strings = (
      #39532#38797#23665#22806#20195
      #36135#36816#20844#21496)
  end
  object BitBtn1: TBitBtn
    Left = 155
    Top = 385
    Width = 116
    Height = 43
    Caption = #30830#35748#28155#21152
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 288
    Top = 385
    Width = 116
    Height = 43
    Caption = #20462#25913#35760#24405
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 13
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 421
    Top = 385
    Width = 116
    Height = 43
    Caption = #21024#38500#35760#24405
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 14
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 555
    Top = 385
    Width = 116
    Height = 43
    Caption = #36864'    '#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 16
    OnClick = BitBtn4Click
  end
  object DateTimePicker1: TDateTimePicker
    Left = 75
    Top = 36
    Width = 120
    Height = 23
    CalAlignment = dtaLeft
    Date = 38030.5267525463
    Time = 38030.5267525463
    DateFormat = dfLong
    DateMode = dmComboBox
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    Kind = dtkDate
    ParseInput = False
    ParentFont = False
    TabOrder = 0
  end
  object Edit1: TEdit
    Left = 323
    Top = 110
    Width = 60
    Height = 23
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    Text = 'Edit1'
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 435
    Top = 36
    Width = 117
    Height = 23
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    KeyField = 'atnum'
    ListField = 'atnum;agname'
    ListSource = DataSource3
    ParentFont = False
    TabOrder = 2
    OnClick = DBLookupComboBox1Click
  end
  object ComboBox2: TComboBox
    Left = 448
    Top = 72
    Width = 89
    Height = 23
    Style = csDropDownList
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ItemHeight = 15
    ItemIndex = 0
    ParentFont = False
    TabOrder = 7
    Text = #27773#36710#8594#22330
    Items.Strings = (
      #27773#36710#8594#22330
      #28779#36710#8594#22330
      #33337#33334#8594#22330)
  end
  object Memo1: TMemo
    Left = 663
    Top = 23
    Width = 158
    Height = 124
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object Edit3: TEdit
    Left = 75
    Top = 72
    Width = 97
    Height = 23
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    Text = 'Edit3'
  end
  object ComboBox3: TComboBox
    Left = 246
    Top = 110
    Width = 76
    Height = 23
    Style = csDropDownList
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ItemHeight = 15
    ItemIndex = 0
    ParentFont = False
    TabOrder = 9
    Text = #22806#36152#24211#22330
    OnClick = ComboBox3Click
    Items.Strings = (
      #22806#36152#24211#22330
      #22806#36152#21069#27839
      '9'#21495#24211#22330
      '9'#21495#21069#27839
      '32'#21544#24211#22330
      #38598#21514#24211#22330)
  end
  object ComboBox4: TComboBox
    Left = 552
    Top = 36
    Width = 108
    Height = 23
    Style = csDropDownList
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ItemHeight = 15
    ParentFont = False
    TabOrder = 3
    OnClick = ComboBox4Click
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'port'
    DefaultIndex = False
    FieldDefs = <
      item
        Name = 'Ddate'
        DataType = ftDate
      end
      item
        Name = 'Atnum'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Agname'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'Adime'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Nton'
        DataType = ftFloat
      end
      item
        Name = 'Agoodd'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Adir'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'Aowner'
        DataType = ftString
        Size = 25
      end
      item
        Name = 'Abz'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Lend'
        DataType = ftBoolean
      end>
    StoreDefs = True
    TableName = 'MPLAN.DB'
    Left = 5
    Top = 65535
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'port'
    TableName = 'IMPORT.DB'
    Left = 45
    Top = 65535
  end
  object DataSource1: TDataSource
    Left = 93
    Top = 65535
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 149
    Top = 65535
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'port'
    SQL.Strings = (
      
        'select  distinct atnum,agname from mplan where (lend=false) and ' +
        '(agoodd='#39#36135#36816#20844#21496#39') order by atnum')
    Left = 197
    Top = 65535
  end
  object DataSource3: TDataSource
    DataSet = Query1
    Left = 245
    Top = 65533
  end
end