datamodule.~dfm

该文件主要应用于档案资料管理

object DM: TDM
  OldCreateOrder = True
  Left = 136
  Top = 110
  Height = 359
  Width = 343
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=.\Arc' +
      'hives.mdb;Mode=Share Deny None;Extended Properties="";Persist Se' +
      'curity Info=False;Jet OLEDB:System database="";Jet OLEDB:Registr' +
      'y Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5' +
      ';Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk' +
      ' Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Databa' +
      'se Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:' +
      'Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=Fa' +
      'lse;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP' +
      '=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 96
    Top = 16
  end
  object A_Class: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Archives_Class'
    Left = 32
    Top = 80
    object A_ClassClass_ID: TSmallintField
      FieldName = 'Class_ID'
    end
    object A_ClassClass_Name: TWideStringField
      FieldName = 'Class_Name'
    end
    object A_ClassClass_Branch: TWideStringField
      FieldName = 'Class_Branch'
      Size = 30
    end
    object A_ClassClass_Memo: TWideStringField
      FieldName = 'Class_Memo'
      Size = 100
    end
    object A_ClassArchives_SPerson: TWideStringField
      FieldName = 'Archives_SPerson'
      Size = 10
    end
    object A_ClassArchives_STime: TDateTimeField
      FieldName = 'Archives_STime'
    end
    object A_ClassArchives_MPerson: TWideStringField
      FieldName = 'Archives_MPerson'
      Size = 10
    end
    object A_ClassArchives_MTime: TDateTimeField
      FieldName = 'Archives_MTime'
    end
  end
  object DS_Class: TDataSource
    DataSet = A_Class
    Left = 32
    Top = 136
  end
  object DS_Tank: TDataSource
    DataSet = A_Tank
    Left = 88
    Top = 136
  end
  object DS_Borrow: TDataSource
    DataSet = A_Borrow
    Left = 144
    Top = 136
  end
  object DS_Return: TDataSource
    DataSet = A_Return
    Left = 208
    Top = 136
  end
  object A_Tank: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Archives_Tank'
    Left = 88
    Top = 80
    object A_TankTank_ID: TIntegerField
      FieldName = 'Tank_ID'
    end
    object A_TankTank_Name: TWideStringField
      FieldName = 'Tank_Name'
    end
    object A_TankTank_Memo: TWideStringField
      FieldName = 'Tank_Memo'
      Size = 50
    end
  end
  object A_Borrow: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Archives_Borrow'
    Left = 144
    Top = 80
    object A_BorrowBorrow_ID: TIntegerField
      FieldName = 'Borrow_ID'
    end
    object A_BorrowBorrow_Name: TWideStringField
      FieldName = 'Borrow_Name'
    end
    object A_BorrowBorrow_Person: TWideStringField
      FieldName = 'Borrow_Person'
      Size = 10
    end
    object A_BorrowBorrow_Date: TDateTimeField
      FieldName = 'Borrow_Date'
    end
    object A_BorrowBorrow_Memo: TWideStringField
      FieldName = 'Borrow_Memo'
      Size = 50
    end
  end
  object A_Return: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Archives_Return'
    Left = 208
    Top = 80
    object A_ReturnReturn_ID: TIntegerField
      FieldName = 'Return_ID'
    end
    object A_ReturnReturn_Name: TWideStringField
      FieldName = 'Return_Name'
    end
    object A_ReturnReturn_Person: TWideStringField
      FieldName = 'Return_Person'
      Size = 10
    end
    object A_ReturnReturn_Date: TDateTimeField
      FieldName = 'Return_Date'
    end
    object A_ReturnReturn_Memo: TWideStringField
      FieldName = 'Return_Memo'
      Size = 50
    end
  end
  object A_Count: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Archives_Count'
    Left = 272
    Top = 80
    object A_CountCount_ID: TWideStringField
      FieldName = 'Count_ID'
    end
    object A_CountCount_Value: TSmallintField
      FieldName = 'Count_Value'
    end
  end
  object DS_Count: TDataSource
    DataSet = A_Count
    Left = 272
    Top = 136
  end
  object DS_Manage: TDataSource
    AutoEdit = False
    DataSet = AQ_Manage
    Left = 144
    Top = 264
  end
  object AQ_Manage: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Archives_Content')
    Left = 144
    Top = 200
    object AQ_ManageContent_ID: TSmallintField
      FieldName = 'Content_ID'
    end
    object AQ_ManageContent_State: TWideStringField
      FieldName = 'Content_State'
      Size = 10
    end
    object AQ_ManageContent_Name: TWideStringField
      FieldName = 'Content_Name'
    end
    object AQ_ManageContent_Person: TWideStringField
      FieldName = 'Content_Person'
      Size = 10
    end
    object AQ_ManageContent_Num: TSmallintField
      FieldName = 'Content_Num'
    end
    object AQ_ManageContent_Class: TWideStringField
      FieldName = 'Content_Class'
    end
    object AQ_ManageContent_Tank: TSmallintField
      FieldName = 'Content_Tank'
    end
    object AQ_ManageContent_SPerson: TWideStringField
      FieldName = 'Content_SPerson'
      Size = 10
    end
    object AQ_ManageContent_STime: TDateTimeField
      FieldName = 'Content_STime'
    end
    object AQ_ManageContent_MPerson: TWideStringField
      FieldName = 'Content_MPerson'
      Size = 10
    end
    object AQ_ManageContent_MTime: TDateTimeField
      FieldName = 'Content_MTime'
    end
    object AQ_ManageContent_TNum: TIntegerField
      FieldName = 'Content_TNum'
    end
    object AQ_ManageContent_PNum: TIntegerField
      FieldName = 'Content_PNum'
    end
    object AQ_ManageContent_ANum: TIntegerField
      FieldName = 'Content_ANum'
    end
  end
  object DataSource9: TDataSource
    AutoEdit = False
    DataSet = ADOQuery1
    Left = 208
    Top = 264
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 208
    Top = 200
  end
  object A_User: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Archives_User'
    Left = 32
    Top = 200
    object A_UserUser_ID: TIntegerField
      FieldName = 'User_ID'
    end
    object A_UserUser_Name: TWideStringField
      FieldName = 'User_Name'
    end
    object A_UserUser_Password: TIntegerField
      FieldName = 'User_Password'
    end
  end
  object DS_User: TDataSource
    DataSet = A_User
    Left = 32
    Top = 264
  end
  object ContentRP: TRvProject
    Engine = RvSystem1
    ProjectFile = '.\Content.rav'
    Left = 272
    Top = 200
  end
  object ContentDSC: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = A_Content
    Left = 272
    Top = 264
  end
  object RvSystem1: TRvSystem
    TitleSetup = 'Output Options'
    TitleStatus = 'Report Status'
    TitlePreview = 'Report Preview'
    SystemSetups = [ssAllowCopies, ssAllowCollate, ssAllowDuplex, ssAllowDestPreview, ssAllowDestPrinter, ssAllowDestFile, ssAllowPrinterSetup, ssAllowPreviewSetup]
    SystemFiler.StatusFormat = 'Generating page %p'
    SystemPreview.FormState = wsMaximized
    SystemPreview.ZoomFactor = 100.000000000000000000
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = 'Printing page %p'
    SystemPrinter.Title = 'ReportPrinter Report'
    SystemPrinter.UnitsFactor = 1.000000000000000000
    Left = 216
    Top = 16
  end
  object A_Content: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Archives_Content'
    Left = 88
    Top = 200
    object A_ContentContent_ID: TSmallintField
      FieldName = 'Content_ID'
    end
    object A_ContentContent_State: TWideStringField
      FieldName = 'Content_State'
      Size = 10
    end
    object A_ContentContent_Name: TWideStringField
      FieldName = 'Content_Name'
    end
    object A_ContentContent_Person: TWideStringField
      FieldName = 'Content_Person'
      Size = 10
    end
    object A_ContentContent_Num: TSmallintField
      FieldName = 'Content_Num'
    end
    object A_ContentContent_Class: TWideStringField
      FieldName = 'Content_Class'
    end
    object A_ContentContent_Tank: TSmallintField
      FieldName = 'Content_Tank'
    end
    object A_ContentContent_SPerson: TWideStringField
      FieldName = 'Content_SPerson'
      Size = 10
    end
    object A_ContentContent_STime: TDateTimeField
      FieldName = 'Content_STime'
    end
    object A_ContentContent_MPerson: TWideStringField
      FieldName = 'Content_MPerson'
      Size = 10
    end
    object A_ContentContent_MTime: TDateTimeField
      FieldName = 'Content_MTime'
    end
    object A_ContentContent_TNum: TIntegerField
      FieldName = 'Content_TNum'
    end
    object A_ContentContent_PNum: TIntegerField
      FieldName = 'Content_PNum'
    end
    object A_ContentContent_ANum: TIntegerField
      FieldName = 'Content_ANum'
    end
  end
  object DS_Content: TDataSource
    DataSet = A_Content
    Left = 88
    Top = 264
  end
end