maind.dfm

极具实用价值的文件管理系统

object dmMain: TdmMain
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 212
  Top = 214
  Height = 464
  Width = 595
  object adcSystem: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password="";Persist Security Info=True;User ' +
      'ID=sa;Initial Catalog=ePdm;Data Source=CYCLONE'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'SQLOLEDB.1'
    Left = 48
    Top = 32
  end
  object dsCategory: TADODataSet
    CacheSize = 1000
    Connection = adcSystem
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterInsert = dsCategoryAfterInsert
    BeforePost = dsCategoryBeforePost
    CommandText = 
      'SELECT '#13#10' * '#13#10'FROM'#13#10'  DocumentsType'#13#10'WHERE'#13#10'  TypeCode = :TypeCo' +
      'de'#13#10'ORDER BY'#13#10'  SeqNo'
    EnableBCD = False
    Parameters = <
      item
        Name = 'TypeCode'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    Left = 128
    Top = 32
    object dsCategoryTypeCode: TStringField
      FieldName = 'TypeCode'
      Size = 10
    end
    object dsCategoryTypeName: TStringField
      FieldName = 'TypeName'
      Size = 30
    end
    object dsCategoryParentTypeCode: TStringField
      FieldName = 'ParentTypeCode'
      Size = 10
    end
    object dsCategoryRemarks: TStringField
      FieldName = 'Remarks'
      Size = 255
    end
    object dsCategorySeqNo: TAutoIncField
      FieldName = 'SeqNo'
      ReadOnly = True
    end
    object dsCategoryCreator: TStringField
      FieldName = 'Creator'
      Size = 10
    end
    object dsCategoryCreateDate: TDateTimeField
      FieldName = 'CreateDate'
    end
    object dsCategoryLastModifier: TStringField
      FieldName = 'LastModifier'
      FixedChar = True
      Size = 10
    end
    object dsCategoryLastModifyDate: TDateTimeField
      FieldName = 'LastModifyDate'
    end
    object dsCategoryModifyTimes: TIntegerField
      FieldName = 'ModifyTimes'
    end
  end
  object dsDocumentsList: TADODataSet
    CacheSize = 1000
    Connection = adcSystem
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterInsert = dsDocumentsListAfterInsert
    BeforePost = dsDocumentsListBeforePost
    CommandText = 
      'SELECT '#13#10' * '#13#10'FROM'#13#10'  Documents'#13#10'WHERE'#13#10'  DocType = :DocType'#13#10'OR' +
      'DER BY'#13#10'  DocNo'
    EnableBCD = False
    Parameters = <
      item
        Name = 'DocType'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    Left = 328
    Top = 312
    object dsDocumentsListDocNo: TStringField
      FieldName = 'DocNo'
    end
    object dsDocumentsListDocType: TStringField
      FieldName = 'DocType'
      Size = 10
    end
    object dsDocumentsListDocName: TStringField
      FieldName = 'DocName'
      Size = 30
    end
    object dsDocumentsListFileName: TStringField
      FieldName = 'FileName'
      Size = 128
    end
    object dsDocumentsListFileSize: TFloatField
      FieldName = 'FileSize'
    end
    object dsDocumentsListOriginalExtName: TStringField
      FieldName = 'OriginalExtName'
      Size = 5
    end
    object dsDocumentsListVersion: TStringField
      FieldName = 'Version'
      Size = 11
    end
    object dsDocumentsListRemarks: TStringField
      FieldName = 'Remarks'
      Size = 255
    end
    object dsDocumentsListCreator: TStringField
      FieldName = 'Creator'
      Size = 10
    end
    object dsDocumentsListCreateDate: TDateTimeField
      FieldName = 'CreateDate'
    end
    object dsDocumentsListLastModifier: TStringField
      FieldName = 'LastModifier'
      FixedChar = True
      Size = 10
    end
    object dsDocumentsListLastModifyDate: TDateTimeField
      FieldName = 'LastModifyDate'
    end
    object dsDocumentsListModifyTimes: TIntegerField
      FieldName = 'ModifyTimes'
    end
  end
  object dsDocumentsAttachmentDetails: TADODataSet
    CacheSize = 1000
    Connection = adcSystem
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'SELECT '#13#10' * '#13#10'FROM'#13#10'  DocumentsAttachmentDetails'#13#10'WHERE'#13#10'  DocNo' +
      ' = :DocNo'#13#10'ORDER BY'#13#10'  SeqNo'
    DataSource = srcDocuments
    EnableBCD = False
    IndexFieldNames = 'DocNo'
    MasterFields = 'DocNo'
    Parameters = <
      item
        Name = 'DocNo'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = Null
      end>
    Left = 352
    Top = 32
    object dsDocumentsAttachmentDetailsDocType: TStringField
      FieldName = 'DocType'
      Size = 10
    end
    object dsDocumentsAttachmentDetailsDocNo: TStringField
      FieldName = 'DocNo'
    end
    object dsDocumentsAttachmentDetailsSeqNo: TIntegerField
      FieldName = 'SeqNo'
    end
    object dsDocumentsAttachmentDetailsFileName: TStringField
      FieldName = 'FileName'
      Size = 128
    end
    object dsDocumentsAttachmentDetailsRemarks: TStringField
      FieldName = 'Remarks'
      Size = 255
    end
  end
  object srcCategory: TDataSource
    DataSet = dsCategory
    Left = 128
    Top = 88
  end
  object srcDocuments: TDataSource
    DataSet = dsDocuments
    Left = 224
    Top = 88
  end
  object srcDocumentsAttachmentDetails: TDataSource
    DataSet = dsDocumentsAttachmentDetails
    Left = 352
    Top = 88
  end
  object dsDynamic: TADOQuery
    Connection = adcSystem
    Parameters = <>
    Left = 128
    Top = 312
  end
  object dsCategoryTree: TADODataSet
    CacheSize = 1000
    Connection = adcSystem
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'SELECT '#13#10' * '#13#10'FROM'#13#10'  DocumentsType'#13#10'ORDER BY'#13#10'  SeqNo'
    EnableBCD = False
    Parameters = <>
    Left = 232
    Top = 312
    object dsCategoryTreeTypeCode: TStringField
      FieldName = 'TypeCode'
      Size = 10
    end
    object dsCategoryTreeTypeName: TStringField
      FieldName = 'TypeName'
      Size = 30
    end
    object dsCategoryTreeSeqNo: TAutoIncField
      FieldName = 'SeqNo'
      ReadOnly = True
    end
    object dsCategoryTreeParentTypeCode: TStringField
      FieldName = 'ParentTypeCode'
      Size = 10
    end
    object dsCategoryTreeRemarks: TStringField
      FieldName = 'Remarks'
      Size = 255
    end
    object dsCategoryTreeCreator: TStringField
      FieldName = 'Creator'
      Size = 10
    end
    object dsCategoryTreeCreateDate: TDateTimeField
      FieldName = 'CreateDate'
    end
    object dsCategoryTreeLastModifier: TStringField
      FieldName = 'LastModifier'
      FixedChar = True
      Size = 10
    end
    object dsCategoryTreeLastModifyDate: TDateTimeField
      FieldName = 'LastModifyDate'
    end
    object dsCategoryTreeModifyTimes: TIntegerField
      FieldName = 'ModifyTimes'
    end
  end
  object dsDocuments: TADODataSet
    CacheSize = 1000
    Connection = adcSystem
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterOpen = dsDocumentsAfterOpen
    BeforeClose = dsDocumentsBeforeClose
    AfterInsert = dsDocumentsListAfterInsert
    BeforePost = dsDocumentsListBeforePost
    CommandText = 
      'SELECT '#13#10' * '#13#10'FROM'#13#10'  Documents'#13#10'WHERE'#13#10'  DocNo = :DocNo'#13#10'ORDER ' +
      'BY'#13#10'  DocNo'
    EnableBCD = False
    Parameters = <
      item
        Name = 'DocNo'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = Null
      end>
    Left = 224
    Top = 32
    object StringField1: TStringField
      DisplayLabel = 'Document No.'
      FieldName = 'DocNo'
    end
    object StringField2: TStringField
      DisplayLabel = 'Document Type'
      FieldName = 'DocType'
      Size = 10
    end
    object StringField3: TStringField
      DisplayLabel = 'Document Name'
      FieldName = 'DocName'
      Size = 30
    end
    object StringField4: TStringField
      FieldName = 'FileName'
      Size = 128
    end
    object dsDocumentsFileSize: TFloatField
      FieldName = 'FileSize'
    end
    object StringField5: TStringField
      FieldName = 'Version'
      Size = 11
    end
    object dsDocumentsOriginalExtName: TStringField
      FieldName = 'OriginalExtName'
      Size = 5
    end
    object StringField6: TStringField
      FieldName = 'Remarks'
      Size = 255
    end
    object StringField7: TStringField
      FieldName = 'Creator'
      Size = 10
    end
    object DateTimeField1: TDateTimeField
      FieldName = 'CreateDate'
    end
    object StringField8: TStringField
      FieldName = 'LastModifier'
      FixedChar = True
      Size = 10
    end
    object DateTimeField2: TDateTimeField
      FieldName = 'LastModifyDate'
    end
    object IntegerField1: TIntegerField
      FieldName = 'ModifyTimes'
    end
  end
  object dsSystemOptions: TADODataSet
    CacheSize = 1000
    Connection = adcSystem
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select * from SystemOptions'
    EnableBCD = False
    Parameters = <>
    Left = 128
    Top = 144
    object dsSystemOptionsRootPath: TStringField
      DisplayLabel = 'Root Path'
      FieldName = 'RootPath'
      Size = 255
    end
    object dsSystemOptionsPrefix: TStringField
      FieldName = 'Prefix'
      OnSetText = OnTrimSetText
      Size = 10
    end
    object dsSystemOptionsYearFormat: TStringField
      FieldName = 'YearFormat'
      Size = 4
    end
    object dsSystemOptionsMonthFormat: TStringField
      FieldName = 'MonthFormat'
      Size = 2
    end
    object dsSystemOptionsDayFormat: TStringField
      FieldName = 'DayFormat'
      Size = 2
    end
    object dsSystemOptionsNoPlace: TIntegerField
      FieldName = 'NoPlace'
    end
  end
  object srcSystemOptions: TDataSource
    DataSet = dsSystemOptions
    Left = 128
    Top = 200
  end
  object dsSearchDocuments: TADOQuery
    Connection = adcSystem
    Parameters = <>
    Left = 432
    Top = 312
  end
  object dsSystemUser: TADODataSet
    Connection = adcSystem
    CursorType = ctStatic
    CommandText = 'select * from SysUser '#13#10'Where UserId = :UserId'
    Parameters = <
      item
        Name = 'UserId'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = ' '
      end>
    Left = 40
    Top = 312
    object dsSystemUserUserId: TStringField
      FieldName = 'UserId'
      Size = 10
    end
    object dsSystemUserPassword: TStringField
      FieldName = 'Password'
      Size = 50
    end
    object dsSystemUserDescription: TStringField
      FieldName = 'Description'
      Size = 50
    end
  end
end