u_datamodule.dfm

是一小型门诊挂号软件

object f_dm: Tf_dm
  OldCreateOrder = False
  Left = 200
  Top = 130
  Height = 373
  Width = 597
  object Database1: TDatabase
    AliasName = 'registerODBC'
    Connected = True
    DatabaseName = 'database'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 24
  end
  object Q_login: TQuery
    DatabaseName = 'database'
    SQL.Strings = (
      'select '#26435#38480' from user'
      'where '#29992#25143#21517'=:user and '#23494#30721'=:password')
    Left = 19
    Top = 48
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'user'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'password'
        ParamType = ptUnknown
      end>
  end
  object q: TQuery
    DatabaseName = 'database'
    Left = 18
    Top = 104
  end
  object UQ_register: TUpdateSQL
    ModifySQL.Strings = (
      'update registers'
      '  set '#21307#30103#35777'ID=:'#21307#30103#35777'ID,'#31185#23460'=:'#31185#23460','#25346#21495#31867#21035'=:'#25346#21495#31867#21035
      '    ,'#26085#26399'=:'#26085#26399
      '  where id=:ID')
    InsertSQL.Strings = (
      
        'insert into registers (ID,'#21307#30103#35777'ID,'#31185#23460','#25346#21495#31867#21035','#26085#26399') values(:ID,:'#21307#30103#35777'ID,:'#31185 +
        #23460',:'#25346#21495#31867#21035',:'#26085#26399')')
    DeleteSQL.Strings = (
      'delete from registers where ID=:ID')
    Left = 140
    Top = 6
  end
  object DS_register: TDataSource
    DataSet = T_register
    Left = 189
    Top = 114
  end
  object T_register: TTable
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'database'
    TableName = 'registers'
    Left = 125
    Top = 122
  end
  object T_count: TTable
    DatabaseName = 'database'
    TableName = 'count'
    Left = 17
    Top = 173
  end
  object T_type: TTable
    DatabaseName = 'database'
    Exclusive = True
    TableName = 'register_type'
    Left = 122
    Top = 179
  end
  object DS_type: TDataSource
    DataSet = T_type
    Left = 186
    Top = 179
  end
  object T_clinic: TTable
    DatabaseName = 'database'
    TableName = 'clinic'
    Left = 128
    Top = 64
  end
  object DS_clinic: TDataSource
    DataSet = T_clinic
    Left = 184
    Top = 64
  end
  object T_medical_Card: TTable
    DatabaseName = 'database'
    TableName = 'medical_card'
    Left = 120
    Top = 248
  end
  object DS_medical_Card: TDataSource
    DataSet = T_medical_Card
    Left = 192
    Top = 248
  end
  object T_thing: TTable
    DatabaseName = 'database'
    IndexFieldNames = 'ID'
    MasterFields = 'ID'
    MasterSource = DS_medical_Card
    TableName = 'thing'
    Left = 296
    Top = 159
  end
  object DS_thing: TDataSource
    DataSet = T_thing
    Left = 344
    Top = 158
  end
  object T_X: TTable
    DatabaseName = 'database'
    IndexFieldNames = 'ID'
    MasterFields = 'ID'
    MasterSource = DS_medical_Card
    TableName = 'X'
    Left = 296
    Top = 108
  end
  object D_X: TDataSource
    DataSet = T_X
    Left = 344
    Top = 110
  end
  object Q_sick: TQuery
    DatabaseName = 'database'
    SQL.Strings = (
      'select *'
      '  from medical_card as m,X,Thing as t'
      '  where  m.id=x.id and m.id=t.id and'
      '     m.id=:sickID')
    Left = 296
    Top = 64
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'sickID'
        ParamType = ptUnknown
      end>
  end
  object DS_sick: TDataSource
    DataSet = Q_sick
    Left = 336
    Top = 64
  end
  object UQ_edit: TUpdateSQL
    ModifySQL.Strings = (
      'update medical_card as m,x,Thing as t'
      '  set m.'#22995#21517'=:'#22995#21517',m.'#24615#21035'=:'#24615#21035',m.'#24180#40836'=:'#24180#40836','
      '      m.'#34880#22411'=:'#34880#22411',m.'#30005#35805#21495#30721'=:'#30005#35805#21495#30721','
      '      m.'#32844#19994'=:'#32844#19994',m.'#21333#20301#22320#22336'=:'#21333#20301#22320#22336','
      '      x.'#24773#20917'=:'#24773#20917',t.'#21517#31216'=:'#21517#31216
      '  where m.id=:ID and x.id=m.id and t.id=m.id'
      '')
    Left = 296
    Top = 8
  end
  object Q_find: TQuery
    SQL.Strings = (
      'select *'
      '  from medical_card as m,X,Thing as t'
      '  where  m.id=x.id and m.id=t.id and'
      '     m.id=:ID')
    Left = 344
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID'
        ParamType = ptUnknown
      end>
  end
  object Q_clinic2Sick: TQuery
    DatabaseName = 'database'
    SQL.Strings = (
      'select c.'#21517#31216',num'
      'from clinic as c,'
      '('
      'SELECT r.'#31185#23460',count(r.'#31185#23460') as num'
      'FROM registers as r '
      'group by r.'#31185#23460
      ') as r'
      'where c.id=r.'#31185#23460)
    Left = 408
    Top = 16
  end
  object DS_clinic2Sick: TDataSource
    DataSet = Q_clinic2Sick
    Left = 440
    Top = 16
  end
  object DS_user: TDataSource
    DataSet = T_user
    Left = 544
    Top = 16
  end
  object T_user: TTable
    DatabaseName = 'database'
    TableName = 'user'
    Left = 504
    Top = 16
  end
  object UQ_user: TUpdateSQL
    ModifySQL.Strings = (
      'update user'
      ' set '#23494#30721'=:password,'#26435#38480'=:authority'
      ' where '#29992#25143#21517'=:name')
    InsertSQL.Strings = (
      'insert into user'
      'values(:name,:password,:authority)')
    DeleteSQL.Strings = (
      'delete from user where '#29992#25143#21517'=:name')
    Left = 512
    Top = 72
  end
end