disp01.dfm

特别方便的工具程序

object DispForm: TDispForm
  Left = 108
  Top = 96
  Width = 554
  Height = 375
  Caption = #35774#32622#26174#31034#22120#23646#24615
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    546
    348)
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 12
    Top = 14
    Width = 96
    Height = 12
    Caption = #26174#31034#22120#20998#36776#29575#21015#34920
  end
  object Label2: TLabel
    Left = 306
    Top = 14
    Width = 48
    Height = 12
    Anchors = [akTop, akRight]
    Caption = #21047#26032#29575#65306
  end
  object cbRate: TComboBox
    Left = 357
    Top = 10
    Width = 91
    Height = 20
    Style = csOwnerDrawFixed
    Anchors = [akTop, akRight]
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 14
    ParentFont = False
    TabOrder = 0
    OnClick = SetMonitor
    Items.Strings = (
      ' '#40664#35748#20540
      ' '#20248#21270#20540
      '  60 Hz'
      '  70 Hz'
      '  72 Hz'
      '  75 Hz'
      '  85 Hz'
      ' 100 Hz'
      ' 120 Hz')
  end
  object Button1: TButton
    Left = 462
    Top = 9
    Width = 75
    Height = 23
    Anchors = [akTop, akRight]
    Cancel = True
    Caption = #20851#38381'(&X)'
    ModalResult = 1
    TabOrder = 1
  end
  object DBGridEh1: TDBGridEh
    Left = 8
    Top = 42
    Width = 529
    Height = 295
    Anchors = [akLeft, akTop, akRight, akBottom]
    AutoFitColWidths = True
    DataSource = Data00S
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    ParentFont = False
    ReadOnly = True
    RowHeight = 20
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    TitleHeight = 20
    OnDblClick = SetMonitor
    Columns = <
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = #24403#21069#20540
        Footers = <>
        Title.Alignment = taCenter
      end
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = #20998#36777#29575
        Footers = <>
        Title.Alignment = taCenter
      end
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = #27178#21521#20687#32032
        Footers = <>
        Title.Alignment = taCenter
      end
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = #32437#21521#20687#32032
        Footers = <>
        Title.Alignment = taCenter
      end
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = #39068#33394#20301#25968
        Footers = <>
        Title.Alignment = taCenter
      end
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = #24425#33394#25551#36848
        Footers = <>
        Title.Alignment = taCenter
      end>
  end
  object Data00: TADOQuery
    Connection = MYDBase
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From Monitor Order By ID')
    Left = 232
    Top = 184
  end
  object Data00S: TDataSource
    DataSet = Data00
    Left = 296
    Top = 184
  end
  object MYDBase: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=FileBase.mdb;Persis' +
      't Security Info=False'
    KeepConnection = False
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 168
    Top = 184
  end
end