uaddmoduledlg.~dfm

来自「该系统将温度数据以类似股票K线显示方式进行分析」· ~DFM 代码 · 共 103 行

object AddModuleDlg: TAddModuleDlg
  Left = 260
  Top = 244
  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
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    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
  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
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=user.mdb;Persist Se' +
      'curity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 224
    Top = 112
  end
  object adotModuleSelect: TADOTable
    Active = True
    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