?? sj_jypfhdfhdy.pas
字號:
{*******************************************************}
{ }
{ 地市集郵票發貨單打印 }
{ }
{ 中軟金馬公司版權所有。2002.12前 }
{ }
{ 編制:中軟金馬項目開發組 }
{ }
{ }
{*******************************************************}
(*
本模塊在地市集郵票管理模塊 單據管理部分的地市集郵票發貨單審核模塊調用。
*)
unit SJ_JYPFHDFHDY;
interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls,Dialogs, Db, DBTables;
type
TFrmK_YPFHDFHDY = class(TQuickRep)
ColumnHeaderBand1: TQRBand;
DetailBand1: TQRBand;
QRShape9: TQRShape;
QRShape10: TQRShape;
QRShape11: TQRShape;
QRShape12: TQRShape;
QRShape13: TQRShape;
Qry_ckdayin: TQuery;
Qry_bz: TQuery;
QRShape5: TQRShape;
QRShape15: TQRShape;
QRShape17: TQRShape;
QRShape28: TQRShape;
QRShape33: TQRShape;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRLabel1: TQRLabel;
QRLabel17: TQRLabel;
QRLabel18: TQRLabel;
QRLabel28: TQRLabel;
QRLabel29: TQRLabel;
QRLabel30: TQRLabel;
QRLabel31: TQRLabel;
QRLabel32: TQRLabel;
QRLabel33: TQRLabel;
QRLabel34: TQRLabel;
QRLabel35: TQRLabel;
QRShape1: TQRShape;
QRLabel3: TQRLabel;
QRLabel5: TQRLabel;
QRDBText11: TQRDBText;
QRLabel12: TQRLabel;
QRDBText12: TQRDBText;
QRLabel19: TQRLabel;
QRShape2: TQRShape;
QRLabel4: TQRLabel;
QRShape3: TQRShape;
QRLabel6: TQRLabel;
QRShape4: TQRShape;
QRShape6: TQRShape;
QRShape7: TQRShape;
QRShape8: TQRShape;
QRLabel7: TQRLabel;
QRLabel9: TQRLabel;
QRLabel11: TQRLabel;
QRShape14: TQRShape;
QRShape16: TQRShape;
Query1: TQuery;
QRDBText13: TQRDBText;
QRShape19: TQRShape;
Query2: TQuery;
Qry_ckdayinZH: TStringField;
Qry_ckdayinTMC: TStringField;
Qry_ckdayinFHDH: TStringField;
Qry_ckdayinXJ: TFloatField;
Qry_ckdayinSL: TFloatField;
Qry_ckdayinZJJE: TFloatField;
Qry_ckdayinZK: TFloatField;
Qry_ckdayinJSJE: TFloatField;
Qry_ckdayinFXRQ: TDateTimeField;
QRDBText14: TQRDBText;
QRDBText15: TQRDBText;
Qry_ckdayinDW: TStringField;
QRShape20: TQRShape;
QRDBText10: TQRDBText;
procedure Qry_ckdayinAfterScroll(DataSet: TDataSet);
procedure Qry_ckdayinXJGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure Qry_ckdayinXJSetText(Sender: TField; const Text: String);
procedure Qry_ckdayinJSJESetText(Sender: TField; const Text: String);
procedure Qry_ckdayinJSJEGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure Qry_ckdayinZJJEGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure Qry_ckdayinZJJESetText(Sender: TField; const Text: String);
private
public
nheight:integer;
sumzj:double;
sumjsj:double;
S:string;
SArray:array of variant;
end;
var
FrmK_YPFHDFHDY: TFrmK_YPFHDFHDY;
implementation
uses pub;
{$R *.DFM}
procedure TFrmK_YPFHDFHDY.Qry_ckdayinAfterScroll(DataSet: TDataSet);
var
DatArray:string;
begin
// QRLabel10.Caption:=Qry_ckdayin.fieldbyname('ZJJE').asstring;
// QRLabel20.Caption :=Qry_ckdayin.fieldbyname('JSJE').asstring;
Query1.Close;
Query1.SQL.Clear ;
DatArray:='select * from tks_jyfhd where fhdh='''+Qry_ckdayin.fieldbyname('fhdh').asstring+'''';
Query1.SQL.Add (DatArray);
Query1.Open;
DatArray:='select b.dwmc from tks_jyfhd a,tgs_gxdwsjb b where a.qxdw=b.dwdm(+) and fhdh='''+Qry_ckdayin.fieldbyname('fhdh').asstring+'''';
Query2.Close;
Query2.SQL.Clear ;
Query2.SQL.Add(DatArray);
Query2.Open;
// QRLabel2.Caption :=Query2.fieldbyname('dwmc').asstring;
end;
procedure TFrmK_YPFHDFHDY.Qry_ckdayinXJGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
CurrGetText(sender,Text,Displaytext);
end;
procedure TFrmK_YPFHDFHDY.Qry_ckdayinXJSetText(Sender: TField;
const Text: String);
begin
CurrSetText(Sender,Text);
end;
procedure TFrmK_YPFHDFHDY.Qry_ckdayinJSJESetText(Sender: TField;
const Text: String);
begin
CurrSetText(Sender,Text);
end;
procedure TFrmK_YPFHDFHDY.Qry_ckdayinJSJEGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
CurrGetText(Sender,Text,DisplayText);
end;
procedure TFrmK_YPFHDFHDY.Qry_ckdayinZJJEGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
CurrGetText(Sender,Text,DisplayText);
end;
procedure TFrmK_YPFHDFHDY.Qry_ckdayinZJJESetText(Sender: TField;
const Text: String);
begin
CurrSetText(Sender,Text);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -