datamodule.~dfm

来自「适合新手 绝对精品 档案管理系统 本人花钱购买来的源代」· ~DFM 代码 · 共 273 行

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 274
  Top = 157
  Height = 318
  Width = 365
  object ADOConnection: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Archives;Data Source=FLYYCS\YCS;Use Pro' +
      'cedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workst' +
      'ation ID=FLYYCS;Use Encryption for Data=False;Tag with column co' +
      'llation when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 8
  end
  object AQ_Back_Restore: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    Left = 183
    Top = 176
  end
  object AT_Class: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'Archives_Class'
    Left = 32
    Top = 64
    object AT_ClassClass_ID: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'Class_ID'
    end
    object AT_ClassClass_Name: TStringField
      FieldName = 'Class_Name'
      FixedChar = True
    end
    object AT_ClassClass_Branch: TStringField
      DisplayWidth = 20
      FieldName = 'Class_Branch'
      FixedChar = True
      Size = 40
    end
    object AT_ClassClass_Memo: TStringField
      DisplayWidth = 40
      FieldName = 'Class_Memo'
      FixedChar = True
      Size = 100
    end
    object AT_ClassArchives_SPerson: TStringField
      FieldName = 'Archives_SPerson'
      FixedChar = True
      Size = 10
    end
    object AT_ClassArchives_SDate: TDateTimeField
      FieldName = 'Archives_SDate'
    end
    object AT_ClassArchives_MPerson: TStringField
      FieldName = 'Archives_MPerson'
      FixedChar = True
      Size = 10
    end
    object AT_ClassArchives_MDate: TDateTimeField
      FieldName = 'Archives_MDate'
    end
  end
  object DS_Class: TDataSource
    DataSet = AT_Class
    Enabled = False
    OnStateChange = DS_ClassStateChange
    OnDataChange = DS_ClassDataChange
    Left = 32
    Top = 120
  end
  object AT_Tank: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'Archives_Tank'
    Left = 104
    Top = 64
    object AT_TankTank_ID: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'Tank_ID'
    end
    object AT_TankTank_Memo: TStringField
      FieldName = 'Tank_Memo'
      FixedChar = True
      Size = 10
    end
    object AT_TankTank_Name: TStringField
      FieldName = 'Tank_Name'
      FixedChar = True
    end
  end
  object DS_Tank: TDataSource
    DataSet = AT_Tank
    Enabled = False
    OnStateChange = DS_TankStateChange
    OnDataChange = DS_TankDataChange
    Left = 104
    Top = 120
  end
  object AQ_Manage: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM Archives_Content')
    Left = 104
    Top = 176
    object AQ_ManageContent_State: TStringField
      FieldName = 'Content_State'
      FixedChar = True
      Size = 10
    end
    object AQ_ManageContent_ID: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'Content_ID'
    end
    object AQ_ManageContent_Name: TStringField
      FieldName = 'Content_Name'
      FixedChar = True
    end
    object AQ_ManageContent_Person: TStringField
      FieldName = 'Content_Person'
      FixedChar = True
      Size = 10
    end
    object AQ_ManageContent_Num: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'Content_Num'
    end
    object AQ_ManageContent_Tank: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'Content_Tank'
    end
    object AQ_ManageContent_Class: TStringField
      FieldName = 'Content_Class'
      FixedChar = True
    end
    object AQ_ManageContent_SPerson: TStringField
      FieldName = 'Content_SPerson'
      FixedChar = True
      Size = 10
    end
    object AQ_ManageContent_STime: TDateTimeField
      FieldName = 'Content_STime'
    end
    object AQ_ManageContent_MPerson: TStringField
      FieldName = 'Content_MPerson'
      FixedChar = True
      Size = 10
    end
    object AQ_ManageContent_MTime: TDateTimeField
      FieldName = 'Content_MTime'
    end
    object AQ_ManageContent_TNum: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'Content_TNum'
    end
    object AQ_ManageContent_PNum: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'Content_PNum'
    end
    object AQ_ManageContent_ANum: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'Content_ANum'
    end
  end
  object DS_Manage: TDataSource
    DataSet = AQ_Manage
    Enabled = False
    OnStateChange = DS_ManageStateChange
    OnDataChange = DS_ManageDataChange
    Left = 104
    Top = 232
  end
  object AT_Borrow: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'Archives_Borrow'
    Left = 179
    Top = 64
    object AT_BorrowBorrow_ID: TIntegerField
      Alignment = taCenter
      FieldName = 'Borrow_ID'
    end
    object AT_BorrowBorrow_Name: TStringField
      FieldName = 'Borrow_Name'
      FixedChar = True
    end
    object AT_BorrowBorrow_Person: TStringField
      FieldName = 'Borrow_Person'
      FixedChar = True
      Size = 10
    end
    object AT_BorrowBorrow_Date: TDateTimeField
      FieldName = 'Borrow_Date'
    end
    object AT_BorrowBorrow_Memo: TStringField
      FieldName = 'Borrow_Memo'
      FixedChar = True
      Size = 50
    end
  end
  object DS_Borrow: TDataSource
    DataSet = AT_Borrow
    Enabled = False
    OnStateChange = DS_BorrowStateChange
    OnDataChange = DS_BorrowDataChange
    Left = 179
    Top = 120
  end
  object AT_Return: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'Archives_Return'
    Left = 259
    Top = 64
    object AT_ReturnReturn_ID: TIntegerField
      Alignment = taCenter
      FieldName = 'Return_ID'
    end
    object AT_ReturnReturn_Name: TStringField
      FieldName = 'Return_Name'
      FixedChar = True
    end
    object AT_ReturnReturn_Person: TStringField
      FieldName = 'Return_Person'
      FixedChar = True
      Size = 10
    end
    object AT_ReturnReturn_Date: TDateTimeField
      FieldName = 'Return_Date'
    end
    object AT_ReturnReturn_Memo: TStringField
      FieldName = 'Return_Memo'
      FixedChar = True
      Size = 50
    end
  end
  object DS_Return: TDataSource
    DataSet = AT_Return
    Enabled = False
    OnStateChange = DS_ReturnStateChange
    OnDataChange = DS_ReturnDataChange
    Left = 259
    Top = 120
  end
  object AT_Count: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'Archives_Count'
    Left = 35
    Top = 176
    object AT_CountCount_Name: TStringField
      FieldName = 'Count_Name'
      FixedChar = True
    end
    object AT_CountCount_Value: TIntegerField
      FieldName = 'Count_Value'
    end
  end
  object DS_Count: TDataSource
    DataSet = AT_Count
    Left = 35
    Top = 232
  end
end