?? sy_ckjhdcx.pas
字號:
{*******************************************************}
{ }
{ 出庫計劃單查詢 }
{ }
{ 中軟金馬公司版權所有。2002.12前 }
{ }
{ 編制：中軟金馬郵資票品項目開發組 }
{ }
{ }
{*******************************************************}
(*
本模塊在省級購入票系統管理模塊里面調用。
修改記錄
修改用于銷價進價結算價的顯示小數點后擴到3位 將Qry_JJNFPJH進價銷價結算價顯示調用的CurrGetText替換為CurrGetText3；結算價顯示調用CurrGetText jhshao 2003.05.08
*)
unit SY_CKJHDCX;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Spin,
Mask, ToolEdit, CurrEdit, ActnList, RXCtrls, Menus, DBGridExport,
FieldComboBox;
type
TFrmY_CKJHDCX = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
BitBtn3: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BBt_Quit: TBitBtn;
Ldwmc: TLabel;
Label3: TLabel;
BBt_Find: TBitBtn;
BBt_Print: TBitBtn;
ND: TSpinEdit;
Panel5: TPanel;
ALi_Edit: TActionList;
Act_AddDW: TAction;
Act_DeleteDW: TAction;
Act_AddFPJH: TAction;
Act_DeleteFPJH: TAction;
Act_ModifyFPJH: TAction;
Act_Find: TAction;
Act_Print: TAction;
Act_Save: TAction;
Act_Cancel: TAction;
Qry_JJNFPJH: TQuery;
DataSource3: TDataSource;
Qry_GXDWSJB: TQuery;
Act_Send: TAction;
Qry_Static: TQuery;
BBt_Hide: TBitBtn;
Panel4: TPanel;
RG_PX: TRadioGroup;
GroupBox1: TGroupBox;
Label11: TLabel;
Shape1: TShape;
CB_ZBR: TComboBox;
CB_JHH: TComboBox;
CB_PPMC: TComboBox;
CBB_DWMC: TCheckBox;
CBB_PPMC: TCheckBox;
CBB_JHH: TCheckBox;
DP_FROM: TDateTimePicker;
DP_TO: TDateTimePicker;
CBB_PZR: TCheckBox;
CB_PZR: TComboBox;
CBB_ZBR: TCheckBox;
CBB_ZDRQ: TCheckBox;
RG_ZT: TRadioGroup;
Act_Hide: TAction;
Query1: TQuery;
Panel6: TPanel;
DBGrid2: TDBGrid;
CBo_CKXZ: TCheckBox;
CB_CKXZ: TComboBox;
XttxTitle: TRxLabel;
Qry_JJNFPJHCKJHDH: TStringField;
Qry_JJNFPJHCKXZ: TStringField;
Qry_JJNFPJHZBR: TStringField;
Qry_JJNFPJHPZR: TStringField;
Qry_JJNFPJHZDRQ: TDateTimeField;
Qry_JJNFPJHBZ: TStringField;
Qry_JJNFPJHZT: TStringField;
Qry_JJNFPJHKFDM: TStringField;
Qry_JJNFPJHDWDM: TStringField;
Qry_JJNFPJHPPDM: TStringField;
Qry_JJNFPJHJJ: TFloatField;
Qry_JJNFPJHDWMC: TStringField;
Qry_JJNFPJHKWH: TStringField;
Qry_JJNFPJHPPMC: TStringField;
Qry_JJNFPJHYJ: TFloatField;
Qry_JJNFPJHXJ: TFloatField;
Qry_JJNFPJHZK: TFloatField;
Qry_JJNFPJHJSJ: TFloatField;
Qry_JJNFPJHFPSL: TFloatField;
CB_DWMC: TFieldComboBox;
procedure FormCreate(Sender: TObject);
procedure DBG_JJNFPJHTitleClick(Column: TColumn);
procedure NDChange(Sender: TObject);
procedure Act_FindExecute(Sender: TObject);
procedure Act_HideExecute(Sender: TObject);
procedure Act_PrintExecute(Sender: TObject);
procedure Qry_JJNFPJHJJGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
procedure Qry_JJNFPJHJJSetText(Sender: TField; const Text: string);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmY_CKJHDCX: TFrmY_CKJHDCX;
implementation
uses
datas,pub, SY_CKJHDCX_RPT, SJ_RICHEDIT;
{$R *.DFM}
procedure TFrmY_CKJHDCX.FormCreate(Sender: TObject);
begin
DP_FROM.DateTime := GetSysDate;
DP_TO.DateTime := DP_FROM.DateTime;
ND.Value := VG_Year;
Ldwmc.Caption := '使用單位：' + VG_UnitName;
with Qry_Static do
begin
Close;
SQL.Clear;
SQL.Add('select CKJHDH,ZBR,PZR from TYS_GRPCKJHDB ');
SQL.Add('where TO_CHAR(ZDRQ,''YYYY'') =''' + ND.Text + ''' ');
SQL.Add('order by CKJHDH DESC ');
Open;
while not Eof do
begin
if CB_JHH.Items.IndexOf(Fields[0].AsString) = -1 then
CB_JHH.Items.Add(Fields[0].AsString);
if Fields[1].AsString <> '' then
if CB_ZBR.Items.IndexOf(Fields[1].AsString) = -1 then
CB_ZBR.Items.Add(Fields[1].AsString);
if Fields[2].AsString <> '' then
if CB_PZR.Items.IndexOf(Fields[2].AsString) = -1 then
CB_PZR.Items.Add(Fields[2].AsString);
Next;
end;
Close;
SQL.Clear;
SQL.Add('select Distinct PPMC, PPDM from TYS_GRPCKJHDPPB');
SQL.Add('where CKJHDH LIKE ''GR%'' order by PPDM ');
Open;
while not Eof do
begin
if CB_PPMC.Items.IndexOf(Fields[0].AsString) = -1 then
CB_PPMC.Items.Add(Fields[0].AsString);
Next;
end;
Close;
SQL.Clear;
SQL.Add('select Distinct b.DWJC DWMC, b.PXM from TYS_GRPCKJHDPPB a, TGS_GXDWSJB b ' +
'where a.DWDM=b.DWDM and a.CKJHDH LIKE ''GR%''order by b.PXM ');
Open;
while not Eof do
begin
if CB_DWMC.Items.IndexOf(Fields[0].AsString) = -1 then
CB_DWMC.Items.Add(Fields[0].AsString);
Next;
end;
Close;
SQL.Clear;
SQL.Add('select RCKXZMC from TGS_JRCKXZDM where RCKXZDM like ''1%''');
Open;
while not Eof do
begin
if CB_CKXZ.Items.IndexOf(Fields[0].AsString) = -1 then
CB_CKXZ.Items.Add(Fields[0].AsString);
Next;
end;
end;
GetAllColWidth(self);
end;
procedure TFrmY_CKJHDCX.DBG_JJNFPJHTitleClick(Column: TColumn);
begin
if Qry_JJNFPJH.SQL.Count < 0 then Exit;
if Qry_JJNFPJH.SQL.Count > 2 then
with Qry_JJNFPJH do
begin
Close;
if Column.FieldName = 'DWMC' then
SQL[SQl.Count - 1] := 'order by DWDM'
else
SQL[SQl.Count - 1] := 'order by ' + Column.FieldName;
if RG_PX.ItemIndex = 1 then
SQL[SQl.Count - 1] := SQL[SQl.Count - 1] + ' DESC';
Open;
end;
if RG_PX.ItemIndex = 1 then
RG_PX.ItemIndex := 0
else
RG_PX.ItemIndex := 1;
end;
procedure TFrmY_CKJHDCX.NDChange(Sender: TObject);
begin
Act_FindExecute(nil);
end;
procedure TFrmY_CKJHDCX.Act_FindExecute(Sender: TObject);
begin
//------------------------------------------------------------------------------
VG_SQLWhere := '';
if CBB_JHH.Checked and (CB_JHH.Text <> '') then //1計劃號
VG_SQLWhere := ' and A.CKJHDH = ''' + CB_JHH.Text + ''' ';
if CBB_DWMC.Checked and (CB_DWMC.Text <> '') then //2單位名稱
VG_SQLWhere := VG_SQLWhere + ' and DWMC = ''' + CB_DWMC.Text + '''';
if CBB_PPMC.Checked and (CB_PPMC.Text <> '') then //2票品名稱
VG_SQLWhere := VG_SQLWhere + ' and PPMC = ''' + CB_PPMC.Text + '''';
if CBB_PZR.Checked and (CB_PZR.Text <> '') then //3批準人
VG_SQLWhere := VG_SQLWhere + ' and PZR = ''' + CB_PZR.Text + ''' ';
if CBB_ZBR.Checked and (CB_ZBR.Text <> '') then //4制表人
VG_SQLWhere := VG_SQLWhere + ' and ZBR = ''' + CB_ZBR.Text + ''' ';
if CBo_CKXZ.Checked and (CB_CKXZ.Text <> '') then
VG_SQLWhere := VG_SQLWhere + ' and RCKXZMC = ''' + CB_CKXZ.Text + ''' ';
case RG_ZT.ItemIndex of //5狀態
0: VG_SQLWhere := VG_SQLWhere + ' and ZT =''' + CG_WCL + ''' ';
1: VG_SQLWhere := VG_SQLWhere + ' and ZT =''' + CG_DG + ''' ';
2: VG_SQLWhere := VG_SQLWhere + ' and ZT =''' + CG_YCL + ''' ';
end;
if CBB_ZDRQ.Checked then //6制單日期
begin
VG_SQLWhere := VG_SQLWhere + ' and ZDRQ >=TO_DATE(''' + FormatDateTime('YYYY-DD-MM', DP_FROM.DateTime) + ''',''YYYY-DD-MM'') ';
VG_SQLWhere := VG_SQLWhere + ' and ZDRQ <=TO_DATE(''' + FormatDateTime('YYYY-DD-MM', DP_TO.DateTime) + ''',''YYYY-DD-MM'') ';
end;
//------------------------------------------------------------------------------
with Qry_JJNFPJH do
begin
Close;
SQL.Clear;
SQL.Add('select A.CKJHDH, C.RCKXZMC CKXZ, A.ZBR, A.PZR,A.ZDRQ, A.BZ , A.ZT, ');
SQL.Add('B.KFDM, B.DWDM, B.PPDM, B.JJ, B.DWMC, B.KWH, B.PPMC, B.YJ, B.XJ, B.ZK, B.JSJ, B.FPSL ');
SQL.Add('FROM TYS_GRPCKJHDB A,TYS_GRPCKJHDPPB B, TGS_JRCKXZDM C ');
SQL.Add('where A.CKJHDH = B.CKJHDH and A.CKXZ = C.RCKXZDM ');
SQL.Add('and TO_CHAR(A.ZDRQ,''YYYY'') =''' + IntToStr(ND.Value) + ''' ');
SQL.Add(VG_SQLWhere);
SQL.Add('order by A.CKJHDH ');
Open;
end;
end;
procedure TFrmY_CKJHDCX.Act_HideExecute(Sender: TObject);
begin
Panel4.Visible := not Panel4.Visible;
if panel4.Visible then
begin
BBt_Hide.Caption := '隱藏(&H)';
BBt_Hide.Hint := '隱藏所有的查詢條件。';
end
else
begin
BBt_Hide.Caption := '顯示(&X)';
BBt_Hide.Hint := '顯示所有的查詢條件。'
end;
end;
procedure TFrmY_CKJHDCX.Act_PrintExecute(Sender: TObject);
var
StrsQl: string;
begin
if CB_JHH.Text = '' then
begin
CHQMsgBox('請選擇分配單號！');
Exit;
end;
if Qry_JJNFPJH.IsEmpty then Exit;
Application.CreateForm(TFrm_RichEdit, Frm_RichEdit);
Application.CreateForm(TCKJHDCX_RPT, CKJHDCX_RPT);
with CKJHDCX_RPT, Frm_RichEdit do
try
StrSQL := 'select ROWNUM, A.CKJHDH, A.CKXZ, A.ZBR, A.PZR,A.ZDRQ, A.BZ ,B.DWMC, B.PPMC,C.ZH,B.XJ/100 XJ, DECODE(B.ZK,0,B.JSJ/100,B.ZK) ZK, B.JSJ/100 JSJ,';
StrSQL:= StrSQL+' B.FPSL,decode(JSJ,0,B.ZK*B.XJ*B.FPSL/10000, B.JSJ*B.FPSL/100) JE FROM TYS_GRPCKJHDB A,TYS_GRPCKJHDPPB B,TB_YZPPXXB C where A.CKJHDH = B.CKJHDH and B.PPDM=C.TDM AND A.CKJHDH =''' + CB_JHH.Text + '''';
Qry_Print.SQL.Text := StrSQL;
Qry_Print.Open;
QRLabel12.Caption := '購入票';
QRLabel20.Caption := FormatDateTime('yyyy"年"mm"月"dd"日"', StrToDate(Qry_Print.fieldByName('zdrq').AsString));
if CHQMsgBox('是否采用套打？', 2) = IDYES then
Tao_Print_Flag := True
else
Tao_Print_Flag := False;
DetailLines := 0;
Prepare;
try
QRLabel19.Caption := IntToStr(QRPrinter.PageCount);
finally
QRPrinter.Free;
end;
QRPrinter := nil;
Preview;
finally
CKJHDCX_RPT.Destroy;
Frm_RichEdit.Destroy;
end;
end;
procedure TFrmY_CKJHDCX.Qry_JJNFPJHJJGetText(Sender: TField;
var Text: string; DisplayText: Boolean);
begin
{修改，銷價進價結算價顯示小數點后3位 原來調用的CurrGetText替換為CurrGetText3 jhshao 2003.05.08}
CurrGetText3(Sender, Text, DisplayText);
end;
procedure TFrmY_CKJHDCX.Qry_JJNFPJHJJSetText(Sender: TField;
const Text: string);
begin
CurrSetText(Sender, Text);
end;
procedure TFrmY_CKJHDCX.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
SaveAllColWidth(self);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -