umplan.dfm

港口货物管理系统

object fmmplan: Tfmmplan
  Left = 190
  Top = 107
  BorderStyle = bsDialog
  Caption = #26376#35745#21010#25968#25454#24405#20837
  ClientHeight = 405
  ClientWidth = 676
  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
  OnClick = FormClick
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 20
    Top = 22
    Width = 633
    Height = 135
  end
  object Label1: TLabel
    Left = 33
    Top = 40
    Width = 39
    Height = 15
    Caption = #26376#20221#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 33
    Top = 82
    Width = 52
    Height = 15
    Caption = #25552#21333#21495#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 251
    Top = 40
    Width = 39
    Height = 15
    Caption = #36135#21517#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 471
    Top = 40
    Width = 39
    Height = 15
    Caption = #35268#26684#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 251
    Top = 82
    Width = 65
    Height = 15
    Caption = #35745#21010#21544#20301#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 471
    Top = 82
    Width = 39
    Height = 15
    Caption = #36135#20195#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 33
    Top = 130
    Width = 39
    Height = 15
    Caption = #27969#21521#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 251
    Top = 130
    Width = 65
    Height = 15
    Caption = #25910#36135#21333#20301#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 62
    Top = 345
    Width = 553
    Height = 57
    TabOrder = 14
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 168
    Width = 641
    Height = 153
    DataSource = DataSource3
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnEnter = DBGrid1Enter
    Columns = <
      item
        Expanded = False
        FieldName = 'Ddate'
        Title.Alignment = taCenter
        Title.Caption = #26376' '#20221
        Title.Color = clMoneyGreen
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'Times New Roman'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Atnum'
        Title.Alignment = taCenter
        Title.Caption = #25552#21333#21495
        Title.Color = clMoneyGreen
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'Times New Roman'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Agname'
        Title.Alignment = taCenter
        Title.Caption = #36135' '#21517
        Title.Color = clMoneyGreen
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'Times New Roman'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Adime'
        Title.Alignment = taCenter
        Title.Caption = #35268' '#26684
        Title.Color = clMoneyGreen
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'Times New Roman'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Nton'
        Title.Alignment = taCenter
        Title.Caption = #21544' '#20301
        Title.Color = clMoneyGreen
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'Times New Roman'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Agoodd'
        Title.Alignment = taCenter
        Title.Caption = #36135' '#20195
        Title.Color = clMoneyGreen
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'Times New Roman'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Lend'
        PickList.Strings = (
          'true'
          'false')
        Title.Alignment = taCenter
        Title.Caption = #32467#26463#26631#35760
        Title.Color = clMoneyGreen
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'Times New Roman'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Adir'
        Title.Alignment = taCenter
        Title.Caption = #27969' '#21521
        Title.Color = clMoneyGreen
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'Times New Roman'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Aowner'
        Title.Alignment = taCenter
        Title.Caption = #25910#36135#21333#20301
        Title.Color = clMoneyGreen
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'Times New Roman'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Abz'
        Title.Alignment = taCenter
        Title.Caption = #22791' '#27880
        Title.Color = clMoneyGreen
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'Times New Roman'
        Title.Font.Style = []
        Visible = True
      end>
  end
  object Edit2: TEdit
    Left = 78
    Top = 78
    Width = 73
    Height = 23
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    Text = 'Edit2'
  end
  object Edit3: TEdit
    Left = 310
    Top = 78
    Width = 81
    Height = 23
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    Text = 'Edit3'
  end
  object Edit5: TEdit
    Left = 78
    Top = 126
    Width = 81
    Height = 23
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    Text = 'Edit5'
  end
  object Edit6: TEdit
    Left = 310
    Top = 126
    Width = 172
    Height = 23
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    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 = 1
    OnClick = DBLookupComboBox1Click
  end
  object DBLookupComboBox2: TDBLookupComboBox
    Left = 509
    Top = 36
    Width = 128
    Height = 23
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ListSource = DataSource2
    ParentFont = False
    TabOrder = 2
  end
  object BitBtn1: TBitBtn
    Left = 84
    Top = 359
    Width = 108
    Height = 36
    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 = 9
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 217
    Top = 359
    Width = 108
    Height = 36
    Caption = #20445#23384#20462#25913
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 350
    Top = 359
    Width = 108
    Height = 36
    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 = 11
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 484
    Top = 359
    Width = 108
    Height = 36
    Caption = #36864'    '#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    OnClick = BitBtn4Click
  end
  object DateTimePicker1: TDateTimePicker
    Left = 78
    Top = 33
    Width = 120
    Height = 25
    CalAlignment = dtaLeft
    Date = 38067.5267525463
    Time = 38067.5267525463
    Color = clCream
    DateFormat = dfLong
    DateMode = dmComboBox
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -15
    Font.Name = 'Times New Roman'
    Font.Style = []
    Kind = dtkDate
    ParseInput = False
    ParentFont = False
    TabOrder = 0
    OnChange = DateTimePicker1Change
  end
  object StatusBar1: TStatusBar
    Left = 18
    Top = 318
    Width = 637
    Height = 22
    Align = alNone
    Panels = <
      item
        Alignment = taCenter
        Text = #21512#35745#65306
        Width = 100
      end
      item
        Alignment = taCenter
        Width = 200
      end
      item
        Alignment = taCenter
        Width = 50
      end>
    SimplePanel = False
  end
  object DBLookupComboBox3: TDBLookupComboBox
    Left = 512
    Top = 76
    Width = 121
    Height = 23
    Color = clCream
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    KeyField = 'agoodd'
    ListField = 'agoodd'
    ListSource = DataSource4
    ParentFont = False
    TabOrder = 5
    OnClick = DBLookupComboBox3Click
  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 Table3: TTable
    Active = True
    DatabaseName = 'port'
    TableName = 'sumImport.DB'
    Top = 360
  end
  object Query5: TQuery
    DatabaseName = 'port'
    Left = 8
    Top = 400
  end
  object Query4: TQuery
    Active = True
    DatabaseName = 'port'
    SQL.Strings = (
      'select distinct agoodd from agoodd')
    Left = 608
    Top = 112
  end
  object DataSource4: TDataSource
    DataSet = Query4
    Left = 560
    Top = 120
  end
end