uchangedata.dfm

来自「港口货物管理系统」· DFM 代码 · 共 501 行

object fmchangedata: Tfmchangedata
  Left = 185
  Top = 170
  BorderStyle = bsDialog
  Caption = #20462#25913#24211#20013#25968#25454
  ClientHeight = 443
  ClientWidth = 804
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 273
    Top = 8
    Width = 257
    Height = 43
    BevelInner = bvLowered
    TabOrder = 5
    object Label1: TLabel
      Left = 38
      Top = 8
      Width = 180
      Height = 29
      Caption = #20462#25913#24211#20013#25968#25454
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -29
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
  end
  object GroupBox3: TGroupBox
    Left = 137
    Top = 375
    Width = 529
    Height = 65
    TabOrder = 4
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 56
    Width = 793
    Height = 313
    Caption = #20462#25913#25968#25454
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -15
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object RadioGroup1: TRadioGroup
      Left = 8
      Top = 192
      Width = 201
      Height = 113
      Caption = #36873#25321#20462#25913#24211
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = []
      Items.Strings = (
        #36827#36135#24211
        #20986#36135#24211)
      ParentFont = False
      TabOrder = 0
      OnClick = RadioGroup1Click
      OnEnter = RadioGroup1Enter
    end
    object GroupBox2: TGroupBox
      Left = 8
      Top = 24
      Width = 201
      Height = 161
      Caption = #20462#25913#36807#28388
      TabOrder = 1
      object CheckBox1: TCheckBox
        Left = 8
        Top = 24
        Width = 49
        Height = 17
        Caption = #26085#26399
        TabOrder = 0
        OnClick = CheckBox1Click
      end
      object CheckBox3: TCheckBox
        Left = 8
        Top = 123
        Width = 49
        Height = 17
        Caption = #36135#21517
        TabOrder = 1
        OnClick = CheckBox3Click
      end
      object CheckBox2: TCheckBox
        Left = 8
        Top = 72
        Width = 49
        Height = 17
        Caption = #36135#20195
        TabOrder = 2
        OnClick = CheckBox2Click
      end
      object DateTimePicker1: TDateTimePicker
        Left = 64
        Top = 20
        Width = 129
        Height = 25
        CalAlignment = dtaLeft
        Date = 38056.8309819444
        Time = 38056.8309819444
        DateFormat = dfLong
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 3
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 64
        Top = 119
        Width = 129
        Height = 25
        KeyField = 'agname'
        ListSource = DataSource1
        TabOrder = 4
      end
      object DBLookupComboBox2: TDBLookupComboBox
        Left = 64
        Top = 64
        Width = 129
        Height = 25
        KeyField = 'agoodd'
        ListSource = DataSource3
        TabOrder = 5
      end
    end
    object DBGrid1: TDBGrid
      Left = 215
      Top = 12
      Width = 575
      Height = 294
      DataSource = DataSource2
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clNavy
      TitleFont.Height = -13
      TitleFont.Name = 'Times New Roman'
      TitleFont.Style = []
    end
  end
  object BitBtn1: TBitBtn
    Left = 161
    Top = 392
    Width = 130
    Height = 39
    Caption = #21024#38500#35760#24405
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333FF33333333333330003333333333333777333333333333
      300033FFFFFF3333377739999993333333333777777F3333333F399999933333
      3300377777733333337733333333333333003333333333333377333333333333
      3333333333333333333F333333333333330033333F33333333773333C3333333
      330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
      993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
      333333377F33333333FF3333C333333330003333733333333777333333333333
      3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 333
    Top = 392
    Width = 130
    Height = 39
    Caption = #20445#23384#20462#25913
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
      333333333333337FF3333333333333903333333333333377FF33333333333399
      03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
      99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
      99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
      03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
      33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
      33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
      3333777777333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object BitBtn3: TBitBtn
    Left = 513
    Top = 392
    Width = 130
    Height = 39
    Caption = #36864'  '#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn3Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F3333333F7F333301111111B10333337F333333737F33330111111111
      0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
      0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
      0333337F377777337F333301111111110333337F333333337F33330111111111
      0333337FFFFFFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 80
    Top = 16
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'port'
    TableName = 'Mimport.DB'
    Left = 120
    Top = 16
    object Table1Ddate: TStringField
      Alignment = taCenter
      DisplayLabel = #36827#36135#26085#26399
      FieldName = 'Ddate'
      Size = 10
    end
    object Table1Atnum: TStringField
      Alignment = taCenter
      DisplayLabel = #25552#21333#21495
      FieldName = 'Atnum'
      Size = 10
    end
    object Table1Agname: TStringField
      Alignment = taCenter
      DisplayLabel = #36135#21517
      FieldName = 'Agname'
      Size = 8
    end
    object Table1Adime: TStringField
      Alignment = taCenter
      DisplayLabel = #35268#26684
      FieldName = 'Adime'
      Size = 15
    end
    object Table1Ncoil: TFloatField
      Alignment = taCenter
      DisplayLabel = #20214#25968
      FieldName = 'Ncoil'
    end
    object Table1Npiece: TFloatField
      Alignment = taCenter
      DisplayLabel = #25903#25968
      FieldName = 'Npiece'
    end
    object Table1Nton: TFloatField
      Alignment = taCenter
      DisplayLabel = #21544#20301
      FieldName = 'Nton'
    end
    object Table1Atname: TStringField
      Alignment = taCenter
      DisplayLabel = #36827#36135#24037#20855#21517
      FieldName = 'Atname'
      Size = 10
    end
    object Table1Aqd: TStringField
      Alignment = taCenter
      DisplayLabel = #36827#36135#28192#36947
      FieldName = 'Aqd'
      Size = 10
    end
    object Table1Aspot: TStringField
      Alignment = taCenter
      DisplayLabel = #36135#22330
      FieldName = 'Aspot'
      Size = 15
    end
    object Table1Ahw: TStringField
      Alignment = taCenter
      DisplayLabel = #36135#20301
      FieldName = 'Ahw'
      Size = 10
    end
    object Table1Agoodd: TStringField
      Alignment = taCenter
      DisplayLabel = #36135#20195
      FieldName = 'Agoodd'
      Size = 10
    end
    object Table1Auser: TStringField
      Alignment = taCenter
      DisplayLabel = #25805#20316#29992#25143
      FieldName = 'Auser'
      Size = 3
    end
    object Table1Abz: TStringField
      Alignment = taCenter
      DisplayLabel = #22791#27880
      FieldName = 'Abz'
    end
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'port'
    TableName = 'Mexport.DB'
    Left = 160
    Top = 16
    object Table2Ddate: TStringField
      Alignment = taCenter
      DisplayLabel = #20986#36135#26085#26399
      FieldName = 'Ddate'
      Size = 10
    end
    object Table2Atnum: TStringField
      Alignment = taCenter
      DisplayLabel = #25552#21333#21495
      FieldName = 'Atnum'
      Size = 10
    end
    object Table2Agname: TStringField
      Alignment = taCenter
      DisplayLabel = #36135#21517
      FieldName = 'Agname'
      Size = 8
    end
    object Table2Adime: TStringField
      Alignment = taCenter
      DisplayLabel = #35268#26684
      FieldName = 'Adime'
      Size = 15
    end
    object Table2Ncoil: TFloatField
      Alignment = taCenter
      DisplayLabel = #20214#25968
      FieldName = 'Ncoil'
    end
    object Table2Npiece: TFloatField
      Alignment = taCenter
      DisplayLabel = #25903#25968
      FieldName = 'Npiece'
    end
    object Table2Nton: TFloatField
      Alignment = taCenter
      DisplayLabel = #21544#20301
      FieldName = 'Nton'
    end
    object Table2Atname: TStringField
      Alignment = taCenter
      DisplayLabel = #20986#36135#24037#20855#21517
      FieldName = 'Atname'
      Size = 10
    end
    object Table2Aqd: TStringField
      Alignment = taCenter
      DisplayLabel = #20986#36135#28192#36947
      FieldName = 'Aqd'
      Size = 6
    end
    object Table2Aspot: TStringField
      Alignment = taCenter
      DisplayLabel = #36135#22330
      FieldName = 'Aspot'
      Size = 10
    end
    object Table2Ahw: TStringField
      Alignment = taCenter
      DisplayLabel = #36135#20301
      FieldName = 'Ahw'
      Size = 10
    end
    object Table2Agoodd: TStringField
      Alignment = taCenter
      DisplayLabel = #36135#20195
      FieldName = 'Agoodd'
      Size = 10
    end
    object Table2Auser: TStringField
      Alignment = taCenter
      DisplayLabel = #25805#20316#29992#25143
      FieldName = 'Auser'
      Size = 3
    end
    object Table2Adir: TStringField
      Alignment = taCenter
      DisplayLabel = #27969#21521
      FieldName = 'Adir'
      Size = 8
    end
    object Table2Abz: TStringField
      Alignment = taCenter
      DisplayLabel = #22791#27880
      FieldName = 'Abz'
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'port'
    SQL.Strings = (
      'select distinct agname from goodsspec order by agname')
    Left = 184
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 208
    Top = 24
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'port'
    SQL.Strings = (
      'select distinct agoodd from agoodd order by agoodd')
    Left = 48
    Top = 16
  end
  object DataSource3: TDataSource
    DataSet = Query2
    Left = 16
    Top = 24
  end
  object Query3: TQuery
    DatabaseName = 'port'
    Left = 616
    Top = 8
  end
  object Query4: TQuery
    DatabaseName = 'port'
    Left = 656
    Top = 8
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'port'
    TableName = 'spotgoods.DB'
    Left = 720
    Top = 24
  end
  object Query5: TQuery
    Active = True
    DatabaseName = 'port'
    SQL.Strings = (
      
        'select atnum,agname,adime,agoodd,aspot,ahw,sum(ncoil) as ncoil,s' +
        'um(npiece) as npiece,sum(nton) as nton from mexport group by atn' +
        'um,agname,adime,agoodd,aspot,ahw')
    Left = 696
  end
  object Query6: TQuery
    Active = True
    DatabaseName = 'port'
    SQL.Strings = (
      'select * from mplan')
    Left = 32
    Top = 392
  end
end