unit_server_pacs.dfm

a program written by delphi about middle layer

object jk_pacs_trans: Tjk_pacs_trans
  OldCreateOrder = False
  Pooled = False
  Left = 329
  Top = 171
  Height = 456
  Width = 653
  object adsChis: TADOConnection
    Connected = True
    ConnectionString = 
      'FILE NAME=C:\Program Files\Common Files\System\Ole DB\Data Links' +
      '\jk.udl'
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 64
    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 + part '
      '  from (select distinct m.pacs_item_code + '#39'^'#39' part'
      
        '  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) p'
      'if len(@part) > 0'
      '    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, convert(varchar(10), b.birthday, 120)' +
        ' 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 = 272
  end
  object adq_register_list: TADOQuery
    Connection = adsChis
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'tc'
        DataType = ftString
        Size = 10
        Value = '2008-01-09'
      end>
    SQL.Strings = (
      'declare @chkdt varchar(20)'
      'select @chkdt = convert(varchar(20), getdate(), 101)'
      ''
      'select b.*, '
      
        #9'a.part, a.occupy_date, a.member_id, a.name, a.sex, a.birthday, ' +
        'a.idcard, a.english_name'
      '  from jk_pacs_trans b'
      
        '             --inner join (select * from jk_visit_list where occ' +
        'upy_date = @chkdt) a  on a.check_id = b.check_id'
      
        #9#9'inner join dbo.jk_GetPacsItemList(@chkdt) a on a.check_id = b.' +
        'check_id'
      'where b.trans_status = 0 '
      '    and b.trans_class = :tc'
      '    and ltrim(rtrim(b.check_card_no)) <> '#39#39' '
      '    and  b.check_card_no is not null'
      ' order by b.trans_id')
    Left = 152
    Top = 200
    object adq_register_listtrans_id: TAutoIncField
      FieldName = 'trans_id'
      ProviderFlags = [pfInWhere]
      ReadOnly = True
    end
    object adq_register_listcheck_id: TIntegerField
      FieldName = 'check_id'
      ProviderFlags = []
    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 = []
      FixedChar = True
      Size = 1
    end
    object adq_register_listcheckintime: TDateTimeField
      FieldName = 'checkintime'
      ProviderFlags = []
    end
    object adq_register_listcheckouttime: TDateTimeField
      FieldName = 'checkouttime'
      ProviderFlags = [pfInUpdate]
    end
    object adq_register_listtrans_class: TStringField
      FieldName = 'trans_class'
      ProviderFlags = []
      FixedChar = True
      Size = 4
    end
    object adq_register_listcheck_card_no: TStringField
      FieldName = 'check_card_no'
      ProviderFlags = []
      FixedChar = True
      Size = 10
    end
    object adq_register_listpart: TStringField
      FieldName = 'part'
      ProviderFlags = []
      ReadOnly = True
      Size = 1000
    end
    object adq_register_listoccupy_date: TDateTimeField
      FieldName = 'occupy_date'
      ProviderFlags = []
    end
    object adq_register_listmember_id: TIntegerField
      FieldName = 'member_id'
      ProviderFlags = []
    end
    object adq_register_listname: TStringField
      FieldName = 'name'
      ProviderFlags = []
      Size = 50
    end
    object adq_register_listsex: TStringField
      FieldName = 'sex'
      ProviderFlags = []
      FixedChar = True
      Size = 1
    end
    object adq_register_listbirthday: TStringField
      FieldName = 'birthday'
      ProviderFlags = []
      ReadOnly = True
      Size = 10
    end
    object adq_register_listidcard: TStringField
      FieldName = 'idcard'
      ProviderFlags = []
    end
    object adq_register_listenglish_name: TStringField
      FieldName = 'english_name'
      ProviderFlags = []
      Size = 50
    end
  end
  object dsp_log: TDataSetProvider
    DataSet = ads_log
    Constraints = True
    Left = 256
    Top = 344
  end
  object ads_log: TADOStoredProc
    Connection = adsChis
    Parameters = <>
    Left = 152
    Top = 344
  end
  object dsp_conclusion: TDataSetProvider
    DataSet = ado_conclusion
    Constraints = True
    Left = 430
    Top = 60
  end
  object ADOQuery1: TADOQuery
    Connection = adsChis
    Parameters = <>
    SQL.Strings = (
      'select * from jk_param')
    Left = 344
    Top = 144
  end
  object ds_ip: TDataSetProvider
    DataSet = ADOQuery1
    Constraints = True
    Left = 431
    Top = 143
  end
  object ado_conclusion: TADOStoredProc
    Connection = adsChis
    ProcedureName = 'jk_pacs_trans_con_adv;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@chkid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 11
        Value = Null
      end
      item
        Name = '@memid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@itemcode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@concode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 100
        Value = Null
      end
      item
        Name = '@advcode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 100
        Value = Null
      end
      item
        Name = '@manu'
        Attributes = [paNullable]
        DataType = ftString
        Size = 200
        Value = Null
      end>
    Left = 344
    Top = 59
  end
end