frmpermissionmanage.dfm

非常地全面完整的物流供应链管理系统 包含全部的需求文档

object FormPermissionManage: TFormPermissionManage
  Left = 191
  Top = 105
  Width = 543
  Height = 419
  Caption = #26435#38480#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 40
    Top = 48
    Width = 48
    Height = 12
    Caption = #32534#21495'(&I):'
    FocusControl = DBEdtId
  end
  object Label2: TLabel
    Left = 288
    Top = 56
    Width = 48
    Height = 12
    Caption = #21517#31216'(&N):'
    FocusControl = DBEdtName
  end
  object Label3: TLabel
    Left = 24
    Top = 72
    Width = 48
    Height = 12
    Caption = #22791#27880'(&R):'
    FocusControl = DBMemoRemark
  end
  object LCDBOperatToolMaster: TLCDBOperatTool
    Left = 16
    Top = 8
    Width = 505
    Height = 33
    VisibleBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
    EnabledBtn = [tbAdd, tbDel, tbEdit]
    DelConfirmId = 'permissiondatamaster'
    DataSource = DSMaster
    OnModeChange = LCDBOperatToolMasterModeChange
    OnClick = LCDBOperatToolMasterClick
  end
  object DBEdtId: TDBEdit
    Left = 96
    Top = 48
    Width = 121
    Height = 20
    DataField = 'Id'
    DataSource = DSMaster
    Enabled = False
    ReadOnly = True
    TabOrder = 1
  end
  object DBEdtName: TDBEdit
    Left = 344
    Top = 48
    Width = 121
    Height = 20
    DataField = 'Name'
    DataSource = DSMaster
    TabOrder = 2
  end
  object DBMemoRemark: TDBMemo
    Left = 16
    Top = 88
    Width = 497
    Height = 33
    DataField = 'Remark'
    DataSource = DSMaster
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object DBGrid2: TDBGrid
    Left = 16
    Top = 128
    Width = 497
    Height = 73
    DataSource = DSMaster
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'Id'
        Title.Caption = #32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Name'
        Title.Caption = #21517#31216
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 216
    Width = 521
    Height = 169
    Caption = #21487#34892#20351#30340#31995#32479#32844#33021
    TabOrder = 5
    object DBGrid1: TDBGrid
      Left = 8
      Top = 48
      Width = 505
      Height = 113
      DataSource = DSSlave
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'Func'
          PickList.Strings = (
            'SysAdmin'
            'SysChangeBaseData'
            'SysUserManage'
            'WarehouseUserManage'
            'WarehouseNewGoodsCate'
            'WarehouseNewGoods'
            'WarehouseStockIn'
            'WarehouseStockOut'
            'WarehouseMakeInvetory'
            'WarehouseQueryInfo'
            'WarehouseGenarateRequestOrder'
            'PurchaseUserManage'
            'PurchaseNewVendor'
            'PurchaseRequestOrderToOrderList'
            'PurchaseRequestSupplytoStockIn'
            'PurchaseQueryInfo'
            'PurchaseNewStockIn'
            'PurchaseNewOrderList'
            'PurchaseNewGoods'
            'PurchaseNewGoodsCate'
            'PurchaseSysConfig'
            'SaleUserManage'
            'SaleManageStockOutList'
            'SaleGenerateStockOutList'
            'SaleSysConfig')
          Title.Caption = #21487#20197#20351#29992#30340#21151#33021
          Width = 231
          Visible = True
        end>
    end
    object LCDBOperatToolSlave: TLCDBOperatTool
      Left = 16
      Top = 16
      Width = 497
      Height = 25
      VisibleBtn = [tbAdd, tbDel, tbEdit, tbPost, tbCancel]
      EnabledBtn = [tbAdd, tbDel, tbEdit]
      DelConfirmId = 'permissiondataslave'
      DataSource = DSSlave
      OnModeChange = LCDBOperatToolSlaveModeChange
    end
  end
  object DSMaster: TDataSource
    DataSet = ADOTPerMaster
    Left = 240
    Top = 72
  end
  object ADOTPerMaster: TADOTable
    Active = True
    CacheSize = 1000
    Connection = ADOCon
    CursorType = ctStatic
    TableName = 't_PermissionMaster'
    Left = 176
    Top = 72
  end
  object ADOTPerSlave: TADOTable
    Active = True
    CacheSize = 1000
    Connection = ADOCon
    CursorType = ctStatic
    IndexFieldNames = 'MasterId'
    MasterFields = 'Id'
    MasterSource = DSMaster
    TableName = 't_PermissionSlave'
    Left = 176
    Top = 128
    object ADOTPerSlaveMasterId: TSmallintField
      FieldName = 'MasterId'
    end
    object ADOTPerSlaveFunc: TWideStringField
      FieldName = 'Func'
    end
  end
  object ADOCon: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=GoodsManagementSystem_Data;Data Source=' +
      '127.0.0.1'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 80
    Top = 96
  end
  object DSSlave: TDataSource
    DataSet = ADOTPerSlave
    Left = 240
    Top = 128
  end
  object ADOQ: TADOQuery
    Connection = ADOCon
    Parameters = <>
    Left = 288
    Top = 152
  end
end