maindm.dfm

醫院管理 還不錯 醫院管理 還不錯 醫院管理 還不錯

object dmMain: TdmMain
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 152
  Top = 258
  Height = 480
  Width = 696
  object cnnDB: TADOConnection
    ConnectOptions = coAsyncConnect
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 48
    Top = 16
  end
  object qrySQLPlus: TADOQuery
    Connection = cnnDB
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      '')
    Left = 48
    Top = 120
  end
  object DataCenter: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=lovefanyou;Persist Security Info=Tr' +
      'ue;User ID=sa;Initial Catalog=DataCenter;Data Source=.'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 128
    Top = 16
  end
  object qrySend: TADOQuery
    Connection = DataCenter
    Parameters = <>
    Prepared = True
    Left = 128
    Top = 120
  end
  object qryClientInfo: TADOQuery
    CacheSize = 1500
    Connection = cnnDB
    CursorType = ctStatic
    Parameters = <>
    Left = 40
    Top = 192
  end
  object qryExam: TADOQuery
    CacheSize = 1500
    Connection = cnnDB
    CursorType = ctStatic
    Parameters = <>
    Left = 40
    Top = 272
    object qryExamId: TAutoIncField
      FieldName = 'Id'
    end
    object qryExamEmployeeId: TIntegerField
      FieldName = 'EmployeeId'
    end
    object qryExamExamDate: TDateTimeField
      FieldName = 'ExamDate'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object qryExamExamTime: TDateTimeField
      FieldName = 'ExamTime'
      DisplayFormat = 'hh:mm:ss'
    end
    object qryExamKind: TWideStringField
      FieldName = 'Kind'
      ReadOnly = True
      Size = 255
    end
    object qryExamResult: TWideStringField
      FieldName = 'Result'
      ReadOnly = True
      Size = 255
    end
    object qryExamExamRemark: TWideStringField
      FieldName = 'ExamRemark'
      Size = 255
    end
    object qryExamExamOpinon: TWideStringField
      FieldName = 'ExamOpinon'
      Size = 50
    end
    object qryExamOptId: TIntegerField
      FieldName = 'OptId'
    end
  end
  object qryMedical: TADOQuery
    CacheSize = 1500
    Connection = cnnDB
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Medical')
    Left = 112
    Top = 280
  end
end