uaddmoduledlg.dfm

该系统将温度数据以类似股票K线显示方式进行分析

object AddModuleDlg: TAddModuleDlg
  Left = 380
  Top = 213
  BorderStyle = bsDialog
  Caption = #28155#21152#27169#22359
  ClientHeight = 266
  ClientWidth = 392
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  PixelsPerInch = 96
  TextHeight = 12
  object dbgehModule: TDBGridEh
    Left = 0
    Top = 0
    Width = 392
    Height = 225
    Align = alClient
    DataSource = dsModule
    Flat = False
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = dbgehModuleDblClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'ID'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Name'
        Footers = <>
        Width = 170
      end
      item
        EditButtons = <>
        Footers = <>
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 225
    Width = 392
    Height = 41
    Align = alBottom
    TabOrder = 1
    object btnOK: TButton
      Left = 216
      Top = 8
      Width = 75
      Height = 25
      Caption = #30830#23450
      Default = True
      ModalResult = 1
      TabOrder = 0
    end
    object btnCancel: TButton
      Left = 304
      Top = 8
      Width = 75
      Height = 25
      Caption = #21462#28040
      ModalResult = 2
      TabOrder = 1
    end
  end
  object adocAddModule: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=tasly;Persist Security Info=True;Us' +
      'er ID=sa;Initial Catalog=OnlineTmp;Data Source=DOLPHIN'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'SQLOLEDB.1'
    Left = 224
    Top = 112
  end
  object adotModuleSelect: TADOTable
    Connection = adocAddModule
    CursorType = ctStatic
    TableName = 'Modules'
    Left = 64
    Top = 112
    object adotModuleSelectID: TIntegerField
      DisplayLabel = #27169#22359#26631#35782
      DisplayWidth = 10
      FieldName = 'ID'
    end
    object adotModuleSelectName: TWideStringField
      DisplayLabel = #27169#22359#21517#31216
      DisplayWidth = 50
      FieldName = 'Name'
      Size = 50
    end
  end
  object dsModule: TDataSource
    DataSet = adotModuleSelect
    Left = 144
    Top = 112
  end
end