?? jm_rpttpfh.pas
字號:
{*******************************************************}
{ }
{ 營業(yè)員票品調配單打印 }
{ }
{ 中軟金馬公司版權所有。2002.12前 }
{ }
{ 編制：中軟金馬郵資票品項目開發(fā)組 }
{ }
{ }
{*******************************************************}
(*
本模塊在地市集郵票管理，地市集郵品管理，地市市場購入票里面調用。
*)
{===============================================================================
郵資票品管理系統(tǒng) V1.0——集郵業(yè)務管理子系統(tǒng)的功能是對集郵票的分配計劃、出庫
計劃、下級需求計劃、下級請領表，集郵票的入庫、集郵票的發(fā)貨等業(yè)務進行了系統(tǒng)管
理。同時對下級營業(yè)員的集郵票的調配、退繳、分票、繳款等業(yè)務進行了處理，另外包
括對帳務以及營業(yè)員帳務的查詢，以及由此形成的報表，庫存以及下級庫存的查詢等功
能。
集郵業(yè)務管理子系統(tǒng)和其他子系統(tǒng)的關系：系統(tǒng)管理子系統(tǒng)負責集郵業(yè)務管理子系統(tǒng)的
各種數(shù)據(jù)的初始化工作。該子系統(tǒng)負責集郵門市管理中集郵票的發(fā)票、營業(yè)員票品調配、
營業(yè)員繳款等前臺營業(yè)員業(yè)務。
本模塊功能：營業(yè)員調配單的打印
問題：
1、不能確定打印紙張的型號，隨客戶的需求隨時可能改變。
2、
徐 申 2001.10.14
更改：1、調整各字段信息在紙張上的顯示的位置。
2、刪除了不必要的字段信息（制表人、歉收、復核人等）.
3、改變“備注”的顯示形式為放在頁腳中顯示.
4、更改紙張大小為(210mm,127mm).
5、更改了所有的控件名稱符合規(guī)定
徐申 2002.02.21
===============================================================================}
unit JM_RPTTPFH;
interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls, Dialogs, Db, DBTables, JM_data;
type
TFrm_rpttpfh = class(TQuickRep)
PageFooterBand1: TQRBand;
ColumnHeaderBand1: TQRBand;
DetailBand1: TQRBand;
QRShape3: TQRShape;
QRShape14: TQRShape;
QRShape16: TQRShape;
QRShape5: TQRShape;
QRShape9: TQRShape;
QRShape11: TQRShape;
qry_tpd0: TQuery;
qry_tpdpp: TQuery;
QRShape4: TQRShape;
QRLabel4: TQRLabel;
QRLabel3: TQRLabel;
QRDBText10: TQRDBText;
QRLabel1: TQRLabel;
QRDBText16: TQRDBText;
QRLabel5: TQRLabel;
QRDBText11: TQRDBText;
QRLabel12: TQRLabel;
QRDBText12: TQRDBText;
qrl_page: TQRLabel;
QRLabel18: TQRLabel;
QRLabel28: TQRLabel;
QRLabel8: TQRLabel;
QRLabel30: TQRLabel;
QRLabel31: TQRLabel;
QRShape1: TQRShape;
QRShape2: TQRShape;
QRShape7: TQRShape;
QRShape10: TQRShape;
QRShape13: TQRShape;
QRShape17: TQRShape;
QRShape18: TQRShape;
QRShape19: TQRShape;
qry_ryb: TQuery;
qry_tpdppDH: TStringField;
qry_tpdppPPDM: TStringField;
qry_tpdppLB: TStringField;
qry_tpdppSL: TFloatField;
qry_tpdppZH: TStringField;
qry_tpdppPPMC: TStringField;
qry_tpdppDJ: TFloatField;
qry_tpd0DH: TStringField;
qry_tpd0TCZ: TStringField;
qry_tpd0TRZ: TStringField;
qry_tpd0CZY: TStringField;
qry_tpd0TCFH: TDateTimeField;
qry_tpd0TRFH: TDateTimeField;
qry_tpd0TCZMC: TStringField;
qry_tpd0TRZMC: TStringField;
qry_tpd0RQ: TStringField;
QRLabel2: TQRLabel;
QRShape6: TQRShape;
QRShape8: TQRShape;
qry_tpdppJJ: TFloatField;
qrrt_zh: TQRRichText;
qrrt_ppmc: TQRRichText;
qrrt_lb: TQRRichText;
qrrt_jj: TQRRichText;
qrrt_sj: TQRRichText;
qrrt_sl: TQRRichText;
QRLabel13: TQRLabel;
QRLabel6: TQRLabel;
QRShape12: TQRShape;
QRShape15: TQRShape;
QRShape20: TQRShape;
QRLabel7: TQRLabel;
QRSysData1: TQRSysData;
QRLabel9: TQRLabel;
procedure Query2SJGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
procedure Query2SJSetText(Sender: TField; const Text: string);
procedure qry_tpdppDJGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
procedure qry_tpdppDJSetText(Sender: TField; const Text: string);
procedure qry_tpd0AfterScroll(DataSet: TDataSet);
procedure qry_tpdppJJGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
procedure qry_tpdppJJSetText(Sender: TField; const Text: string);
procedure QuickRepNeedData(Sender: TObject; var MoreData: Boolean);
procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
procedure QuickRepStartPage(Sender: TCustomQuickRep);
private
public
line_count: integer; {記錄本頁行數(shù)，用以控制每頁顯示的行數(shù)}
taoda_flag: Boolean; { 是否采用套打的標記}
end;
var
Frm_rpttpfh: TFrm_rpttpfh;
implementation
{$R *.DFM}
uses pub; {使用其中的公共函數(shù)currGetText,CurrSetText格式化進價、銷價等字段
信息的顯示}
procedure TFrm_rpttpfh.Query2SJGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
CurrGetText(Sender, Text, DisplayText);
end;
procedure TFrm_rpttpfh.Query2SJSetText(Sender: TField; const Text: string);
begin
CurrSetText(Sender, Text);
end;
procedure TFrm_rpttpfh.qry_tpdppDJGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
CurrGetText(Sender, Text, DisplayText);
end;
procedure TFrm_rpttpfh.qry_tpdppDJSetText(Sender: TField; const Text: string);
begin
CurrSetText(Sender, Text);
end;
procedure TFrm_rpttpfh.qry_tpd0AfterScroll(DataSet: TDataSet);
var
StrSql: string;
begin
StrSql := 'select a.dh,a.ppdm,c.ppmc,c.zh,a.jj/100 jj,' +
'a.dj/100 dj,decode(a.lb,''0'',''集郵票'',''1'',''集郵品'',''2'',''購入票'') lb,a.sl from' +
' tm_tpdpp a,tm_tpdb b,tm_yyykc c' +
' where a.dh=b.dh and c.ygdm=b.tcz and a.jj=c.jj' +
' and a.ppdm=c.ppdm and a.lb=c.lb' +
' and b.tcz=''' + qry_tpd0.FieldByName('TCZ').AsString + ''' and b.dh=''' + qry_tpd0.FieldByName('dh').AsString + '''';
with qry_tpdpp do
begin
Close;
SQL.clear;
SQL.Add(StrSql);
Open;
end;
end;
procedure TFrm_rpttpfh.qry_tpdppJJGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
CurrGetText(Sender, Text, DisplayText);
end;
procedure TFrm_rpttpfh.qry_tpdppJJSetText(Sender: TField; const Text: string);
begin
CurrSetText(Sender, Text);
end;
procedure TFrm_rpttpfh.QuickRepNeedData(Sender: TObject;
var MoreData: Boolean);
begin
if line_count < 6 then
begin
Inc(line_count);
MoreData := True;
end;
if not qry_tpdpp.Eof then
{如果沒有到查詢結果的末尾，那么逐行增加每條調配票品信息}
with qry_tpdpp do
begin
qrrt_zh.Lines.Text := FieldbyName('zh').AsString;
qrrt_ppmc.Lines.Text := FieldbyName('ppmc').AsString;
if qrrt_ppmc.Lines.Count > 1 then
{如果票品名稱超過兩行，那么重新設置顯示的位置，以便能顯示下兩行的信息}
begin
qrrt_ppmc.Top := 2;
qrrt_ppmc.Height := 26;
end
else begin
qrrt_ppmc.Top := qrrt_zh.top;
qrrt_ppmc.Height := qrrt_zh.Height;
end;
qrrt_lb.Lines.Text := FieldbyName('lb').AsString;
qrrt_jj.Lines.Text := FormatFloat('#,##0.00', FieldbyName('jj').AsFloat);
qrrt_sj.Lines.Text := Formatfloat('#,##0.00', FieldbyName('dj').AsFloat);
qrrt_sl.Lines.Text := FieldbyName('sl').AsString;
end;
if qry_tpdpp.eof then
{如果已經顯示完所有的調配票品，但該頁還未滿五行，那么增加空白行}
begin
qrrt_zh.Lines.Text := '';
qrrt_ppmc.Lines.Text := '';
qrrt_lb.Lines.Text := '';
qrrt_jj.Lines.Text := '';
qrrt_sj.Lines.Text := '';
qrrt_sl.Lines.Text := '';
end;
if not qry_tpdpp.Eof then
qry_tpdpp.Next;
if (line_count = 6) and qry_tpdpp.eof then
{如果該頁已經顯示5行信息，并且并且查詢結果的游標已經在末尾，那么終止顯示}
MoreData := false;
if line_count = 6 then
line_count := 1;
end;
procedure TFrm_rpttpfh.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
{在打印之前，再次的初始化行數(shù)并值查詢結果集的游標于頂部，以防不能打印信息或打印的信息不完整}
Line_count := 0;
qry_tpdpp.First;
end;
procedure TFrm_rpttpfh.QuickRepStartPage(Sender: TCustomQuickRep);
var
i: Integer;
begin
if taoda_flag then {如果套打時，不顯示某些信息}
begin
{不顯示ColumnHeaderBand1中的某些信息和線條 }
for i := 0 to ColumnHeaderBand1.ControlCount - 1 do
begin
if (Pos('QRLabel', ColumnHeaderBand1.Controls[i].Name) > 0)
or (Pos('QRShape', ColumnHeaderBand1.Controls[i].Name) > 0) then
ColumnHeaderBand1.Controls[i].Enabled := False;
end;
{不顯示DetailBand1中的某些信息和線條 }
for i := 0 to DetailBand1.ControlCount - 1 do
begin
if (Pos('QRLabel', DetailBand1.Controls[i].Name) > 0)
or (Pos('QRShape', DetailBand1.Controls[i].Name) > 0) then
DetailBand1.Controls[i].Enabled := False;
end;
{不顯示PageFooterBand中的某些信息和線條 }
for i := 0 to PageFooterBand1.ControlCount - 1 do
begin
if (Pos('QRLabel', PageFooterBand1.Controls[i].Name) > 0)
or (Pos('QRShape', PageFooterBand1.Controls[i].Name) > 0) then
PageFooterBand1.Controls[i].Enabled := False;
end;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -