?? sy_ckjhdzd1_xd.pas
字號:
{*******************************************************}
{ }
{ 選擇請領單 }
{ }
{ 中軟金馬公司版權所有。2002.12前 }
{ }
{ 編制:中軟金馬郵資票品項目開發組 }
{ }
{ }
{*******************************************************}
(*
省級集郵票管理 地市集郵票
*)
unit SY_CKJHDZD1_XD;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Spin, ExtCtrls, ActnList, Grids, DBGrids, DBCtrls,
Mask, ToolEdit, CurrEdit, RXDBCtrl, Db, DBTables, RXCtrls, ImgList;
type
TFrmY_CKJHDZD1_XD = class(TForm)
Panel9: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Qry_GXDWSJB: TQuery;
P_XQ: TPanel;
RxDBGrid2: TRxDBGrid;
Qry_Five: TQuery;
DataSource5: TDataSource;
Qry_Four: TQuery;
DataSource4: TDataSource;
Qry_Second: TQuery;
Qry_SecondPPMC: TStringField;
Qry_SecondTDM: TStringField;
Qry_SecondXQZTS: TFloatField;
DataSource3: TDataSource;
Qry_FiveDWDM: TStringField;
Qry_FiveDWMC: TStringField;
Qry_FiveZT: TStringField;
Splitter1: TSplitter;
RxDBGrid1: TRxDBGrid;
Splitter2: TSplitter;
DBGrid4: TDBGrid;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure Qry_FourAfterScroll(DataSet: TDataSet);
procedure Qry_FiveAfterScroll(DataSet: TDataSet);
private
// V_QLDH,
// V_DWDM:String;
{ Private declarations }
public
V_ND:String;
{ Public declarations }
end;
var
FrmY_CKJHDZD1_XD: TFrmY_CKJHDZD1_XD;
implementation
uses
pub;
{$R *.DFM}
procedure TFrmY_CKJHDZD1_XD.FormCreate(Sender: TObject);
begin
GetAllColWidth(self);
end;
procedure TFrmY_CKJHDZD1_XD.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
SaveAllColWidth(self);
end;
procedure TFrmY_CKJHDZD1_XD.FormShow(Sender: TObject);
begin
with Qry_Five do
begin
Close;
SQL.Clear;
SQL.Add(' select DISTINCT A.DWDM ,B.DWJC DWMC,A.ZT from TY_JJWXQB A, TGS_GXDWSJB B');
SQL.Add('where A.DWDM=B.DWDM and A.ND = ''' + V_ND + '''');
SQL.Add(' and A.DWDM <>''' + VG_UnitID + ''' ');
SQL.Add(' and A.ZT<>''' + CG_YCL + ''' ');
Open;
end;
end;
procedure TFrmY_CKJHDZD1_XD.Qry_FourAfterScroll(DataSet: TDataSet);
begin
with Qry_Second do
begin
Close;
SQL.Clear;
SQL.Add('select DWDM,PPMC,TDM,XQZTS from TY_JJWXQB');
SQL.Add('Where QLDH =''' + QRY_Four.FieldByName('QLDH').AsString + '''');
Open;
end;
end;
procedure TFrmY_CKJHDZD1_XD.Qry_FiveAfterScroll(DataSet: TDataSet);
begin
Qry_Four.Close;
Qry_Second.Close;
with Qry_Four do
begin
Close;
SQL.Clear;
SQL.Add(' select DISTINCT QLDH,DWDM,ZT from TY_JJWXQB');
SQL.Add('where ND =''' + V_ND + '''');
SQL.Add(' and DWDM = ''' + Qry_Five.FieldByName('DWDM').AsString + ''' ');
SQL.Add(' and ZT<>''' + CG_YCL + ''' ');
Open;
end;
with Qry_Second do
begin
Close;
SQL.Clear;
SQL.Add(' select DWDM,PPMC,TDM,SUM(XQZTS) XQZTS from TY_JJWXQB');
SQL.Add('where ND =''' + V_ND + '''');
SQL.Add(' and DWDM = ''' + Qry_Five.FieldByName('DWDM').AsString + ''' ');
SQL.Add(' and ZT<>''' + CG_YCL + ''' ');
SQL.Add(' GROUP BY DWDM,PPMC,TDM ');
Open;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -