?? sy_tjdcx.pas
字號:
{*******************************************************}
{ }
{ 調價單查詢 }
{ }
{ 中軟金馬公司版權所有。2002.12前 }
{ }
{ 編制:中軟金馬項目開發組 }
{ }
{ }
{*******************************************************}
(*
本模塊在省級集郵票管理、省級市場購入票管理、省級集郵品管理、省級零枚票管理、
地市集郵票管理、地市集郵品管理、地市市場購入票管理 七個模塊調用
*)
unit SY_TJDCX;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Spin, ExtCtrls, ActnList, Grids, DBGrids, Db,
ComCtrls, DBTables, RXCtrls, Mask, ToolEdit, YzppSelect, SqlStrings,
RxQuery, Menus, DBGridExport;
type
TFrm_TJDCX = class(TForm)
Panel3: TPanel;
BBt_Quit: TBitBtn;
DBGrid1: TDBGrid;
DS_static: TDataSource;
Panel1: TPanel;
BBt_Find: TBitBtn;
Panel5: TPanel;
XttxTitle: TRxLabel;
DWMC: TLabel;
BitBtn3: TBitBtn;
SQLStr_pp: TSqlStrings;
YZPPSel_pp: TYzppSelect;
SQLStr_static: TSqlStrings;
RxQry_static: TRxQuery;
Label2: TLabel;
RxQry_staticTJDH: TStringField;
RxQry_staticORD: TFloatField;
RxQry_staticZH: TStringField;
RxQry_staticTMC: TStringField;
RxQry_staticSL: TFloatField;
RxQry_staticYDJ: TFloatField;
RxQry_staticYJE: TFloatField;
RxQry_staticXDJ: TFloatField;
RxQry_staticXJE: TFloatField;
RxQry_staticCE: TFloatField;
Label1: TLabel;
DP_FROM: TDateEdit;
Label11: TLabel;
DP_TO: TDateEdit;
RxQry_staticZBR: TStringField;
RxQry_staticTJRQ: TDateTimeField;
procedure Act_QuitExecute(Sender: TObject);
procedure BBt_FindClick(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure BitBtn3Click(Sender: TObject);
procedure RxQry_staticYDJGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
Lio_Type: TIO_TYPE;
{ Private declarations }
public
{ Public declarations }
end;
function Show_TJDCX(io_typ: TIO_TYPE): Boolean;
var
Frm_TJDCX: TFrm_TJDCX;
implementation
uses
datas,pub, SJ_TJDDY ;
{$R *.DFM}
function Show_TJDCX(io_typ: TIO_TYPE): Boolean;
begin
Application.CreateForm(Tfrm_TJDCX, frm_TJDCX);
with frm_TJDCX do
begin
DWMC.Caption := '使用單位:' + VG_UnitName;
Lio_type := io_typ;
Caption := '郵資票品管理信息系統——' + pCaption[integer(Lio_Type)] + '業務';
XttxTitle.Caption := '調價單查詢';
DP_To.Date := GetSYSDate;
DP_From.Date := DP_To.Date - 365;
RxQry_static.SQL.Text := SQLStr_static.FSqlText[Lio_type].Text;
YZPPSel_pp.SQL.Text := SQLStr_pp.FSqlText[Lio_type].Text;
YZPPSel_pp.Open;
result := ShowModal = MB_OK;
Free;
end;
end;
procedure TFrm_TJDCX.Act_QuitExecute(Sender: TObject);
begin
Close;
end;
procedure TFrm_TJDCX.BBt_FindClick(Sender: TObject);
begin
with RxQry_static do
begin
Close;
MacroByName('PPDM').AsString := 'PPDM';
if YZPPSel_pp.CurrDisText <> '' then
MacroByName('PPDM').AsString := '''' + YZPPSel_pp.GetFieldVal('TDM') + '''';
ParamByName('RQ_from').AsDateTime := DP_FROM.Date;
ParamByName('RQ_to').AsDateTime := DP_To.Date;
Open;
end;
end;
procedure TFrm_TJDCX.DBGrid1TitleClick(Column: TColumn);
begin
// DBGridTitleOrder(Column);
end;
procedure TFrm_TJDCX.BitBtn3Click(Sender: TObject);
function GetTJDPPSL: Integer;
var
v_str: string;
begin
case Lio_type of
io_jyp:
v_str := 'TYS_JYPTJDB';
io_txp:
v_str := 'TYS_TXPTJDB';
io_yp:
v_str := 'TYS_YPTJDB';
io_grp:
v_str := 'TYS_GRPTJDB';
end;
AssignSQLstr(data.qrytmp, 'select count(PPDM) from ' + v_str + ' where TJDH=''' + RxQry_static.FieldByname('TJDH').AsString + '''');
data.qrytmp.Open;
Result := data.qrytmp.Fields[0].AsInteger;
end;
begin
if RxQry_static.IsEmpty then
begin
CHQMsgBox('沒有可打印的調價單');
exit;
end;
with RxQry_static do
DoPntTJD(Lio_Type , FieldByname('TJDH').AsString, FieldByname('ZBR').AsString, FieldByname('TJRQ').AsString, GetTJDPPSL);
{ if Qry_Static.IsEmpty then
exit;
PrintDBGrid(DBGrid1, '集郵票調價(' + DP_FROM.Text + '到' + DP_TO.Text + ')');}
end;
procedure TFrm_TJDCX.RxQry_staticYDJGetText(Sender: TField;
var Text: string; DisplayText: Boolean);
begin
if Sender.AsFloat = 0 then
Text := ''
else
CurrGetText(Sender, Text, DisplayText);
end;
procedure TFrm_TJDCX.FormCreate(Sender: TObject);
begin
GetAllColWidth(Self);
end;
procedure TFrm_TJDCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SaveAllColWidth(Self);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -