data.~dfm

来自「这是一个用Delphi写的工资管理系统」· ~DFM 代码 · 共 70 行

object mydm: Tmydm
  OldCreateOrder = False
  Left = 513
  Top = 150
  Height = 233
  Width = 397
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=salary;Data Source='#37101#20255#26480
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 16
  end
  object userQuery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from users;')
    Left = 128
    Top = 16
  end
  object departmentQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from department;')
    Left = 128
    Top = 72
  end
  object personQuery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from person;')
    Left = 40
    Top = 72
  end
  object extralQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from extral;')
    Left = 208
    Top = 72
  end
  object departmentSource: TDataSource
    DataSet = departmentQuery
    Left = 128
    Top = 128
  end
  object personSource: TDataSource
    DataSet = personQuery
    Left = 40
    Top = 128
  end
  object extralSource: TDataSource
    DataSet = extralQuery
    Left = 208
    Top = 128
  end
end