rightman.dfm

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

object fRightMan: TfRightMan
  Left = 434
  Top = 150
  BorderStyle = bsSingle
  Caption = #26435#38480#32500#25252
  ClientHeight = 449
  ClientWidth = 843
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 0
    Top = 478
    Width = 3
    Height = 13
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = -4
    Width = 529
    Height = 43
    TabOrder = 0
    object bAll: TButton
      Left = 8
      Top = 11
      Width = 105
      Height = 26
      Caption = #26816#32034#20840#37096
      TabOrder = 0
    end
    object Button1: TButton
      Left = 114
      Top = 11
      Width = 105
      Height = 25
      Caption = #25918#24323#36864#20986
      ModalResult = 2
      TabOrder = 1
    end
  end
  object DBGridEh2: TDBGridEh
    Left = 0
    Top = 40
    Width = 209
    Height = 401
    ColumnDefValues.Footer.ToolTips = True
    ColumnDefValues.HighlightRequired = True
    ColumnDefValues.Title.Color = clBtnFace
    DataSource = Datauser
    EvenRowColor = clWindow
    FixedColor = clMoneyGreen
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#21152#21152#36755#20837#27861'4.1'
    OddRowColor = cl3DLight
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    RowHeight = 21
    RowSizingAllowed = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = 'UserName'
        Footers = <>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #21592#24037#32534#21495
        Width = 69
      end
      item
        Alignment = taCenter
        DropDownSizing = True
        EditButtons = <>
        FieldName = 'TrueName'
        Footers = <>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #21592#24037#22995#21517
        Width = 99
      end>
  end
  object DBGridEh1: TDBGridEh
    Left = 216
    Top = 40
    Width = 320
    Height = 401
    DataSource = DataRight
    Flat = False
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'ModuleId'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Name'
        Footers = <>
      end
      item
        Checkboxes = True
        EditButtons = <
          item
          end>
        FieldName = 'ReadOnly'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'username'
        Footers = <>
      end>
  end
  object DataRight: TDataSource
    AutoEdit = False
    DataSet = ADODRight
    Left = 376
    Top = 240
  end
  object ADODRight: TADODataSet
    Connection = ADOConnection1
    CommandText = 
      'select rights.UserId, ModuleId, Name,ReadOnly ,username from Rig' +
      'hts , modules ,users where modules.id = rights.moduleid and user' +
      's.userid =rights.userid'
    CommandType = cmdUnknown
    Parameters = <>
    Left = 304
    Top = 248
  end
  object Datauser: TDataSource
    DataSet = ADODuser
    Left = 72
    Top = 192
  end
  object ADODuser: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select UserId, UserName, TrueName from users'
    Parameters = <>
    Left = 40
    Top = 192
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=tasly;Persist Security Info=True;Us' +
      'er ID=sa;Initial Catalog=OnlineTmp;Data Source=DOLPHIN'
    Provider = 'SQLOLEDB.1'
    Left = 128
    Top = 128
  end
end