buser_group.dfm

三层ERP系统 (SQL)

inherited frmUser_Group: TfrmUser_Group
  Left = 221
  Top = 240
  Width = 382
  Height = 352
  Caption = #32676#32068#36039#26009
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 16
    Width = 353
    Height = 257
    Caption = #32676#32068#36039#26009
    TabOrder = 0
    object grid: TDBGridEh
      Left = 8
      Top = 24
      Width = 337
      Height = 225
      DataSource = DSusergroup
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = #32048#26126#39636
      FooterFont.Style = []
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #32048#26126#39636
      TitleFont.Style = []
      OnGetCellParams = gridGetCellParams
      Columns = <
        item
          EditButtons = <>
          FieldName = 'fisadd'
          Footers = <>
          Title.Caption = #26851#23660
          Width = 50
        end
        item
          EditButtons = <>
          FieldName = 'fid'
          Footers = <>
          ReadOnly = True
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'fcode'
          Footers = <>
          ReadOnly = True
          Title.Caption = #32676#32068#32232#30908
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'fname'
          Footers = <>
          ReadOnly = True
          Title.Caption = #32676#32068#21517#31281
          Width = 120
        end
        item
          EditButtons = <>
          FieldName = 'fremark'
          Footers = <>
          ReadOnly = True
          Visible = False
        end>
    end
  end
  object btnExit: TButton
    Left = 286
    Top = 288
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 1
    OnClick = btnExitClick
  end
  object btnOK: TButton
    Left = 208
    Top = 288
    Width = 75
    Height = 25
    Caption = #30906#23450
    TabOrder = 2
    OnClick = btnOKClick
  end
  object CDSUsergroup: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 128
    Top = 72
  end
  object DSusergroup: TDataSource
    DataSet = CDSGrid
    Left = 88
    Top = 192
  end
  object CDSGrid: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 72
    Top = 176
  end
  object CDSusergroupid: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 216
    Top = 72
  end
end