?? sy_ypcbcx.pas
字號:
{*******************************************************}
{ }
{ 進發存月結表查詢 }
{ }
{ 中軟金馬公司版權所有。2002.12前 }
{ }
{ 編制:中軟金馬郵資票品項目開發組 }
{ }
{ }
{*******************************************************}
(*
省級集郵品,省級集郵票,省級零枚票,省級市場購入票
地市集郵品,地市集郵票,地市市場購入票,省級綜合查詢
*)
unit SY_YPCBCX;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
SY_SearchBase, Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls,
Spin, RXCtrls, SqlStrings, RxQuery, Menus, DBGridExport;
type
TFrmY_YPCBCX = class(TfrmY_SearchBase)
Label1: TLabel;
SED_Year: TSpinEdit;
Label2: TLabel;
CBo_YF: TComboBox;
CB_bdpc: TCheckBox;
procedure SED_YearChange(Sender: TObject);
procedure Qry_SearchAfterOpen(DataSet: TDataSet);
procedure BBt_PrintClick(Sender: TObject);
private
{ Private declarations }
protected
procedure Init;override;
procedure Search;override;
public
{ Public declarations }
end;
function ShowYPCBCX(p_typ: TIO_TYPE): Boolean;
var
FrmY_YPCBCX: TFrmY_YPCBCX;
implementation
uses datas,pub, SY_JYPJFCYJB_RPT,SJ_RICHEDIT;
{$R *.DFM}
var l_typ: TIO_TYPE;
function ShowYPCBCX(p_typ: TIO_TYPE): Boolean;
begin
l_Typ := p_typ;
Application.CreateForm(TFrmY_YPCBCX, FrmY_YPCBCX);
with FrmY_YPCBCX do
begin
Caption := '郵資票品管理信息系統——' + pCaption[integer(l_typ)] + '業務';
panel1.Caption := pCaption[integer(l_typ)] +'進發存月結表查詢';
Qry_Search.SQL := SqlStrings.FSqlText[l_typ];
result := ShowModal = MB_OK;
Free;
end;
end;
procedure TFrmY_YPCBCX.Init;
begin
Inherited Init;
SED_Year.Value:=CurYear;
CBo_YF.ItemIndex := CurMonth -1;
end;
procedure TFrmY_YPCBCX.SED_YearChange(Sender: TObject);
begin
inherited;
CurYear:=SED_Year.Value;
end;
procedure TFrmY_YPCBCX.Search;
begin
With Qry_Search do
begin
Close;
Params.ParamByName('ND').Asstring := Sed_year.Text;
Params.ParamByName('YF').Asstring := CBo_YF.Text;
if CB_bdpc.Checked then
MacroByName('BD').AsString := ' and PC.BYZJSL + PC.BYJSSL > 0 '
else
MacroByName('BD').AsString := '';
Open;
end;
end;
procedure TFrmY_YPCBCX.Qry_SearchAfterOpen(DataSet: TDataSet);
begin
inherited;
with DataSet do
begin
TNumericField(FieldByName('JJ')).DisplayFormat := '#,##0.00##';
TNumericField(FieldByName('SYJCSL')).DisplayFormat := '#,##0.00##';
TNumericField(FieldByName('SYJCJE')).DisplayFormat := '#,##0.00##';
TNumericField(FieldByName('BYZJSL')).DisplayFormat := '#,##0.00##';
TNumericField(FieldByName('BYZJJJJE')).DisplayFormat := '#,##0.00##';
TNumericField(FieldByName('BYJSSL')).DisplayFormat := '#,##0.00##';
TNumericField(FieldByName('BYJSXJJE')).DisplayFormat := '#,##0.00##';
TNumericField(FieldByName('SQKCSL')).DisplayFormat := '#,##0.00##';
TNumericField(FieldByName('KCJJJE')).DisplayFormat := '#,##0.00##';
end;
end;
procedure TFrmY_YPCBCX.BBt_PrintClick(Sender: TObject);
begin
if Qry_Search.IsEmpty then
exit;
if not Assigned(JYPJFCYJB_RPT) then
begin
Application.CreateForm(TJYPJFCYJB_RPT,JYPJFCYJB_RPT);
Application.CreateForm(TFrm_RichEdit,Frm_RichEdit);
with JYPJFCYJB_RPT,Frm_RichEdit do
try
Qry_Search.First;
DetailLines:=0;
QRlabel16.Caption :=VG_UnitName;
QRlabel19.Caption :=FormatDateTime('yyyy"年"mm"月"dd"日"',Now);
QRLabel12.Caption :=pCaption[integer(l_typ)]+' 進發存月結表';
QRLabel12.Left :=Round((PageHeaderBand1.Width-QRLabel12.Width) div 2);
Prepare;
try
TotalPageCount:=QRPrinter.PageCount;
QRLabel20.Caption :=IntToStr(ToTalPageCount);
finally
QRPrinter.Free;
end;
QRPrinter := nil;
Detaillines:=0;
sumPreCount:=0;
sumPreMoney:=0;
sumCount:=0;
sumMoney:=0;
sumjianCount:=0;
sumjianMoney:=0;
sumExistCount:=0;
sumExistMoney:=0;
if CHQMsgBox('是否采用套打?', 2)=IDYES then
Tao_Print_Flag:=True
else Tao_Print_Flag:=False;
Qry_Search.First;
Qry_Search.next;
Preview;
finally
JYPJFCYJB_RPT.Free;
Frm_RichEdit.Free;
JYPJFCYJB_RPT:=nil;
Frm_RichEdit:=nil;
end;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -