umplan.dfm

港口货物管理系统

    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    Text = 'Edit6'
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 310
    Top = 36
    Width = 113
    Height = 23
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    KeyField = 'agname'
    ListField = 'agname'
    ListSource = DataSource1
    ParentFont = False
    TabOrder = 0
    OnClick = DBLookupComboBox1Click
  end
  object DBLookupComboBox2: TDBLookupComboBox
    Left = 520
    Top = 36
    Width = 113
    Height = 23
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ListSource = DataSource2
    ParentFont = False
    TabOrder = 1
  end
  object ComboBox1: TComboBox
    Left = 520
    Top = 78
    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 = 4
    Text = #36135#36816#20844#21496
    OnClick = ComboBox1Click
    Items.Strings = (
      #39532#38797#23665#22806#20195
      #36135#36816#20844#21496)
  end
  object BitBtn1: TBitBtn
    Left = 79
    Top = 377
    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 = 8
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 212
    Top = 377
    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 = 9
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 345
    Top = 377
    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 = 10
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 479
    Top = 377
    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 = 11
    OnClick = BitBtn4Click
  end
  object DateTimePicker1: TDateTimePicker
    Left = 78
    Top = 33
    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 = 12
  end
  object DBGrid2: TDBGrid
    Left = 192
    Top = 40
    Width = 417
    Height = 105
    DataSource = DataSource4
    TabOrder = 13
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Table1: TTable
    Active = True
    AfterDelete = Table1AfterDelete
    DatabaseName = 'port'
    DefaultIndex = False
    FieldDefs = <
      item
        Name = 'Ddate'
        DataType = ftString
        Size = 2
      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 = 24
    Top = 8
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'port'
    TableName = 'goodsspec.db'
    Left = 72
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 128
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 152
    Top = 8
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'port'
    SQL.Strings = (
      'select distinct agname from goodsspec')
    Left = 224
    Top = 16
  end
  object DataSource3: TDataSource
    DataSet = Table1
    Left = 176
    Top = 8
  end
  object Query2: TQuery
    DatabaseName = 'port'
    Left = 256
  end
  object Query3: TQuery
    DatabaseName = 'port'
    Left = 312
  end
  object Query4: TQuery
    DatabaseName = 'port'
    Left = 616
    Top = 336
  end
  object DataSource4: TDataSource
    DataSet = Query4
    Left = 576
    Top = 344
  end
  object BatchMove1: TBatchMove
    Destination = Table3
    Mode = batUpdate
    Source = Query4
    Left = 16
    Top = 376
  end
  object Table3: TTable
    DatabaseName = 'port'
    FieldDefs = <
      item
        Name = 'Ddate'
        DataType = ftString
        Size = 10
      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 = 'Ncoil'
        DataType = ftFloat
      end
      item
        Name = 'Nton'
        DataType = ftFloat
      end
      item
        Name = 'Atname'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Aqd'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Aspot'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Agoodd'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Lout'
        DataType = ftBoolean
      end
      item
        Name = 'Auser'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'Abz'
        DataType = ftString
        Size = 20
      end>
    StoreDefs = True
    TableName = 'Mimport.DB'
    Left = 16
    Top = 328
  end
end