udmsys.dfm

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

object DMSys: TDMSys
  OldCreateOrder = False
  Left = 200
  Top = 124
  Height = 222
  Width = 353
  object CSysConfig: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'PSysConfig'
    RemoteServer = DM.SSys_DM
    Left = 24
    Top = 65
    object CSysConfigID: TStringField
      FieldName = 'ID'
      Size = 1
    end
    object CSysConfigStartDate: TDateTimeField
      FieldName = 'StartDate'
    end
    object CSysConfigStandardCrrency: TStringField
      FieldName = 'StandardCrrency'
      Size = 4
    end
    object CSysConfigAllowNegativeInventory: TBooleanField
      FieldName = 'AllowNegativeInventory'
    end
    object CSysConfigAllowUndoApprove: TBooleanField
      FieldName = 'AllowUndoApprove'
    end
    object CSysConfigAllowUndoConfirm: TBooleanField
      FieldName = 'AllowUndoConfirm'
    end
    object CSysConfigAllowSameEdit: TBooleanField
      FieldName = 'AllowSameEdit'
    end
    object CSysConfigAllowSameApprove: TBooleanField
      FieldName = 'AllowSameApprove'
    end
    object CSysConfigAllowSameConfirm: TBooleanField
      FieldName = 'AllowSameConfirm'
    end
    object CSysConfigAllowOffSetBill: TBooleanField
      FieldName = 'AllowOffSetBill'
    end
    object CSysConfigUpgradePath: TStringField
      FieldName = 'UpgradePath'
      Size = 200
    end
    object CSysConfigNote1AutoNo: TBooleanField
      FieldName = 'Note1AutoNo'
    end
    object CSysConfigNote1Prefix: TStringField
      FieldName = 'Note1Prefix'
      Size = 2
    end
    object CSysConfigNote1Length: TSmallintField
      FieldName = 'Note1Length'
    end
    object CSysConfigNote2AutoNo: TBooleanField
      FieldName = 'Note2AutoNo'
    end
    object CSysConfigNote2Prefix: TStringField
      FieldName = 'Note2Prefix'
      Size = 2
    end
    object CSysConfigNote2Length: TSmallintField
      FieldName = 'Note2Length'
    end
    object CSysConfigNote3AutoNo: TBooleanField
      FieldName = 'Note3AutoNo'
    end
    object CSysConfigNote3Prefix: TStringField
      FieldName = 'Note3Prefix'
      Size = 2
    end
    object CSysConfigNote3Length: TSmallintField
      FieldName = 'Note3Length'
    end
    object CSysConfigNote4AutoNo: TBooleanField
      FieldName = 'Note4AutoNo'
    end
    object CSysConfigNote4Prefix: TStringField
      FieldName = 'Note4Prefix'
      Size = 2
    end
    object CSysConfigNote4Length: TSmallintField
      FieldName = 'Note4Length'
    end
    object CSysConfigNote5AutoNo: TBooleanField
      FieldName = 'Note5AutoNo'
    end
    object CSysConfigNote5Prefix: TStringField
      FieldName = 'Note5Prefix'
      Size = 2
    end
    object CSysConfigNote5Length: TSmallintField
      FieldName = 'Note5Length'
    end
    object CSysConfigNote6AutoNo: TBooleanField
      FieldName = 'Note6AutoNo'
    end
    object CSysConfigNote6Prefix: TStringField
      FieldName = 'Note6Prefix'
      Size = 2
    end
    object CSysConfigNote6Length: TSmallintField
      FieldName = 'Note6Length'
    end
    object CSysConfigNote7AutoNo: TBooleanField
      FieldName = 'Note7AutoNo'
    end
    object CSysConfigNote7Prefix: TStringField
      FieldName = 'Note7Prefix'
      Size = 2
    end
    object CSysConfigNote7Length: TSmallintField
      FieldName = 'Note7Length'
    end
    object CSysConfigNote8AutoNo: TBooleanField
      FieldName = 'Note8AutoNo'
    end
    object CSysConfigNote8Prefix: TStringField
      FieldName = 'Note8Prefix'
      Size = 2
    end
    object CSysConfigNote8Length: TSmallintField
      FieldName = 'Note8Length'
    end
    object CSysConfigNote9AutoNo: TBooleanField
      FieldName = 'Note9AutoNo'
    end
    object CSysConfigNote9Prefix: TStringField
      FieldName = 'Note9Prefix'
      Size = 2
    end
    object CSysConfigNote9Length: TSmallintField
      FieldName = 'Note9Length'
    end
    object CSysConfigNote10AutoNo: TBooleanField
      FieldName = 'Note10AutoNo'
    end
    object CSysConfigNote10Prefix: TStringField
      FieldName = 'Note10Prefix'
      Size = 2
    end
    object CSysConfigNote10Length: TSmallintField
      FieldName = 'Note10Length'
    end
    object CSysConfigNote11AutoNo: TBooleanField
      FieldName = 'Note11AutoNo'
    end
    object CSysConfigNote11Prefix: TStringField
      FieldName = 'Note11Prefix'
      Size = 2
    end
    object CSysConfigNote11Length: TSmallintField
      FieldName = 'Note11Length'
    end
  end
  object CSysUserInfo: TClientDataSet
    Aggregates = <>
    FilterOptions = [foCaseInsensitive]
    FieldDefs = <
      item
        Name = 'UserID'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'UserName'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Enabled'
        DataType = ftBoolean
      end
      item
        Name = 'Password'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'DeptID'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Computer'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'BarGroup'
        DataType = ftSmallint
      end
      item
        Name = 'AllRight'
        DataType = ftBoolean
      end
      item
        Name = 'Rights'
        DataType = ftMemo
      end
      item
        Name = 'Remark'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'Creater'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CreateDate'
        DataType = ftDateTime
      end
      item
        Name = 'Updater'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'updateDate'
        DataType = ftDateTime
      end>
    IndexDefs = <
      item
        Name = 'CosuserIndex1'
        DescFields = 'User_id'
        Options = [ixDescending]
      end>
    PacketRecords = 500
    Params = <
      item
        DataType = ftString
        Name = '@DeptID'
        ParamType = ptInput
        Value = Null
      end>
    ProviderName = 'PSysUserInfo'
    RemoteServer = DM.SSys_DM
    StoreDefs = True
    OnNewRecord = CSysUserInfoNewRecord
    Left = 24
    Top = 12
    object CSysUserInfoUserID: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'UserID'
      Size = 15
    end
    object CSysUserInfoUserName: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'UserName'
      Size = 10
    end
    object CSysUserInfoEnabled: TBooleanField
      DisplayLabel = #21551#29992
      FieldName = 'Enabled'
    end
    object CSysUserInfoPassword: TStringField
      FieldName = 'Password'
      Visible = False
      Size = 100
    end
    object CSysUserInfoDeptID: TStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'DeptID'
      Size = 15
    end
    object CSysUserInfoDeptName: TStringField
      DisplayLabel = #37096#38376
      FieldKind = fkLookup
      FieldName = 'DeptName'
      LookupDataSet = Cdept1
      LookupKeyFields = 'DeptID'
      LookupResultField = 'DeptName'
      KeyFields = 'DeptID'
      Lookup = True
    end
    object CSysUserInfoBarGroup: TSmallintField
      FieldName = 'BarGroup'
    end
    object CSysUserInfoComputer: TStringField
      DisplayLabel = #20351#29992#30005#33041
      DisplayWidth = 10
      FieldName = 'Computer'
      Size = 200
    end
    object CSysUserInfoAllRight: TBooleanField
      DisplayLabel = #25152#26377#26435
      FieldName = 'AllRight'
    end
    object CSysUserInfoRights: TMemoField
      DisplayLabel = #26435#38480#21015#34920
      FieldName = 'Rights'
      BlobType = ftMemo
    end
    object CSysUserInfoRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 200
    end
    object CSysUserInfoCreater: TStringField
      DisplayLabel = #21019#24314#32773
      FieldName = 'Creater'
      Size = 10
    end
    object CSysUserInfoCreateDate: TDateTimeField
      DisplayLabel = #21019#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CSysUserInfoUpdater: TStringField
      DisplayLabel = #26356#26032#32773
      FieldName = 'Updater'
      Size = 10
    end
    object CSysUserInfoupdateDate: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'updateDate'
    end
  end
  object CSysFunction: TClientDataSet
    Aggregates = <>
    PacketRecords = 500
    Params = <>
    ProviderName = 'PSysFunction'
    RemoteServer = DM.SSys_DM
    Left = 96
    Top = 12
    object CSysFunctionFunctionID: TStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 6
      FieldName = 'FunctionID'
      Size = 15
    end
    object CSysFunctionFunctionName: TStringField
      DisplayLabel = #26435#38480#39033
      DisplayWidth = 10
      FieldName = 'FunctionName'
      Size = 100
    end
    object CSysFunctionParentID: TStringField
      DisplayLabel = #19978#32423#39033
      DisplayWidth = 6
      FieldName = 'ParentID'
      Size = 15
    end
    object CSysFunctionRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 10
      FieldName = 'Remark'
      Size = 200
    end
    object CSysFunctionFlag: TStringField
      DisplayLabel = #26631#31034
      FieldName = 'Flag'
      FixedChar = True
      Size = 1
    end
    object CSysFunctionCreater: TStringField
      FieldName = 'Creater'
      Visible = False
      Size = 10
    end
    object CSysFunctionCreatedate: TDateTimeField
      FieldName = 'Createdate'
      Visible = False
    end
    object CSysFunctionUpdater: TStringField
      FieldName = 'Updater'
      Visible = False
      Size = 10
    end
    object CSysFunctionUpdateDate: TDateTimeField
      FieldName = 'UpdateDate'
      Visible = False
    end
  end
  object CSysMessage: TClientDataSet
    Tag = 100
    Aggregates = <>
    PacketRecords = 500
    Params = <>
    ProviderName = 'PSysMessage'
    RemoteServer = DM.SSys_DM
    Left = 96
    Top = 118
    object CSysMessageMessageID: TStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 10
      FieldName = 'MessageID'
      Size = 100
    end
    object CSysMessageMessageType: TStringField
      DisplayLabel = #31867#22411
      FieldName = 'MessageType'
      Size = 2
    end
    object CSysMessagePonderance: TSmallintField
      DisplayLabel = #31243#24230
      FieldName = 'Ponderance'
    end
    object CSysMessageMessageText: TStringField
      DisplayLabel = #28040#24687#20869#23481
      DisplayWidth = 50
      FieldName = 'MessageText'
      Size = 500
    end
  end
  object CQuery: TClientDataSet
    Aggregates = <>
    PacketRecords = 500
    Params = <>
    ProviderName = 'Pquery'
    RemoteServer = DM.SSys_DM
    Left = 96
    Top = 65
  end
  object CSysLog: TClientDataSet
    Aggregates = <>