ffdata.dfm

Delphi 控件源码

object FFDatamodule: TFFDatamodule
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 189
  Top = 114
  Height = 498
  Width = 537
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 16
    Top = 8
  end
  object dsrcMain: TDataSource
    DataSet = qeryMain
    Left = 240
    Top = 48
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=MSDASQL.1;Password=sa;Persist Security Info=True;User I' +
      'D=root;Data Source=crf_follow'
    CursorLocation = clUseServer
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    Left = 80
    Top = 48
  end
  object xueliQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from xueli')
    Left = 152
    Top = 128
  end
  object xueliSource: TDataSource
    DataSet = xueliQuery
    Left = 240
    Top = 128
  end
  object patientDataSource: TDataSource
    Left = 240
    Top = 200
  end
  object medicaQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from medication')
    Left = 152
    Top = 272
  end
  object medicaSource: TDataSource
    DataSet = medicaQuery
    Left = 240
    Top = 272
  end
  object laboratorySource: TDataSource
    DataSet = laboratoryQuery
    Left = 240
    Top = 336
  end
  object laboratoryQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from laboratory_checking')
    Left = 152
    Top = 336
  end
  object updateMain: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 336
    Top = 48
  end
  object updatePatient: TADOQuery
    Parameters = <>
    Left = 336
    Top = 200
  end
  object updateMedica: TADOQuery
    Parameters = <>
    Left = 336
    Top = 272
  end
  object updateLaboratory: TADOQuery
    Parameters = <>
    Left = 336
    Top = 336
  end
  object qeryMain: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from patient_info')
    Left = 152
    Top = 48
  end
  object patientQuery: TADOQuery
    Parameters = <>
    Left = 152
    Top = 200
  end
end