initspotform.dfm

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

object fminitspotform: Tfminitspotform
  Left = 260
  Top = 150
  BorderStyle = bsDialog
  Caption = #36135#22330#39044#35272
  ClientHeight = 329
  ClientWidth = 525
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clNavy
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 15
  object BitBtn1: TBitBtn
    Left = 98
    Top = 264
    Width = 120
    Height = 40
    Caption = #26174#31034#36135#22330#22270
    TabOrder = 0
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
      333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
      300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
      333337F373F773333333303330033333333337F3377333333333303333333333
      333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
      333337777F337F33333330330BB00333333337F373F773333333303330033333
      333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
      333377777F77377733330BBB0333333333337F337F33333333330BB003333333
      333373F773333333333330033333333333333773333333333333}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 306
    Top = 264
    Width = 120
    Height = 40
    Caption = #36864'  '#20986
    TabOrder = 1
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F3333333F7F333301111111B10333337F333333737F33330111111111
      0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
      0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
      0333337F377777337F333301111111110333337F333333337F33330111111111
      0333337FFFFFFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
  end
  object panel1: TPanel
    Left = 34
    Top = 16
    Width = 441
    Height = 225
    BevelInner = bvLowered
    BorderStyle = bsSingle
    TabOrder = 2
    object Label1: TLabel
      Left = 104
      Top = 24
      Width = 75
      Height = 15
      Caption = #36873#25321#36135#22330#65306
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 192
      Top = 21
      Width = 145
      Height = 23
      KeyField = 'aspot'
      ListField = 'aspot'
      ListSource = DataSource1
      TabOrder = 0
    end
    object DBCtrlGrid1: TDBCtrlGrid
      Left = 5
      Top = 56
      Width = 428
      Height = 153
      ColCount = 1
      Color = clBtnFace
      DataSource = DataSource1
      PanelHeight = 153
      PanelWidth = 410
      ParentColor = False
      TabOrder = 1
      RowCount = 1
      object Label3: TLabel
        Left = 12
        Top = 68
        Width = 92
        Height = 15
        Caption = #36135#22330#38271#24230'(m):'
      end
      object Label4: TLabel
        Left = 12
        Top = 116
        Width = 99
        Height = 15
        Caption = #36135#22330#23485#24230'(m)'#65306
      end
      object Label5: TLabel
        Left = 212
        Top = 68
        Width = 75
        Height = 15
        Caption = #36135#22330#31867#22411#65306
      end
      object Label6: TLabel
        Left = 212
        Top = 116
        Width = 75
        Height = 15
        Caption = #36135#22330#21015#25968#65306
      end
      object DBText1: TDBText
        Left = 109
        Top = 67
        Width = 89
        Height = 17
        DataField = 'Aspotlen'
        DataSource = DataSource1
      end
      object DBText2: TDBText
        Left = 109
        Top = 116
        Width = 97
        Height = 15
        DataField = 'Aspotwide'
        DataSource = DataSource1
      end
      object DBText3: TDBText
        Left = 300
        Top = 67
        Width = 97
        Height = 17
        DataField = 'Aspottype'
        DataSource = DataSource1
      end
      object DBText4: TDBText
        Left = 300
        Top = 116
        Width = 105
        Height = 15
        DataField = 'Aspotpiece'
        DataSource = DataSource1
      end
      object DBText5: TDBText
        Left = 164
        Top = 16
        Width = 81
        Height = 25
        Alignment = taCenter
        DataField = 'Aspot'
        DataSource = DataSource1
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -21
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
      end
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'port'
    SQL.Strings = (
      'select *  from aspot order by aspot')
    Left = 144
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 72
    Top = 16
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'port'
    TableName = 'aspot.DB'
    Left = 240
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'port'
    TableName = 'spotgoods.DB'
    Top = 72
  end
end