unit_server_pacs_register.dfm

a program written by delphi about middle layer

object jk_server_pacs_register: Tjk_server_pacs_register
  OldCreateOrder = False
  Pooled = False
  Left = 444
  Top = 191
  Height = 413
  Width = 408
  object adsChis: TADOConnection
    Connected = True
    ConnectionString = 
      'FILE NAME=C:\Program Files\Common Files\System\Ole DB\Data Links' +
      '\chis.udl'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 56
    Top = 56
  end
  object adq_ip: TADOQuery
    Connection = adsChis
    Parameters = <>
    SQL.Strings = (
      'select * from jk_param')
    Left = 152
    Top = 56
  end
  object dsp_ip: TDataSetProvider
    DataSet = adq_ip
    Constraints = True
    Left = 248
    Top = 56
  end
  object adq_register: TADOQuery
    Connection = adsChis
    Parameters = <
      item
        Name = 'chkid'
        DataType = ftInteger
        Size = -1
        Value = 0
      end>
    SQL.Strings = (
      'declare @part varchar(200)'
      'declare @chkid int'
      ''
      'select @chkid = :chkid'
      ''
      'select @part = '#39#39
      'select @part = @part + m.pacs_item_code + '#39'^'#39
      
        '  from (select a.check_id, a.subject_code, c.item_code, c.pacs_i' +
        'tem_code '
      #9#9'from (select * from jk_item where check_id = @chkid) a '
      #9#9#9#9'inner join (select f.item_code, h.pacs_item_code '
      
        #9#9#9#9#9#9#9#9'from jk_zd_subject e inner join jk_zd_subject_detail f o' +
        'n e.code = f.subject_code '
      #9#9#9#9#9#9#9#9#9#9#9#9#9'inner join jk_zd_item h on f.item_code = h.code'
      
        #9#9#9#9#9#9#9'where e.class = 2 and h.pacs_item_code is not null) c on ' +
        'a.item_code = c.item_code) m'
      'select @part = left(@part,len(@part)-1)'
      ''
      
        'select @part part, a.occupy_date, a.check_card_no, a.check_id, b' +
        '.member_id, b.name, b.sex, b.birthday, b.idcard, b.english_name'
      
        '  from (select occupy_date, check_card_no, check_id, member_id f' +
        'rom jk_visit_list where check_id = @chkid) a '
      
        #9#9#9#9#9'inner join jk_member_basic_infor b on a.member_id = b.membe' +
        'r_id')
    Left = 152
    Top = 128
  end
  object dsp_register: TDataSetProvider
    DataSet = adq_register
    Constraints = True
    Left = 248
    Top = 128
  end
  object dsp_register_list: TDataSetProvider
    DataSet = adq_register_list
    Constraints = True
    Left = 250
    Top = 201
  end
  object adq_register_update: TADOQuery
    Connection = adsChis
    Parameters = <>
    Left = 155
    Top = 288
  end
  object adq_register_list: TADOQuery
    Connection = adsChis
    Parameters = <>
    SQL.Strings = (
      'select b.* '
      '  from jk_pacs_trans b'
      
        '             inner join (select * from jk_visit_list where occup' +
        'y_date = convert(varchar(20),getdate(),101)) a  on a.check_id = ' +
        'b.check_id'
      'where trans_status = 0'
      ' order by b.trans_id')
    Left = 152
    Top = 200
    object adq_register_listtrans_id: TAutoIncField
      FieldName = 'trans_id'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      ReadOnly = True
    end
    object adq_register_listcheck_id: TIntegerField
      FieldName = 'check_id'
      ProviderFlags = [pfInUpdate]
    end
    object adq_register_listtrans_status: TStringField
      FieldName = 'trans_status'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object adq_register_listdeleted_flag: TStringField
      FieldName = 'deleted_flag'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object adq_register_listcheckintime: TDateTimeField
      FieldName = 'checkintime'
      ProviderFlags = [pfInUpdate]
    end
    object adq_register_listcheckouttime: TDateTimeField
      FieldName = 'checkouttime'
      ProviderFlags = [pfInUpdate]
    end
  end
end