使用 XForms 和 Ruby on Rails 开发小型门诊管理系统，第 4 部分: 实现医生和患者搜索 XForms

                
...
 <xf:instance xmlns="" id="patient" >
 <p:Info>
 <FirstName></FirstName>
 <MiddleName></MiddleName>
 <LastName></LastName>
 <Age></Age>
 <Insurer></Insurer>
 <Id></Id>
 <PolicyHolder></PolicyHolder>
 <Copay></Copay>
 <Symptoms></Symptoms>
 <BPressure></BPressure>
 <Notes></Notes>
 </p:Info>
 </xf:instance>

 <xf:submission action="http://localhost:3000/doctor/update/0"
 method="post"
 id="submit-info"/>

 <xf:submission id="load_data"
 action="http://localhost:3000/doctor/grab/0"
 method="post"
 replace="instance"
 />
 
 <xf:action ev:event="xforms-ready">
 <xf:dispatch name="xforms-submit" target="load_data"/>
 </xf:action> 
...
 <xf:label>Please describe your symptoms:<br/></xf:label>
 </xf:textarea> 
 </div> 
 <div id="bloodpressure">
 <xf:input ref="BPressure">
 <xf:label>Blood Pressure: </xf:label>
 </xf:input>
 </div>
 <div id="notes">
 <xf:textarea ref="Notes">
 <xf:label>Notes regarding<br/>visit 
 with patient:<br/></xf:label>
 </xf:textarea> 
 </div> 
 <div id="submit">
 <xf:submit submission="submit-info">
 <xf:label>Submit Information</xf:label>
 </xf:submit>
 </div>
 </p>

 <a href="doctor/list">Back to List</a>
 </body>
</html>

                
ruby script/generate scaffold patient doctor
 exists app/controllers/
 exists app/helpers/
 create app/views/doctor
 exists app/views/layouts/
 exists test/functional/
 dependency model
 exists app/models/
 exists test/unit/
 exists test/fixtures/
 skip app/models/patient.rb
 identical test/unit/patient_test.rb
 identical test/fixtures/patients.yml
 create app/views/doctor/_form.rhtml
 create app/views/doctor/list.rhtml
 create app/views/doctor/show.rhtml
 create app/views/doctor/new.rhtml
 create app/views/doctor/edit.rhtml
 create app/controllers/doctor_controller.rb
 create test/functional/doctor_controller_test.rb
 create app/helpers/doctor_helper.rb
 create app/views/layouts/doctor.rhtml
 identical public/stylesheets/scaffold.css

                
  def grab
    id = @request.env["HTTP_REFERER"].split('=')[1]
    @patient = Patient.find(id)
    doc = REXML::Document.new(@patient.information)
    if doc.root.elements["Notes"] == nil then
      el = REXML::Element.new("Notes")
      doc.root.add el
    end
    if doc.root.elements["BPressure"] == nil then
      el = REXML::Element.new("BPressure")
      doc.root.add el
    end
    @patient.information = doc
  end

  def update
    doc = REXML::Document.new("<Info></Info>")
    params[:Info].each_pair do |key,value|
      if (key.index(':') == nil) #removes 
        el = REXML::Element.new key
        el.add_text value
        doc.root.add el
      else
        doc.root.add_attribute key,value
      end
    end

    id = @request.env["HTTP_REFERER"].split('=')[1]
    @patient = Patient.find(id)
    @patient.information = doc
    @patient.update_attributes(params[:patient])
    redirect_to :action => 'list'
  end

                
<h1>Listing patients</h1>

<table>
  <tr>
    <th><%= "First Name" %></th>
    <th><%= "Last Name" %></th>
  </tr>
  
<% for patient in @patients %>
<%   if patient.approved=="true" then %>
  <tr>
    <td><% doc = REXML::Document.new(patient.information) %>
      <%= doc.root.elements["FirstName"] %>
    </td>
    <td>
      <%= doc.root.elements["LastName"] %>
    </td>
    <td><%= "<a href=\"../doctorPatient.xhtml?id=" +
             patient[:id].to_s + "\">View/Add Notes</a>" %></td>
    <td><%= link_to 'Delete', { :action => 'destroy', :id => patient },
                                 :confirm => 'Are you sure?',
                                 :method => :post %></td>
  </tr>
