usysuserinfo.dfm

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

inherited fmSysUserinfo: TfmSysUserinfo
  Left = 201
  Top = 123
  Caption = #29992#25143#20449#24687
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 15
  inherited PageControl: TPageControl
    inherited Tabbrowse: TTabSheet
      inherited Splitter: TSplitter
        Left = 216
      end
      object Splitter1: TSplitter [1]
        Left = 211
        Top = 0
        Width = 5
        Height = 263
        Hint = #21487#20197#30452#25509#25302'?'#20998#21106'??'#25913'?'#37096'?'#20449#24687#30340'?'#24230
      end
      inherited Panel1: TPanel
        Left = 216
        Width = 333
        inherited DBGrid1: TdxDBGrid
          Width = 331
          Filter.Criteria = {00000000}
          object DBGrid1UserID: TdxDBGridMaskColumn
            Width = 94
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UserID'
          end
          object DBGrid1UserName: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UserName'
          end
          object DBGrid1Enabled: TdxDBGridCheckColumn
            Width = 47
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Enabled'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBGrid1Password: TdxDBGridMaskColumn
            Visible = False
            Width = 573
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Password'
          end
          object DBGrid1DeptID: TdxDBGridMaskColumn
            Visible = False
            Width = 89
            BandIndex = 0
            RowIndex = 0
            FieldName = 'DeptID'
          end
          object DBGrid1DeptName: TdxDBGridLookupColumn
            Width = 124
            BandIndex = 0
            RowIndex = 0
            FieldName = 'DeptName'
          end
          object DBGrid1Computer: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Computer'
          end
          object DBGrid1AllRight: TdxDBGridCheckColumn
            Width = 100
            BandIndex = 0
            RowIndex = 0
            FieldName = 'AllRight'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBGrid1Remark: TdxDBGridMaskColumn
            Width = 124
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
          object DBGrid1Creater: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Creater'
          end
          object DBGrid1CreateDate: TdxDBGridDateColumn
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CreateDate'
          end
          object DBGrid1Updater: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Updater'
          end
          object DBGrid1updateDate: TdxDBGridDateColumn
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'updateDate'
          end
        end
        inherited Panel3: TPanel
          Width = 331
        end
      end
      object dxDBTreeView1: TdxDBTreeView
        Left = 0
        Top = 0
        Width = 211
        Height = 263
        ShowNodeHint = True
        DataSource = DSDept
        DisplayField = 'DeptName'
        KeyField = 'DeptID'
        ListField = 'DeptID'
        ParentField = 'ParentID'
        SeparatedSt = ', id =  '
        RaiseOnError = True
        ReadOnly = True
        Indent = 19
        OnChange = dxDBTreeView1Change
        Align = alLeft
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        SelectedIndex = -1
        TabOrder = 1
        ParentFont = False
        Images = DM.ImageTree
      end
    end
    inherited TabEdit: TTabSheet
      inherited GroupBox1: TGroupBox
        Height = 263
        object Label1: TLabel
          Left = 8
          Top = 59
          Width = 24
          Height = 15
          Caption = #32534#21495
          FocusControl = DBEdit1
        end
        object Label2: TLabel
          Left = 8
          Top = 16
          Width = 24
          Height = 15
          Caption = #22995#21517
          FocusControl = DBEdit2
        end
        object Label3: TLabel
          Left = 8
          Top = 104
          Width = 24
          Height = 15
          Caption = #37096#38376
        end
        object Label4: TLabel
          Left = 10
          Top = 321
          Width = 171
          Height = 15
          Caption = #65288#26032#22686#29992#25143#23494#30721#40664#35748#20026#39'12345'#39#65289
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 8
          Top = 150
          Width = 48
          Height = 15
          Caption = #30331#24405#30005#33041
          FocusControl = DBEdit3
        end
        object Label6: TLabel
          Left = 8
          Top = 220
          Width = 24
          Height = 15
          Caption = #22791#27880
          FocusControl = DBEdit4
        end
        object Label7: TLabel
          Left = 8
          Top = 199
          Width = 84
          Height = 15
          Caption = #31995#32479#40664#35748#23548#33322#26639
        end
        object DBEdit1: TDBEdit
          Left = 8
          Top = 75
          Width = 100
          Height = 23
          CharCase = ecUpperCase
          DataField = 'UserID'
          DataSource = DSMain
          TabOrder = 1
        end
        object DBEdit2: TDBEdit
          Left = 8
          Top = 32
          Width = 100
          Height = 23
          DataField = 'UserName'
          DataSource = DSMain
          TabOrder = 0
        end
        object DBCheckBox1: TDBCheckBox
          Left = 9
          Top = 265
          Width = 65
          Height = 17
          Caption = #25152#26377#26435
          DataField = 'AllRight'
          DataSource = DSMain
          TabOrder = 3
          ValueChecked = 'True'
          ValueUnchecked = 'False'
        end
        object dxDBLookupTreeView1: TdxDBLookupTreeView
          Left = 8
          Top = 120
          Width = 252
          Height = 23
          CanSelectParents = True
          DropDownRows = 15
          ParentColor = False
          TabOrder = 2
          TabStop = True
          Text = 'dxDBLookupTreeView1'
          TreeViewColor = clWindow
          TreeViewCursor = crDefault
          TreeViewFont.Charset = DEFAULT_CHARSET
          TreeViewFont.Color = clWindowText
          TreeViewFont.Height = -11
          TreeViewFont.Name = 'MS Sans Serif'
          TreeViewFont.Style = []
          TreeViewIndent = 19
          TreeViewReadOnly = True
          TreeViewShowButtons = True
          TreeViewShowHint = False
          TreeViewShowLines = True
          TreeViewShowRoot = True
          TreeViewSortType = stNone
          DisplayField = 'DeptName'
          DividedChar = '.'
          ListSource = DSDept1
          KeyField = 'DeptID'
          ListField = 'DeptName'
          Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy]
          ParentField = 'ParentID'
          TextStyle = tvtsFull
          DataField = 'DeptID'
          DataSource = DSMain
          ReadOnly = True
        end
        object DBCheckBox2: TDBCheckBox
          Left = 9
          Top = 291
          Width = 97
          Height = 17
          Caption = #24080#21495#21551#29992
          DataField = 'Enabled'
          DataSource = DSMain
          TabOrder = 4
          ValueChecked = 'True'
          ValueUnchecked = 'False'
        end
        object DBEdit3: TDBEdit
          Left = 8
          Top = 166
          Width = 249
          Height = 23
          CharCase = ecUpperCase
          DataField = 'Computer'
          DataSource = DSMain
          TabOrder = 5
        end
        object DBEdit4: TDBEdit
          Left = 8
          Top = 236
          Width = 249
          Height = 23
          CharCase = ecUpperCase
          DataField = 'Remark'
          DataSource = DSMain
          TabOrder = 6
        end
        object ComboBox1: TComboBox
          Left = 100
          Top = 195
          Width = 158
          Height = 22
          Style = csOwnerDrawFixed
          ItemHeight = 16
          TabOrder = 7
        end
      end
      inherited Panel2: TPanel
        Width = 260
        Height = 263
        object dxDBTreeView2: TdxDBTreeView
          Left = 0
          Top = 0
          Width = 279
          Height = 263
          ShowNodeHint = True
          DataSource = DSFunction
          DisplayField = 'FunctionName'
          KeyField = 'FunctionID'
          ListField = 'FunctionName'
          ParentField = 'ParentID'
          SeparatedSt = ', id =  '
          RaiseOnError = True
          ReadOnly = True
          Indent = 19
          OnChange = dxDBTreeView1Change
          Align = alLeft
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
          SelectedIndex = -1
          TabOrder = 0
          ParentFont = False
        end
        object dxDBGrid2: TdxDBGrid
          Left = 279
          Top = 0
          Width = 448
          Height = 263
          Hint = #22238#36710#22686#21152',Ctrl+DEL'#21024#38500
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          Visible = False
          DataSource = DSFunction
          Filter.Criteria = {00000000}
          GridLineColor = clBlue
          OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoTabs, edgoTabThrough, edgoVertThrough]
          ScrollBars = ssNone
          object dxDBGrid2FunctionID: TdxDBGridMaskColumn
            CharCase = ecUpperCase
            BandIndex = 0
            RowIndex = 0
            FieldName = 'FunctionID'
          end
          object dxDBGrid2FunctionName: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'FunctionName'
          end
          object dxDBGrid2ParentID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ParentID'
          end
          object dxDBGrid2Remark: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
          object dxDBGrid2Flag: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Flag'
          end
        end
      end
    end
  end
  inherited ToolBar: TToolBar
    inherited TBConfirm: TToolButton
      Caption = #23494#30721
    end
  end
  inherited DSMain: TDataSource
    DataSet = DMSys.CSysUserInfo
    Top = 164
  end
  inherited ActionList: TActionList
    Top = 164
    inherited AConfirm: TAction
      Caption = #26435#38480
      Enabled = True
      ShortCut = 123
      Visible = True
      OnExecute = AConfirmExecute
    end
    object AMessage: TAction
      Caption = #31995#32479#25552#31034
      ImageIndex = 23
      OnExecute = AMessageExecute
    end
    object ASysMessage: TAction
      Caption = 'ASysMessage'
      ShortCut = 24688
      SecondaryShortCuts.Strings = (
        'Shift+Ctrl+Alt+1')
      OnExecute = ASysMessageExecute
    end
    object ASysFunction: TAction
      Caption = 'ASysFunction'
      ShortCut = 24689
      SecondaryShortCuts.Strings = (
        'Shift+Ctrl+Alt+2')
      OnExecute = ASysFunctionExecute
    end
  end
  object DSDept: TDataSource [4]
    DataSet = DMBase.Cdept
    Left = 238
    Top = 127
  end
  object DSFunction: TDataSource [5]
    DataSet = DMSys.CSysFunction
    Left = 304
    Top = 128
  end
  inherited Menu1: TPopupMenu
    Top = 128
  end
  inherited Menu2: TPopupMenu
    Top = 128
  end
  inherited Menu3: TPopupMenu
    Left = 164
    Top = 128
    inherited Column: TMenuItem
      Visible = False
    end
    inherited Grid: TMenuItem
      Visible = False
    end
  end
  object DSDept1: TDataSource
    Left = 272
    Top = 128
  end
end