uqueryspot.dfm

港口货物管理系统

object fmqueryspot: Tfmqueryspot
  Left = 192
  Top = 107
  Width = 832
  Height = 493
  Caption = #36827#36135#35745#21010#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 289
    Top = 8
    Width = 192
    Height = 33
    Caption = #36135#22330#31215#23384#26597#35810
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -32
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsUnderline]
    ParentFont = False
  end
  object BitBtn1: TBitBtn
    Left = 63
    Top = 232
    Width = 150
    Height = 50
    Caption = #23631#24149#26174#31034
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object BitBtn2: TBitBtn
    Left = 383
    Top = 232
    Width = 150
    Height = 50
    Caption = #25253#34920#25171#21360
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 56
    Width = 465
    Height = 161
    Caption = #26597#35810#36873#39033
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -15
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Label2: TLabel
      Left = 16
      Top = 32
      Width = 52
      Height = 17
      Caption = #39033#30446'1'#65306
    end
    object Label3: TLabel
      Left = 16
      Top = 80
      Width = 52
      Height = 17
      Caption = #39033#30446'2'#65306
    end
    object Label4: TLabel
      Left = 16
      Top = 131
      Width = 52
      Height = 17
      Caption = #39033#30446'3'#65306
    end
    object ComboBox1: TComboBox
      Left = 64
      Top = 28
      Width = 125
      Height = 25
      ItemHeight = 17
      ItemIndex = 0
      TabOrder = 0
      Text = #25552#21333#21495
      Items.Strings = (
        #25552#21333#21495
        #36135#21517
        #22330#22320
        #36135#20195
        #22791#27880)
    end
    object ComboBox2: TComboBox
      Left = 224
      Top = 28
      Width = 65
      Height = 25
      ItemHeight = 17
      ItemIndex = 0
      TabOrder = 1
      Text = '='
      Items.Strings = (
        '='
        '<>')
    end
    object ComboBox4: TComboBox
      Left = 64
      Top = 76
      Width = 125
      Height = 25
      ItemHeight = 17
      ItemIndex = 1
      TabOrder = 2
      Text = #36135#21517
      Items.Strings = (
        #25552#21333#21495
        #36135#21517
        #22330#22320
        #36135#20195
        #22791#27880)
    end
    object ComboBox5: TComboBox
      Left = 224
      Top = 76
      Width = 65
      Height = 25
      ItemHeight = 17
      ItemIndex = 0
      TabOrder = 3
      Text = '='
      Items.Strings = (
        '='
        '<>')
    end
    object ComboBox7: TComboBox
      Left = 64
      Top = 127
      Width = 125
      Height = 25
      ItemHeight = 17
      ItemIndex = 2
      TabOrder = 4
      Text = #22330#22320
      Items.Strings = (
        #25552#21333#21495
        #36135#21517
        #22330#22320
        #36135#20195
        #22791#27880)
    end
    object ComboBox8: TComboBox
      Left = 224
      Top = 127
      Width = 65
      Height = 25
      ItemHeight = 17
      ItemIndex = 0
      TabOrder = 5
      Text = '='
      Items.Strings = (
        '='
        '<>')
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 305
      Top = 26
      Width = 145
      Height = 25
      ListSource = DataSource1
      TabOrder = 6
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 312
      Top = 72
      Width = 137
      Height = 25
      TabOrder = 7
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 312
      Top = 120
      Width = 137
      Height = 25
      TabOrder = 8
    end
  end
  object BitBtn3: TBitBtn
    Left = 256
    Top = 232
    Width = 105
    Height = 41
    Caption = 'BitBtn3'
    TabOrder = 3
    OnClick = BitBtn3Click
  end
  object DBGrid1: TDBGrid
    Left = 512
    Top = 64
    Width = 305
    Height = 161
    DataSource = DataSource1
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'port'
    TableName = 'Mimport.DB'
    Left = 56
    Top = 8
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'port'
    TableName = 'Mexport.DB'
    Left = 96
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Query3
    Left = 8
    Top = 320
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'port'
    SQL.Strings = (
      
        'select atnum,agname,adime,sum(ncoil),sum(nton) from mimport grou' +
        'p by atnum,agname,adime ')
    Left = 168
    Top = 408
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'port'
    SQL.Strings = (
      
        'select atnum,agname,adime,sum(ncoil) as ecoil,sum(nton) as eton ' +
        'from mexport group by atnum,agname,adime ')
    Left = 568
    Top = 408
  end
  object Table1: TTable
    Active = True
    AutoRefresh = True
    DatabaseName = 'port'
    TableName = 'Mplan.DB'
    Left = 16
    Top = 8
  end
  object Table4: TTable
    DatabaseName = 'port'
    TableName = 'sumImport.DB'
    Left = 168
    Top = 360
  end
  object Table5: TTable
    DatabaseName = 'port'
    TableName = 'sumExport.DB'
    Left = 560
    Top = 360
  end
  object BatchMove1: TBatchMove
    Destination = Table4
    Source = Query1
    Left = 200
    Top = 360
  end
  object BatchMove2: TBatchMove
    Destination = Table5
    Source = Query2
    Left = 592
    Top = 360
  end
  object Query3: TQuery
    Active = True
    DatabaseName = 'port'
    SQL.Strings = (
      
        'select atnum,agname,adime,a.ncoil,a.nton,b.ncoil,b.nton from sum' +
        'import a left join sumexport b on (a.atnum=b.atnum ) and (a.agna' +
        'me=b.agname) and (a.adime=b.adime)')
    Left = 32
    Top = 384
  end
end