showresult.dfm

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· DFM 代码 · 共 92 行

object frmShowResult: TfrmShowResult
  Left = 235
  Top = 228
  Width = 611
  Height = 355
  Caption = #26597#35810#32467#26524
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 603
    Height = 287
    Align = alClient
    AllowedOperations = []
    ColumnDefValues.AlwaysShowEditButton = True
    ColumnDefValues.AutoDropDown = True
    ColumnDefValues.DropDownShowTitles = True
    ColumnDefValues.DropDownSizing = True
    ColumnDefValues.Title.Alignment = taCenter
    ColumnDefValues.Title.TitleButton = True
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind]
    ParentFont = False
    RowSizingAllowed = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnTitleBtnClick = DBGridEh1TitleBtnClick
  end
  object Panel1: TPanel
    Left = 0
    Top = 287
    Width = 603
    Height = 41
    Align = alBottom
    TabOrder = 1
    DesignSize = (
      603
      41)
    object Button1: TButton
      Left = 523
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = #25968#25454#23548#20986
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = Button1Click
    end
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 128
    Top = 203
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 160
    Top = 200
  end
end