datamodule.~dfm

很经典的数据库代码

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 237
  Top = 140
  Height = 342
  Width = 453
  object ADOConnection: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=WSalary;Data Source=FLYYCS\YCS'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 30
    Top = 15
  end
  object AQ_Atten: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM WSalary_Attendance'
      'ORDER BY Atten_Time ASC')
    Left = 30
    Top = 71
    object AQ_AttenAtten_ID: TIntegerField
      FieldName = 'Atten_ID'
    end
    object AQ_AttenAtten_PID: TIntegerField
      FieldName = 'Atten_PID'
    end
    object AQ_AttenAtten_In_Out: TStringField
      Alignment = taCenter
      FieldName = 'Atten_In_Out'
      Size = 1
    end
    object AQ_AttenAtten_Time: TDateTimeField
      Alignment = taCenter
      FieldName = 'Atten_Time'
    end
    object AQ_AttenPID_Name: TStringField
      Alignment = taCenter
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'PID_Name'
      LookupDataSet = AT_Employee
      LookupKeyFields = 'Employee_ID'
      LookupResultField = 'Employee_Name'
      KeyFields = 'Atten_PID'
      Lookup = True
    end
  end
  object AQ_Back_Restore: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    Left = 197
    Top = 190
  end
  object AT_Employee: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'Person_Employee'
    Left = 109
    Top = 190
    object AT_EmployeeEmployee_ID: TIntegerField
      FieldName = 'Employee_ID'
    end
    object AT_EmployeeEmployee_Name: TStringField
      FieldName = 'Employee_Name'
      FixedChar = True
      Size = 10
    end
  end
  object DS_Employee: TDataSource
    DataSet = AQ_Employee
    Left = 30
    Top = 246
  end
  object DS_Atten: TDataSource
    DataSet = AQ_Atten
    Left = 30
    Top = 127
  end
  object AQ_Employee: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT Employee_ID,Employee_Name,Employee_Branch'
      'FROM Person_Employee')
    Left = 30
    Top = 190
    object AQ_EmployeeEmployee_ID: TIntegerField
      FieldName = 'Employee_ID'
    end
    object AQ_EmployeeEmployee_Name: TStringField
      Alignment = taCenter
      DisplayWidth = 12
      FieldName = 'Employee_Name'
      FixedChar = True
      Size = 10
    end
    object AQ_EmployeeEmployee_Branch: TIntegerField
      Alignment = taCenter
      DisplayWidth = 13
      FieldName = 'Employee_Branch'
    end
  end
  object AQ_OTime: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM WSalary_OTime')
    Left = 92
    Top = 71
    object AQ_OTimeOTime_ID: TIntegerField
      FieldName = 'OTime_ID'
    end
    object AQ_OTimeOTime_PID: TIntegerField
      FieldName = 'OTime_PID'
    end
    object AQ_OTimeOTime_Time: TIntegerField
      FieldName = 'OTime_Time'
    end
    object AQ_OTimeOTime_Date: TDateTimeField
      FieldName = 'OTime_Date'
    end
    object AQ_OTimePID_Name: TStringField
      FieldKind = fkLookup
      FieldName = 'PID_Name'
      LookupDataSet = AT_Employee
      LookupKeyFields = 'Employee_ID'
      LookupResultField = 'Employee_Name'
      KeyFields = 'OTime_PID'
      Lookup = True
    end
  end
  object DS_OTime: TDataSource
    DataSet = AQ_OTime
    Left = 92
    Top = 127
  end
  object AQ_Evec: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    OnCalcFields = AQ_EvecCalcFields
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM WSalary_Evection')
    Left = 153
    Top = 71
    object AQ_EvecEvection_ID: TIntegerField
      FieldName = 'Evection_ID'
    end
    object AQ_EvecEvection_PID: TIntegerField
      FieldName = 'Evection_PID'
    end
    object AQ_EvecEvection_TStart: TDateTimeField
      FieldName = 'Evection_TStart'
    end
    object AQ_EvecEvection_TEnd: TDateTimeField
      FieldName = 'Evection_TEnd'
    end
    object AQ_EvecEvection_Text: TStringField
      FieldName = 'Evection_Text'
      Size = 50
    end
    object AQ_EvecPID_Name: TStringField
      FieldKind = fkLookup
      FieldName = 'PID_Name'
      LookupDataSet = AT_Employee
      LookupKeyFields = 'Employee_ID'
      LookupResultField = 'Employee_Name'
      KeyFields = 'Evection_PID'
      Lookup = True
    end
    object AQ_EvecEvection_Time: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'Evection_Time'
      Calculated = True
    end
  end
  object DS_Evec: TDataSource
    DataSet = AQ_Evec
    Left = 153
    Top = 127
  end
  object AQ_Leave: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    OnCalcFields = AQ_LeaveCalcFields
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM WSalary_Leave')
    Left = 217
    Top = 71
    object AQ_LeaveLeave_ID: TIntegerField
      FieldName = 'Leave_ID'
    end
    object AQ_LeaveLeave_PID: TIntegerField
      FieldName = 'Leave_PID'
    end
    object AQ_LeaveLeave_DStart: TDateTimeField
      FieldName = 'Leave_DStart'
    end
    object AQ_LeaveLeave_DEnd: TDateTimeField
      FieldName = 'Leave_DEnd'
    end
    object AQ_LeaveLeave_Text: TStringField
      FieldName = 'Leave_Text'
      Size = 50
    end
    object AQ_LeavePID_Name: TStringField
      FieldKind = fkLookup
      FieldName = 'PID_Name'
      LookupDataSet = AT_Employee
      LookupKeyFields = 'Employee_ID'
      LookupResultField = 'Employee_Name'
      KeyFields = 'Leave_PID'
      Lookup = True
    end
    object AQ_LeaveLeave_Time: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'Leave_Time'
      Calculated = True
    end
  end
  object DS_Leave: TDataSource
    DataSet = AQ_Leave
    Left = 217
    Top = 127
  end
  object AQ_Stat: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM WSalary_Stat')
    Left = 277
    Top = 71
    object AQ_StatStat_ID: TIntegerField
      FieldName = 'Stat_ID'
    end
    object AQ_StatStat_PID: TIntegerField
      FieldName = 'Stat_PID'
    end
    object AQ_StatStat_YMonth: TDateTimeField
      FieldName = 'Stat_YMonth'
    end
    object AQ_StatStat_HWork: TIntegerField
      FieldName = 'Stat_HWork'
    end
    object AQ_StatStat_HOvertime: TIntegerField
      FieldName = 'Stat_HOvertime'
    end
    object AQ_StatStat_DLeave: TIntegerField
      FieldName = 'Stat_DLeave'
    end
    object AQ_StatStat_DEvection: TIntegerField
      FieldName = 'Stat_DEvection'
    end
    object AQ_StatStat_TLate: TIntegerField
      FieldName = 'Stat_TLate'
    end
    object AQ_StatStat_TEarly: TIntegerField
      FieldName = 'Stat_TEarly'
    end
    object AQ_StatStat_TAbsent: TIntegerField
      FieldName = 'Stat_TAbsent'
    end
    object AQ_StatPID_Name: TStringField
      FieldKind = fkLookup
      FieldName = 'PID_Name'
      LookupDataSet = AT_Employee
      LookupKeyFields = 'Employee_ID'
      LookupResultField = 'Employee_Name'
      KeyFields = 'Stat_PID'
      Lookup = True
    end
  end
  object DS_Stat: TDataSource
    DataSet = AQ_Stat
    Left = 277
    Top = 127
  end
  object AQ_Salary: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM WSalary_Salary')
    Left = 333
    Top = 71
    object AQ_SalarySalary_ID: TIntegerField
      FieldName = 'Salary_ID'
    end
    object AQ_SalarySalary_PID: TIntegerField
      FieldName = 'Salary_PID'
    end
    object AQ_SalarySalary_Month: TDateTimeField
      FieldName = 'Salary_Month'
    end
    object AQ_SalarySalary_PWork: TFloatField
      FieldName = 'Salary_PWork'
    end
    object AQ_SalarySalary_POTime: TFloatField
      FieldName = 'Salary_POTime'
    end
    object AQ_SalarySalary_Bonus: TFloatField
      FieldName = 'Salary_Bonus'
    end
    object AQ_SalarySalary_PEvect: TFloatField
      FieldName = 'Salary_PEvect'
    end
    object AQ_SalarySalary_LateEarly: TFloatField
      FieldName = 'Salary_LateEarly'
    end
    object AQ_SalarySalary_DAbsent: TFloatField
      FieldName = 'Salary_DAbsent'
    end
    object AQ_SalarySalary_DInsure: TFloatField
      FieldName = 'Salary_DInsure'
    end
    object AQ_SalarySalary_PTotal: TFloatField
      FieldName = 'Salary_PTotal'
    end
    object AQ_SalaryPID_Name: TStringField
      FieldKind = fkLookup
      FieldName = 'PID_Name'
      LookupDataSet = AT_Employee
      LookupKeyFields = 'Employee_ID'
      LookupResultField = 'Employee_Name'
      KeyFields = 'Salary_PID'
      Lookup = True
    end
    object AQ_SalarySalary_Welfare: TFloatField
      FieldName = 'Salary_Welfare'
    end
    object AQ_SalarySalary_Allow: TFloatField
      FieldName = 'Salary_Allow'
    end
  end
  object DS_Salary: TDataSource
    DataSet = AQ_Salary
    Left = 333
    Top = 127
  end
  object AT_Type: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'WSalary_Type'
    Left = 109
    Top = 238
    object AT_TypeType_ID: TIntegerField
      FieldName = 'Type_ID'
    end
    object AT_TypeType_Name: TStringField
      FieldName = 'Type_Name'
      Size = 30
    end
  end
  object DS_SOther: TDataSource
    DataSet = AQ_SOther
    Left = 392
    Top = 127
  end
  object AT_Count: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'WSalary_Count'
    Left = 277
    Top = 190
    object AT_CountCount_Name: TStringField
      FieldName = 'Count_Name'
    end
    object AT_CountCount_Value: TIntegerField
      FieldName = 'Count_Value'
    end
  end
  object DS_Count: TDataSource
    DataSet = AT_Count
    Left = 278
    Top = 246
  end
  object DS_WSet: TDataSource
    DataSet = AQ_WSet
    Left = 334
    Top = 246
  end
  object AQ_WSet: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM WSalary_WSet')
    Left = 334
    Top = 191
    object AQ_WSetWSet_ID: TIntegerField
      FieldName = 'WSet_ID'
    end
    object AQ_WSetWSet_Date: TDateTimeField
      FieldName = 'WSet_Date'
    end
  end
  object AQ_SOther: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM WSalary_SOther')
    Left = 392
    Top = 72
    object AQ_SOtherSOther_ID: TIntegerField
      FieldName = 'SOther_ID'
    end
    object AQ_SOtherSOther_PID: TIntegerField
      FieldName = 'SOther_PID'
    end
    object AQ_SOtherSOther_YMonth: TDateTimeField
      FieldName = 'SOther_YMonth'
    end
    object AQ_SOtherSOther_Type: TIntegerField
      FieldName = 'SOther_Type'
    end
    object AQ_SOtherSOther_Money: TFloatField
      FieldName = 'SOther_Money'
    end
    object AQ_SOtherSOther_Text: TStringField
      FieldName = 'SOther_Text'
      Size = 30
    end
    object AQ_SOtherPID_Name: TStringField
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'PID_Name'
      LookupDataSet = AT_Employee
      LookupKeyFields = 'Employee_ID'
      LookupResultField = 'Employee_Name'
      KeyFields = 'SOther_PID'
      Lookup = True
    end
    object AQ_SOtherType_Name: TStringField
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'Type_Name'
      LookupDataSet = AT_Type
      LookupKeyFields = 'Type_ID'
      LookupResultField = 'Type_Name'
      KeyFields = 'SOther_Type'
      Lookup = True
    end
  end
end