selectunit.dfm

车辆管理系统

inherited frmSelectUnit: TfrmSelectUnit
  Left = 227
  Top = 194
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #21934#20301#36984#25799
  ClientHeight = 172
  ClientWidth = 304
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 64
    Height = 15
    Caption = #21934#20301#36984#25799
    Font.Charset = ANSI_CHARSET
    Font.Color = clMaroon
    Font.Height = -15
    Font.Name = #32048#26126#39636
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 85
    Top = 22
    Width = 193
    Height = 2
  end
  object grid: TDBGridEh
    Left = 16
    Top = 40
    Width = 193
    Height = 113
    DataSource = DSUnit
    FixedColor = 12835543
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #32048#26126#39636
    FooterFont.Style = []
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #32048#26126#39636
    TitleFont.Style = []
    OnGetCellParams = gridGetCellParams
  end
  object btnok: TButton
    Left = 221
    Top = 96
    Width = 75
    Height = 25
    Caption = #30906#23450
    TabOrder = 1
    OnClick = btnokClick
  end
  object btnexit: TButton
    Left = 221
    Top = 128
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 2
    OnClick = btnexitClick
  end
  object CDSUnit: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 112
    Top = 48
  end
  object DSUnit: TDataSource
    DataSet = CDSUnit
    Left = 120
    Top = 64
  end
end