untgrouprightset.dfm

用delphi编写的数据库管理软件

inherited frmGroupRightSet: TfrmGroupRightSet
  Left = -366
  Top = 403
  Caption = #32452#26435#38480#35774#23450
  ClientHeight = 483
  ClientWidth = 662
  Font.Name = #23435#20307
  OldCreateOrder = True
  OnCloseQuery = FormCloseQuery
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 662
    Height = 41
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Panel4: TPanel
      Left = 554
      Top = 2
      Width = 106
      Height = 37
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object btnExit: TButton
        Left = 15
        Top = 6
        Width = 75
        Height = 25
        Caption = #36864#20986
        TabOrder = 0
        OnClick = btnExitClick
      end
    end
    object acAllCheck: TButton
      Left = 6
      Top = 8
      Width = 75
      Height = 25
      Caption = #20840#36873
      TabOrder = 1
      OnClick = acAllCheckClick
    end
    object acAllUnCheck: TButton
      Left = 83
      Top = 8
      Width = 75
      Height = 25
      Caption = #20840#28165
      TabOrder = 2
      OnClick = acAllUnCheckClick
    end
    object btnsave: TButton
      Left = 160
      Top = 8
      Width = 75
      Height = 25
      Caption = #20445#23384
      TabOrder = 3
      OnClick = btnsaveClick
    end
    object btncancels: TButton
      Left = 237
      Top = 8
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 4
      OnClick = btncancelsClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 662
    Height = 442
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter2: TSplitter
      Left = 217
      Top = 0
      Width = 8
      Height = 442
    end
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 217
      Height = 442
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object Splitter1: TSplitter
        Left = 0
        Top = 200
        Width = 217
        Height = 9
        Cursor = crVSplit
        Align = alTop
      end
      object wwDBGrid1: TwwDBGrid
        Left = 0
        Top = 209
        Width = 217
        Height = 233
        Selected.Strings = (
          'fName'#9'20'#9#23376#31995#32113)
        IniAttributes.Delimiter = ';;'
        TitleColor = clWindow
        FixedCols = 0
        ShowHorzScrollBar = True
        Align = alClient
        DataSource = DSmodule
        ReadOnly = True
        TabOrder = 0
        TitleAlignment = taLeftJustify
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = False
      end
      object wwDBGrid2: TwwDBGrid
        Left = 0
        Top = 0
        Width = 217
        Height = 200
        Selected.Strings = (
          'fcode'#9'10'#9#32068#34399
          'fname'#9'12'#9#32068#21517)
        IniAttributes.Delimiter = ';;'
        TitleColor = clWindow
        FixedCols = 0
        ShowHorzScrollBar = True
        Align = alTop
        Ctl3D = True
        DataSource = DSMaster
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 1
        TitleAlignment = taLeftJustify
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = False
        IndicatorIconColor = clDefault
        FooterColor = clWindow
      end
    end
    object DBGridEh1: TDBGridEh
      Left = 225
      Top = 0
      Width = 437
      Height = 442
      Align = alClient
      DataSource = DSfunction
      FixedColor = 12835543
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'fName'
          Footers = <>
          Title.Caption = #21151#33021
          Width = 130
        end
        item
          EditButtons = <>
          FieldName = 'fRun'
          Footers = <>
          Title.Caption = #36816#34892
        end
        item
          EditButtons = <>
          FieldName = 'fInsert'
          Footers = <>
          Title.Caption = #26032#22686
        end
        item
          EditButtons = <>
          FieldName = 'fEdit'
          Footers = <>
          Title.Caption = #20462#25913
        end
        item
          EditButtons = <>
          FieldName = 'fDelete'
          Footers = <>
          Title.Caption = #21024#38500
        end
        item
          EditButtons = <>
          FieldName = 'fPrint'
          Footers = <>
          Title.Caption = #25171#21360
        end
        item
          EditButtons = <>
          FieldName = 'fConfirm'
          Footers = <>
          Title.Caption = #23457#26680
        end
        item
          EditButtons = <>
          FieldName = 'fCancel'
          Footers = <>
          Title.Caption = #21462#28040
        end
        item
          EditButtons = <>
          FieldName = 'fFinish'
          Footers = <>
          Title.Caption = #32467#28165
        end
        item
          EditButtons = <>
          FieldName = 'fStart'
          Footers = <>
          Title.Caption = #21551#21160
        end>
    end
  end
  object CDSMaster: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 56
    Top = 97
    object CDSMasterfcode: TWideStringField
      DisplayLabel = #32068#34399
      DisplayWidth = 10
      FieldName = 'fcode'
      Size = 18
    end
    object CDSMasterfname: TWideStringField
      DisplayLabel = #32068#21517
      DisplayWidth = 12
      FieldName = 'fname'
      Size = 26
    end
    object CDSMasterfid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object CDSMasterfremark: TWideStringField
      DisplayWidth = 32
      FieldName = 'fremark'
      Visible = False
      Size = 32
    end
  end
  object DSMaster: TDataSource
    DataSet = CDSMaster
    OnDataChange = DSMasterDataChange
    Left = 72
    Top = 121
  end
  object CDSmodule: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 56
    Top = 337
    object CDSmodulefName: TWideStringField
      DisplayLabel = #23376#31995#32113
      DisplayWidth = 20
      FieldName = 'fName'
      Size = 50
    end
    object CDSmodulefID: TIntegerField
      DisplayWidth = 10
      FieldName = 'fID'
      Visible = False
    end
  end
  object DSmodule: TDataSource
    DataSet = CDSmodule
    OnDataChange = DSmoduleDataChange
    Left = 72
    Top = 353
  end
  object CDSfunction: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 416
    Top = 177
  end
  object DSfunction: TDataSource
    DataSet = CDSfunction
    OnStateChange = DSfunctionStateChange
    OnDataChange = DSfunctionDataChange
    Left = 456
    Top = 209
  end
  object CDSright: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 536
    Top = 81
  end
  object MSNsaveinfo: TMSNPopUp
    Text = 'text'
    Width = 200
    Height = 100
    GradientColor1 = 16764057
    GradientColor2 = clWhite
    ScrollSpeed = 10
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    HoverFont.Charset = ANSI_CHARSET
    HoverFont.Color = clBlue
    HoverFont.Height = -13
    HoverFont.Name = #23435#20307
    HoverFont.Style = [fsUnderline]
    Title = 'title'
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Options = [msnCascadePopups, msnAllowScroll]
    TextAlignment = taCenter
    TextCursor = crDefault
    PopupMarge = 2
    PopupStartX = 16
    PopupStartY = 2
    DefaultMonitor = dmDesktop
    Left = 160
    Top = 337
  end
end