urightsmanage.~dfm

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

object RightsManageFrm: TRightsManageFrm
  Left = 391
  Top = 197
  Width = 600
  Height = 450
  Caption = #26435#38480#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 177
    Top = 0
    Width = 3
    Height = 416
    Cursor = crHSplit
  end
  object dbgehRights: TDBGridEh
    Left = 180
    Top = 0
    Width = 412
    Height = 416
    Align = alClient
    DataSource = dsRights
    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
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    TabOrder = 0
    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 = 'ModuleName'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'ReadOnly'
        Footers = <>
        Width = 76
      end
      item
        EditButtons = <>
        FieldName = 'UserId'
        Footers = <>
      end>
  end
  object dbgModule: TDBGridEh
    Left = 0
    Top = 0
    Width = 177
    Height = 416
    Align = alLeft
    DataSource = dsUser
    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 = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'UserName'
        Footers = <>
        Title.Caption = #32534#21495
        Width = 71
      end
      item
        EditButtons = <>
        FieldName = 'TrueName'
        Footers = <>
        Title.Caption = #22995#21517
        Width = 76
      end>
  end
  object adotUser: TADOTable
    Connection = adocMain
    CursorType = ctStatic
    AfterScroll = adotUserAfterScroll
    TableName = 'users'
    Left = 80
    Top = 192
    object adotUserUserId: TStringField
      FieldName = 'UserId'
      Size = 6
    end
    object adotUserUserName: TWideStringField
      DisplayLabel = #29992#25143#21517#31216
      FieldName = 'UserName'
      Size = 50
    end
    object adotUserPassword: TWideStringField
      DisplayLabel = #29992#25143#23494#30721
      FieldName = 'Password'
      Visible = False
      Size = 50
    end
    object adotUserTrueName: TStringField
      FieldName = 'TrueName'
    end
  end
  object adotRights: TADOTable
    Connection = adocMain
    CursorType = ctStatic
    TableName = 'Rights'
    Left = 272
    Top = 184
    object adotRightsModuleId: TStringField
      FieldName = 'ModuleId'
      Size = 6
    end
    object adotRightsModuleName: TStringField
      DisplayLabel = #27169#22359#21517#31216
      DisplayWidth = 27
      FieldKind = fkLookup
      FieldName = 'ModuleName'
      LookupDataSet = adotModule
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'ModuleID'
      Lookup = True
    end
    object adotRightsReadOnly: TBooleanField
      FieldName = 'ReadOnly'
    end
    object adotRightsUserId: TStringField
      FieldName = 'UserId'
      Size = 6
    end
  end
  object dsRights: TDataSource
    DataSet = adotRights
    Left = 328
    Top = 184
  end
  object adotModule: TADOTable
    Connection = adocMain
    CursorType = ctStatic
    TableName = 'Modules'
    Left = 208
    Top = 184
  end
  object adocMain: TADOConnection
    ConnectionString = 
      'Provider=MSDASQL.1;Password=351265;Persist Security Info=True;Us' +
      'er ID=admin;Data Source=MyRightMan;Mode=ReadWrite'
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    Left = 24
    Top = 192
  end
  object dsUser: TDataSource
    DataSet = adotUser
    Left = 128
    Top = 184
  end
end