<%   end %>
<% end %>
</table>
...

                
<% @headers["Content-Type"] = "text/xml; charset=utf-8" %><%= 
"<Patients xmlns:xf=\"http://www.w3.org/2002/xforms\"
 xmlns:xs=\"http://www.w3.org/2001/XMLSchema\" 
 xmlns:p=\"http://developerworks.ibm.com/patient\" 
 xmlns:ev=\"http://www.w3.org/2001/xml-events\">" %>
<% for pat in @patient %>
<%= "<Info DbId=\"" + pat.id.to_s +
 "\" ViewEditLinkDoc=\"\" ViewEditLinkTri=\"\">" %>
<% doc = REXML::Document.new(pat.information) %>
<%= doc.root.elements["LastName"].to_s %>
<%= "</Info>" %>
<% end %>
<%= "</Patients>" %>

                
  def graball
 @patient = Patient.find_by_sql("select * from patients");
 end

                
<?xml version="1.0" encoding="ISO-8859-1" ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
         "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" 
      xmlns:xs="http://www.w3.org/2001/XMLSchema" 
      xmlns:xf="http://www.w3.org/2002/xforms"
      xmlns:ev="http://www.w3.org/2001/xml-events">
  <head>
    <meta http-equiv="Content-Type"
          content="text/html; charset=ISO-8859-1" />
    <title>Patient Lookup</title>
    <xf:model id="patientModel">

      <xf:instance xmlns="" id="searchLastName">
        <search>
          <LastName/>
        </search>
      </xf:instance>

      <xf:instance xmlns="" id="patients">
        <Patients>
<!--
          <Info DbId="" ViewEditLinkDoc="" ViewEditLinkTri="">
            <LastName/>
          </Info>
          ...
-->
        </Patients>
      </xf:instance>

      <xf:submission id="load_data"
                     action="http://localhost:3000/doctor/graball/0"
                     method="post"
                     replace="instance"
                     instance="patients"/>
      
      <xf:action ev:event="xforms-ready">
        <xf:dispatch name="xforms-submit" target="load_data"/>
      </xf:action>

    </xf:model>
  </head>
  <body>
    <p>
      <div id="searchLastName">
        <xf:input ref="instance('searchLastName')//LastName"
                  incremental="true">
          <xf:label>Search Last Name:</xf:label>
        </xf:input>
      </div>
      <table>
        <th>
          <td width="200px">Last Name</td>
          <td width="100px">View/Edit Doctor</td>
          <td width="100px">View/Edit Triage</td>
        </th>
      </table>

      <xf:repeat id="patientRepeat"
                 nodeset="instance('patients')//Info
                          [LastName=instance('searchLastName')//LastName]">
        <table>
          <tr>
            <td width="200px">
              <div id="LastName">
                <xf:output ref="LastName"/>
              </div>
            </td>
            <td width="100px">
              <div id="viewDoctor">
                <xf:trigger>
                  <xf:label>View/Edit Doc</xf:label>
                  <xf:action ev:event="DOMActivate">
                    <xf:setvalue ref="@ViewEditLinkDoc"
                        value="concat('doctorPatient.xhtml?id=',../@DbId)"/>
                    <xf:load ref="@ViewEditLinkDoc" show="new"/>
                  </xf:action>
                </xf:trigger>
              </div>
            </td>
            <td width="100px">
              <div id="viewTriage">
                <xf:trigger>
                  <xf:label>View/Edit Tri</xf:label>
                  <xf:action ev:event="DOMActivate">
                    <xf:setvalue ref="@ViewEditLinkTri"
                        value="concat('triagePatient.xhtml?id=',../@DbId)"/>
                    <xf:load ref="@ViewEditLinkTri" show="new"/>
                  </xf:action>
                </xf:trigger>
              </div>
            </td>
          </tr>
        </table>
      </xf:repeat>
    </p>

    <a href="doctor/list">Back to Doctor</a><br/>
    <a href="triage/list">Back to Triage</a>
  </body>
</html>