体检系统架构
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.
 
 
 

150 lines
11 KiB

<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="06/27/2023 14:18:39" ReportInfo.Modified="08/29/2024 10:48:31" 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;;
}
}
}
</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="OrderCount" Top="118.73" Width="1047.06" Height="28.35" CanGrow="true" CanShrink="true" AfterDataEvent="OrderCount_AfterData" KeepTogether="true" KeepDetail="true">
<TableObject Name="Table2" Width="1046.87" Height="28.35">
<TableColumn Name="Column15" Width="60.6"/>
<TableColumn Name="Column16" Width="51.15"/>
<TableColumn Name="Column17" Width="70.05"/>
<TableColumn Name="Column18" Width="70.05"/>
<TableColumn Name="Column19" Width="136.46"/>
<TableColumn Name="Column20" Width="51.15"/>
<TableColumn Name="Column21" Width="51.15"/>
<TableColumn Name="Column22" Width="70.05"/>
<TableColumn Name="Column23" Width="41.7"/>
<TableColumn Name="Column24" Width="70.05"/>
<TableColumn Name="Column25" Width="51.15"/>
<TableColumn Name="Column26" Width="79.38"/>
<TableColumn Name="Column27" Width="51.15"/>
<TableColumn Name="Column28" Width="69.93"/>
<TableColumn Name="Column34" Width="56.7"/>
<TableColumn Name="Column35"/>
<TableRow Name="Row2" MinHeight="28.35" Height="28.35" AutoSize="true">
<TableCell Name="Cell35" Border.Lines="All" Text="[P.ID]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell36" Border.Lines="All" Text="[P.Creator]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell37" Border.Lines="All" Text="[P.CreateTime]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell38" Border.Lines="All" Text="[P.OEID]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell39" Border.Lines="All" Text="[P.OrgName]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell40" Border.Lines="All" Text="[P.EID]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell41" Border.Lines="All" Text="[P.PatientName]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell42" Border.Lines="All" Text="[P.Sum]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell43" Border.Lines="All" Text="[P.Discount]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell44" Border.Lines="All" Text="[P.Fee]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell45" Border.Lines="All" Text="[P.Charger]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell46" Border.Lines="All" Text="[P.ChargeTime]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell47" Border.Lines="All" Text="[P.Sender]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell48" Border.Lines="All" Text="[P.SendTime]" VertAlign="Center" Font="微软雅黑, 8pt"/>
<TableCell Name="Cell54" Border.Lines="All" Text="[P.Coster]" VertAlign="Center" Font="微软雅黑, 9pt"/>
<TableCell Name="Cell55" Border.Lines="All" Text="[P.CostTime]" VertAlign="Center" Font="微软雅黑, 9pt"/>
</TableRow>
</TableObject>
<DataHeaderBand Name="DataHeader1" Top="78.27" Width="1047.06" Height="37.8" CanGrow="true" CanShrink="true" KeepWithData="true" RepeatOnEveryPage="true">
<TableObject Name="Table1" Width="1046.87" Height="37.8">
<TableColumn Name="Column1" Width="60.6"/>
<TableColumn Name="Column2" Width="51.15"/>
<TableColumn Name="Column3" Width="70.05"/>
<TableColumn Name="Column4" Width="70.05"/>
<TableColumn Name="Column5" Width="136.46"/>
<TableColumn Name="Column6" Width="51.15"/>
<TableColumn Name="Column7" Width="51.15"/>
<TableColumn Name="Column8" Width="70.05"/>
<TableColumn Name="Column9" Width="41.7"/>
<TableColumn Name="Column10" Width="70.05"/>
<TableColumn Name="Column11" Width="51.15"/>
<TableColumn Name="Column12" Width="79.38"/>
<TableColumn Name="Column13" Width="51.15"/>
<TableColumn Name="Column14" Width="69.93"/>
<TableColumn Name="Column32" Width="56.7"/>
<TableColumn Name="Column33"/>
<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="团体&#13;&#10;体检号" 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="折扣" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell30" Border.Lines="All" Text="实收金额" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell31" Border.Lines="All" Text="记账员" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell32" Border.Lines="All" Text="记账日期" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell33" Border.Lines="All" Text="发送人" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell34" Border.Lines="All" Text="发送日期" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell52" Border.Lines="All" Text="收费员" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
<TableCell Name="Cell53" Border.Lines="All" Text="收费日期" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
</TableRow>
</TableObject>
</DataHeaderBand>
<DataFooterBand Name="DataFooter1" Top="149.75" Width="1047.06" Height="28.35" CanGrow="true" CanShrink="true" KeepWithData="true">
<TableObject Name="Table3" Width="1047.06" Height="28.35">
<TableColumn Name="Column29" Width="445.07"/>
<TableColumn Name="Column30" Width="325"/>
<TableColumn Name="Column31" Width="276.99"/>
<TableRow Name="Row3" MinHeight="28.35" Height="28.35" AutoSize="true">
<TableCell Name="Cell49" Border.Lines="All" Fill.Color="InactiveBorder" HorzAlign="Center" VertAlign="Center" Font="微軟正黑體, 8pt"/>
<TableCell Name="Cell50" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微軟正黑體, 8pt"/>
<TableCell Name="Cell51" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微軟正黑體, 8pt"/>
</TableRow>
</TableObject>
</DataFooterBand>
</DataBand>
<PageFooterBand Name="PageFooter1" Top="180.77" 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>