uselectuser.dfm

用户权限管理系统

    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = SpeedButton1Click
    Columns = <
      item
        EditButtons = <>
        FieldName = 'V37'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #9679
        Width = 25
      end
      item
        EditButtons = <>
        FieldName = 'V38'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #65281
        Width = 23
      end
      item
        EditButtons = <>
        FieldName = 'V02'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #30331#24405#21517
        Width = 68
      end
      item
        EditButtons = <>
        FieldName = 'V03'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22995#21517
        Width = 56
      end
      item
        EditButtons = <>
        FieldName = 'V35'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #30331#24405#26041#24335
        Width = 107
      end
      item
        EditButtons = <>
        FieldName = 'V11'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21333#20301
        Width = 172
      end>
  end
  object DBGridEh2: TDBGridEh
    Left = 319
    Top = 56
    Width = 219
    Height = 274
    DataSource = DataSource2
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGridEh2DblClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'V37'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #9679
        Width = 25
      end
      item
        EditButtons = <>
        FieldName = 'V38'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #65281
        Width = 23
      end
      item
        EditButtons = <>
        FieldName = 'V02'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #30331#24405#21517
        Width = 68
      end
      item
        EditButtons = <>
        FieldName = 'V03'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22995#21517
        Width = 56
      end
      item
        EditButtons = <>
        FieldName = 'V35'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #30331#24405#26041#24335
        Width = 107
      end
      item
        EditButtons = <>
        FieldName = 'V11'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21333#20301
        Width = 172
      end>
  end
  object cds_Sd: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 242
    Top = 22
    object cds_SdV01: TStringField
      FieldName = 'V01'
      Size = 10
    end
    object cds_SdV02: TStringField
      FieldName = 'V02'
      Size = 80
    end
  end
  object ds_SD: TDataSource
    DataSet = cds_Sd
    Left = 282
    Top = 22
  end
  object cds_Source: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 48
    Top = 160
    object cds_SourceV01: TStringField
      FieldName = 'V01'
      Size = 10
    end
    object cds_SourceV37: TStringField
      FieldName = 'V37'
      Size = 10
    end
    object cds_SourceV38: TStringField
      FieldName = 'V38'
      Size = 10
    end
    object cds_SourceV02: TStringField
      FieldName = 'V02'
    end
    object cds_SourceV03: TStringField
      FieldName = 'V03'
      Size = 30
    end
    object cds_SourceV35: TStringField
      FieldName = 'V35'
      Size = 30
    end
    object cds_SourceV11: TStringField
      FieldName = 'V11'
      Size = 100
    end
  end
  object DataSource1: TDataSource
    DataSet = cds_Source
    Left = 80
    Top = 160
  end
  object DataSource2: TDataSource
    DataSet = cds_Select
    Left = 384
    Top = 160
  end
  object cds_Select: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 352
    Top = 160
    object StringField1: TStringField
      FieldName = 'V01'
      Size = 10
    end
    object StringField2: TStringField
      FieldName = 'V37'
      Size = 10
    end
    object StringField3: TStringField
      FieldName = 'V38'
      Size = 10
    end
    object StringField4: TStringField
      FieldName = 'V02'
    end
    object StringField5: TStringField
      FieldName = 'V03'
      Size = 30
    end
    object StringField6: TStringField
      FieldName = 'V35'
      Size = 30
    end
    object StringField7: TStringField
      FieldName = 'V11'
      Size = 100
    end
  end
end