Recoding
/
PEIS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
体检系统架构
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
107 Commits
6 Branches
0 Tags
168 MiB
 
 
 
Tag: Branch: Tree: bfdccdb18d
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'bfdccdb18d'
${ noResults }
PEIS/PEIS/ReportFiles/TwoCancerCount.frx

129 lines
9.1 KiB
Raw Blame History

<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="06/27/2023 14:18:39" ReportInfo.Modified="04/03/2025 12:02:11" ReportInfo.CreatorVersion="2022.1.0.0">
<ScriptText>using System;
using System.Collections;
using System.Collections.Generic;
using System.ComponentModel;
using System.Windows.Forms;
using System.Drawing;
using System.Data;
using FastReport;
using FastReport.Data;
using FastReport.Dialog;
using FastReport.Barcode;
using FastReport.Table;
using FastReport.Utils;
namespace FastReport
{
public class ReportScript
{
public double totalSum = 0;
public double totalHisSum = 0;
private void OrderCount_AfterData(object sender, EventArgs e)
{
// DataSourceBase rowData = Report.GetDataSource(&quot;P&quot;);
//// Cell37.Text = rowData[&quot;CreateTime&quot;] == null ? &quot;&quot; : rowData[&quot;CreateTime&quot;].ToString().Substring(0,16);
//// Cell46.Text = rowData[&quot;ChargeTime&quot;] == null ? &quot;&quot; : rowData[&quot;ChargeTime&quot;].ToString().Substring(0,16);
//// Cell48.Text = rowData[&quot;CostTime&quot;] == null ? &quot;&quot; : rowData[&quot;CostTime&quot;].ToString().Substring(0,16);
//
//
// totalSum += Convert.ToDouble(rowData[&quot;Sum&quot;].ToString());
// totalHisSum += Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
// Cell50.Text = totalSum.ToString();
// Cell51.Text = totalHisSum.ToString();
//
// int total = rowData.CurrentRowNo + 1;
// Cell49.Text = &quot;-总计- &quot; + total.ToString() +&quot;笔订单&quot;;
}
private void Cell43_AfterData(object sender, EventArgs e)
{
if (Cell43.Text != null &amp;&amp; Cell43.Text.Length &gt; 0 &amp;&amp; Cell43.Text.Substring(0,1).Equals(&quot;、&quot;)) {
Cell43.Text = Cell43.Text.Substring(1);
}
}
}
}
</ScriptText>
<Dictionary>
<Parameter Name="HospitalName" DataType="System.String"/>
<Parameter Name="DateBetween" DataType="System.String"/>
<Parameter Name="Type" DataType="System.String"/>
</Dictionary>
<ReportPage Name="Page1" Landscape="true" PaperWidth="297" PaperHeight="210" RawPaperSize="9" Watermark.Font="宋体, 60pt">
<PageHeaderBand Name="PageHeader1" Width="1047.06" Height="75.6">
<TextObject Name="Text1" Width="1047.06" Height="56.7" Text="两癌筛查统计表" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 26pt, style=Bold"/>
<TextObject Name="Text2" Top="56.7" Width="66.15" Height="18.9" Text="统计单位:" HorzAlign="Right" VertAlign="Center" Font="微软雅黑, 9pt"/>
<TextObject Name="Text3" Left="66.15" Top="56.7" Width="179.55" Height="18.9" CanBreak="false" Text="[HospitalName]" VertAlign="Center" WordWrap="false" Font="微软雅黑, 9pt"/>
<TextObject Name="Text4" Left="245.7" Top="56.7" Width="66.15" Height="18.9" Text="统计日期:" HorzAlign="Right" VertAlign="Center" Font="微软雅黑, 9pt"/>
<TextObject Name="Text5" Left="311.85" Top="56.7" Width="226.8" Height="18.9" CanBreak="false" Text="[DateBetween]" VertAlign="Center" WordWrap="false" Font="微软雅黑, 9pt"/>
<TextObject Name="Text6" Left="538.65" Top="56.7" Width="66.15" Height="18.9" Text="统计类型:" HorzAlign="Right" VertAlign="Center" Font="微软雅黑, 9pt"/>
<TextObject Name="Text7" Left="604.8" Top="56.7" Width="113.4" Height="18.9" CanBreak="false" Text="[Type]" VertAlign="Center" WordWrap="false" Font="微软雅黑, 9pt"/>
</PageHeaderBand>
<DataBand Name="TwoCancerCount" Top="121.4" Width="1047.06" Height="45.36" CanGrow="true" CanShrink="true" KeepTogether="true" KeepDetail="true">
<TableObject Name="Table2" Width="1058.09" Height="45.36">
<TableColumn Name="Column15" Width="70.05"/>
<TableColumn Name="Column16" Width="51.15"/>
<TableColumn Name="Column17" Width="41.7"/>
<TableColumn Name="Column18" Width="41.7"/>
<TableColumn Name="Column19" Width="51.41"/>
<TableColumn Name="Column20" Width="126.75"/>
<TableColumn Name="Column21" Width="70.05"/>
<TableColumn Name="Column22" Width="79.5"/>
<TableColumn Name="Column23" Width="155.1"/>
<TableColumn Name="Column24" Width="126.75"/>
<TableColumn Name="Column25" Width="107.85"/>
<TableColumn Name="Column26" Width="136.08"/>
<TableRow Name="Row2" MinHeight="28.35" Height="45.36" AutoSize="true">
<TableCell Name="ExamDate" Border.Lines="All" Text="[P.ExamDate]" Format="Date" Format.Format="d" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell36" Border.Lines="All" Text="[P.Name]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell37" Border.Lines="All" Text="[P.Sex]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell38" Border.Lines="All" Text="[P.Age]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell39" Border.Lines="All" Text="[P.Nation]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell40" Border.Lines="All" Text="[P.CardNo]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="BirthDay" Border.Lines="All" Text="[P.Birthday]" Format="Date" Format.Format="d" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell42" Border.Lines="All" Text="[P.Tel1]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell43" Border.Lines="All" AfterDataEvent="Cell43_AfterData" Text="[P.Flag]" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell44" Border.Lines="All" Text="[P.Summary]" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell45" Border.Lines="All" Text="[P.Hpv]" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell46" Border.Lines="All" Text="[P.Summary2]" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 8pt"/>
</TableRow>
</TableObject>
<DataHeaderBand Name="DataHeader1" Top="79.6" Width="1047.06" Height="37.8" CanGrow="true" CanShrink="true" KeepWithData="true" RepeatOnEveryPage="true">
<TableObject Name="Table1" Width="1058.05" Height="37.8">
<TableColumn Name="Column1" Width="70.05"/>
<TableColumn Name="Column2" Width="51.14"/>
<TableColumn Name="Column3" Width="41.7"/>
<TableColumn Name="Column4" Width="41.69"/>
<TableColumn Name="Column5" Width="51.41"/>
<TableColumn Name="Column6" Width="126.75"/>
<TableColumn Name="Column7" Width="70.05"/>
<TableColumn Name="Column8" Width="79.5"/>
<TableColumn Name="Column9" Width="155.09"/>
<TableColumn Name="Column10" Width="126.75"/>
<TableColumn Name="Column11" Width="107.84"/>
<TableColumn Name="Column12" Width="136.08"/>
<TableRow Name="Row1" MinHeight="37.8" Height="37.8" AutoSize="true">
<TableCell Name="Cell1" Border.Lines="All" Text="体检日期" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell2" Border.Lines="All" Text="姓名" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell3" Border.Lines="All" Text="性别" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell4" Border.Lines="All" Text="年龄" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell5" Border.Lines="All" Text="民族" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell26" Border.Lines="All" Text="身份证号" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell27" Border.Lines="All" Text="出生年月" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell28" Border.Lines="All" Text="联系方式" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell29" Border.Lines="All" Text="筛查内容（宫颈癌、乳腺癌）&#13;&#10;（TCT/HPV及乳腺超声）" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 8pt, style=Bold"/>
<TableCell Name="Cell30" Border.Lines="All" Text="TCT结果" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell31" Border.Lines="All" Text="HPV结果" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell32" Border.Lines="All" Text="乳腺超声分类" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
</TableRow>
</TableObject>
</DataHeaderBand>
</DataBand>
<PageFooterBand Name="PageFooter1" Top="170.76" Width="1047.06" Height="37.8">
<TextObject Name="Text8" Width="1047.06" Height="37.8" Text="第[Page#]页，共[TotalPages#]页" HorzAlign="Center" Font="微软雅黑, 10pt"/>
</PageFooterBand>
</ReportPage>
</Report>