?? unit_queryarrearage.pas
字號:
unit unit_QueryArrearage;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Unit_custombrowsebase, ImgList, Menus, Db, DBTables, Grids, DBGrids,
ComCtrls, TFlatCheckBoxUnit, TFlatSpinEditUnit, ToolWin, StdCtrls,
TFlatEditUnit, TFlatComboBoxUnit, TFlatButtonUnit, ExtCtrls,
TFlatRadioButtonUnit, CheckLst, TFlatCheckListBoxUnit;
const
INVALI='1'; //無效值
VALI='2'; //有效值
MAXUSER_FKFSCount=40;//最大功能數
type
Tfrm_QueryArrearage = class(Tform_custombrowsebase)
cbGR_QFJED: TFlatCheckBox;
Label8: TLabel;
Label9: TLabel;
spiGR_QFJEDBegin: TFlatSpinEditInteger;
spiGR_QFJEDEnd: TFlatSpinEditInteger;
Label10: TLabel;
cbGR_DTAgain: TFlatCheckBox;
cbGR_STAgain: TFlatCheckBox;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
cbJT_QFJED: TFlatCheckBox;
spiJT_QFJEDBegin: TFlatSpinEditInteger;
spiJT_QFJEDEnd: TFlatSpinEditInteger;
FlatCheckBox2: TFlatCheckBox;
FlatCheckBox3: TFlatCheckBox;
cbGR_XYD: TFlatCheckBox;
cbGR_QT_XYD: TFlatCheckBox;
cbGR_USER_FKFS: TFlatCheckBox;
btnGR_USER_FKFSFull: TFlatButton;
BtnGR_USER_FKFSNone: TFlatButton;
clbGR_USER_FKFS: TFlatCheckListBox;
N4: TMenuItem;
pmi_CustStop: TMenuItem;
procedure cbGR_QFJEDClick(Sender: TObject);
procedure cbJT_QFJEDClick(Sender: TObject);
procedure spiJT_QFJEDEndEnter(Sender: TObject);
procedure spiGR_QFJEDBeginChange(Sender: TObject);
procedure spiJT_QFJEDBeginChange(Sender: TObject);
procedure cbGR_USER_FKFSClick(Sender: TObject);
procedure btnGR_USER_FKFSFullClick(Sender: TObject);
procedure BtnGR_USER_FKFSNoneClick(Sender: TObject);
procedure pmi_CustStopClick(Sender: TObject);
procedure FlatButton2Click(Sender: TObject);
procedure FlatButton3Click(Sender: TObject);
private
ifunCount:integer;
array_USER_FKFS:string[40];
array_USER_FKFSvalues:array [1..MAXUSER_FKFSCount] of integer;
array_USER_FKFSdesc:array [1..MAXUSER_FKFSCount] of string;
{ Private declarations }
protected
procedure pro_initcombobox(sender:tobject);override;
procedure pro_initother(sender:tobject);override;
procedure pro_GR_getid(sender:tobject);override;
procedure pro_JT_getid(sender:tobject);override;
procedure pro_GR_OpenDataSet(sender:tobject;strsql:string);override;
procedure pro_JT_OpenDataSet(sender:tobject;strsql:string);override;
procedure pro_GR_getsqlwhere(sender:tobject);override;
procedure pro_JT_getsqlwhere(sender:tobject);override;
procedure pro_GR_checkcondition(sender:tobject);override;
procedure pro_JT_checkcondition(sender:tobject);override;
//根據列表框中的選中列生成相應的查詢條件
function fun_getUSER_FKFSCheck(sender:tobject):string;
public
{ Public declarations }
end;
var
frm_QueryArrearage: Tfrm_QueryArrearage;
implementation
uses dmmain,PrintFrmForm,
Unit_CustStatusBackWrite;
Function Fun_ExportData(pFileName:String;pReportTitle:String;pObjectSource:TObject):Boolean;stdcall;external'winfun.dll';
{$R *.DFM}
{ Tform_arrearage_B }
procedure Tfrm_QueryArrearage.pro_GR_getid(sender: tobject);
begin
inherited;
end;
procedure Tfrm_QueryArrearage.pro_GR_OpenDataSet(sender: tobject;
strsql: string);
begin
with browse_normal do
begin
close;
sql.clear;
sql.add('select * from T_V_GR_QueryArrearage');
sql.add('where 1=1');
sql.add(strsql);
open;
end;
end;
procedure Tfrm_QueryArrearage.pro_initcombobox(sender: tobject);
begin
inherited;
end;
procedure Tfrm_QueryArrearage.pro_initother(sender: tobject);
var
tmpstr:string;
i,j,iPos:integer;
begin
inherited;
with query_tmp do
begin
close;
sql.clear;
sql.add('select PAR_Desc,USER_FKFS from t_v_user_fkfs');
open;
iFunCount:=recordcount;
clbGR_USER_FKFS.Items.Clear;
array_USER_FKFS:='';
// i:=0;
first;
while not eof do
begin
iPos:=strtoint(trim(fieldbyname('USER_FKFS').asstring));
if not(pos('預留',fieldbyname('PAR_Desc').asstring)>0) then
begin
//clbGR_USER_FKFS.Items.Add(trim(fieldbyname('PAR_Desc').asstring));
array_USER_FKFSvalues[iPos]:=iPos;
array_USER_FKFSdesc[iPos]:=trim(fieldbyname('PAR_Desc').asstring);
array_USER_FKFS[iPos]:=VALI; //有效
end
else
begin
array_USER_FKFSvalues[iPos]:=0;
array_USER_FKFS[iPos]:=INVALI; //無效
end;
next;
// inc(i)
end;
end;
for i:=1 to MAXUSER_FKFSCount do
begin
if array_USER_FKFS[i] = VALI then
clbGR_USER_FKFS.Items.Add(array_USER_FKFSdesc[i]);
end;
end;
procedure Tfrm_QueryArrearage.pro_JT_getid(sender: tobject);
begin
inherited;
end;
procedure Tfrm_QueryArrearage.pro_JT_OpenDataSet(sender: tobject;
strsql: string);
begin
with browse_normal do
begin
close;
sql.clear;
sql.add('select * from T_V_JT_QueryArrearage');
sql.add('where 1=1');
sql.add(strsql);
open;
end;
end;
procedure Tfrm_QueryArrearage.pro_GR_checkcondition(sender: tobject);
begin
inherited;
end;
procedure Tfrm_QueryArrearage.pro_GR_getsqlwhere(sender: tobject);
var
tmpstr:string;
begin
inherited;
//
if edGR_SID.Text<>'' then
tmpstr:=tmpstr+' and '+'t.SID='+''''+edGR_SID.Text+'''';
if lGR_cityno<>'' then
tmpstr:=tmpstr+' and '+'t.cityno='+lGR_cityno;
if lGR_off_no_home<>'' then
tmpstr:=tmpstr+' and '+'t.off_no_home='+lGR_off_no_home;
if lGR_GH<>'' then
tmpstr:=tmpstr+' and '+'t.WK_NO='+''''+lGR_GH+'''';
//
if cbGR_QFJED.checked then
tmpstr:=tmpstr+' and '+'t.OWEFEE between '+inttostr(spiGR_QFJEDBegin.value)+' and '+inttostr(spiGR_QFJEDEnd.value);
if cbGR_XYD.Checked then //單停信用點
tmpstr:=tmpstr+' and t.XYD<=t.OweFee';
if cbGR_QT_XYD.Checked then //全停信用點
tmpstr:=tmpstr+' and t.QT_XYD<=t.OweFee';
if cbGR_USER_FKFS.Checked then
tmpstr:=tmpstr+fun_getUSER_FKFSCheck(self);
GR_sqlwhere:=GR_sqlwhere+tmpstr;
end;
procedure Tfrm_QueryArrearage.pro_JT_checkcondition(sender: tobject);
begin
inherited;
end;
procedure Tfrm_QueryArrearage.pro_JT_getsqlwhere(sender: tobject);
var
tmpstr:string;
begin
inherited;
//
if lJT_JTYHDM<>'' then //集團代碼
tmpstr:=tmpstr+' and '+'t.Group_Id='+lJT_JTYHDM;
if lJT_cityno<>'' then //地市
tmpstr:=tmpstr+' and '+'t.cityno='+lJT_cityno;
if lJT_off_no_home<>'' then //局向
tmpstr:=tmpstr+' and '+'t.off_no_home='+lJT_off_no_home;
if lJT_GH<>'' then //
tmpstr:=tmpstr+' and '+'t.WK_NO='+''''+lJT_GH+'''';
//
if cbJT_QFJED.checked then
tmpstr:=tmpstr+' and '+'t.OWEFEE between '+inttostr(spiJT_QFJEDBegin.value)+' and '+inttostr(spiJT_QFJEDEnd.value);
JT_sqlwhere:=JT_sqlwhere+tmpstr;
end;
procedure Tfrm_QueryArrearage.cbGR_QFJEDClick(Sender: TObject);
begin
inherited;
if cbGR_QFJED.Checked then
begin
spiGR_QFJEDBegin.colorflat:=clwindow;
spiGR_QFJEDEnd.colorflat:=clwindow;
spiGR_QFJEDBegin.Enabled:=true;
spiGR_QFJEDEnd.Enabled:=true;
end
else
begin
spiGR_QFJEDBegin.colorflat:=clActiveBorder;
spiGR_QFJEDEnd.colorflat:=clActiveBorder;
spiGR_QFJEDBegin.Enabled:=false;
spiGR_QFJEDEnd.Enabled:=false;
end;
end;
procedure Tfrm_QueryArrearage.cbJT_QFJEDClick(Sender: TObject);
begin
inherited;
if cbJT_QFJED.Checked then
begin
spiJT_QFJEDBegin.colorflat:=clwindow;
spiJT_QFJEDEnd.colorflat:=clwindow;
spiJT_QFJEDBegin.Enabled:=true;
spiJT_QFJEDEnd.Enabled:=true;
end
else
begin
spiJT_QFJEDBegin.colorflat:=clActiveBorder;
spiJT_QFJEDEnd.colorflat:=clActiveBorder;
spiJT_QFJEDBegin.Enabled:=false;
spiJT_QFJEDEnd.Enabled:=false;
end;
end;
procedure Tfrm_QueryArrearage.spiJT_QFJEDEndEnter(Sender: TObject);
begin
inherited;
if sender=spiGR_QFJEDBegin then
begin
spiGR_QFJEDEnd.MinValue:=spiGR_QFJEDBegin.Value;
if spiGR_QFJEDEnd.Value<spiGR_QFJEDBegin.Value then
spiGR_QFJEDEnd.Value:=spiGR_QFJEDBegin.Value;
end;
if sender=spiJT_QFJEDBegin then
begin
spiJT_QFJEDEnd.MinValue:=spiJT_QFJEDBegin.Value;
if spiJT_QFJEDEnd.Value<spiJT_QFJEDBegin.Value then
spiJT_QFJEDEnd.Value:=spiJT_QFJEDBegin.Value;
end;
end;
procedure Tfrm_QueryArrearage.spiGR_QFJEDBeginChange(Sender: TObject);
begin
inherited;
if sender=spiGR_QFJEDBegin then
begin
spiGR_QFJEDEnd.MinValue:=spiGR_QFJEDBegin.Value;
if spiGR_QFJEDEnd.Value<spiGR_QFJEDBegin.Value then
spiGR_QFJEDEnd.Value:=spiGR_QFJEDBegin.Value;
end;
end;
procedure Tfrm_QueryArrearage.spiJT_QFJEDBeginChange(Sender: TObject);
begin
inherited;
if sender=spiJT_QFJEDBegin then
begin
spiJT_QFJEDEnd.MinValue:=spiJT_QFJEDBegin.Value;
if spiJT_QFJEDEnd.Value<spiJT_QFJEDBegin.Value then
spiJT_QFJEDEnd.Value:=spiJT_QFJEDBegin.Value;
end;
end;
procedure Tfrm_QueryArrearage.cbGR_USER_FKFSClick(Sender: TObject);
var
itmp:integer;
begin
inherited;
if cbGR_USER_FKFS.Checked then
begin
clbGR_USER_FKFS.Color:=clwindow;
clbGR_USER_FKFS.Enabled:=true;
btnGR_USER_FKFSFull.enabled:=true;
BtnGR_USER_FKFSNone.enabled:=true;
btnGR_USER_FKFSFull.OnClick(self);
clbGR_USER_FKFS.Checked[3]:=false;
end
else
begin
clbGR_USER_FKFS.Color:=clBtnFace;
clbGR_USER_FKFS.Enabled:=false;
btnGR_USER_FKFSFull.enabled:=false;
BtnGR_USER_FKFSNone.enabled:=false
end;
end;
procedure Tfrm_QueryArrearage.btnGR_USER_FKFSFullClick(Sender: TObject);
var
i:integer;
begin
inherited;
with clbGR_USER_FKFS do
begin
for i:=0 to items.Count-1 do
begin
checked[i]:=true;
end;
end;
end;
procedure Tfrm_QueryArrearage.BtnGR_USER_FKFSNoneClick(Sender: TObject);
var
i:integer;
begin
inherited;
with clbGR_USER_FKFS do
begin
for i:=0 to items.Count-1 do
begin
checked[i]:=false;
end;
end;
end;
function Tfrm_QueryArrearage.fun_getUSER_FKFSCheck(
sender: tobject): string;
var
i,j:integer;
tmpstr:string;
itemcheck:boolean;
begin
result:='';
i:=0;
j:=0;
itemcheck:=false;
tmpstr:=' and USER_FKFS in (';
for i:=0 to clbGR_USER_FKFS.Items.Count-1 do
if clbGR_USER_FKFS.checked[i] then
begin
itemcheck:=true;
for j:=1 to MAXUSER_FKFSCount do
if array_USER_FKFSdesc[j]=trim(clbGR_USER_FKFS.Items[i]) then
begin
tmpstr:=tmpstr+''''+inttostr(array_USER_FKFSvalues[j])+''''+',';
break;
end;
end;
delete(tmpstr,length(tmpstr),1);//刪除最后一個逗號;
tmpstr:=tmpstr+')';
if itemcheck then
result:=tmpstr
else
result:='and USER_FKFS is null';
end;
procedure Tfrm_QueryArrearage.pmi_CustStopClick(Sender: TObject);
begin
inherited;
Application.CreateForm(TFrm_CustStatusBackWrite,Frm_CustStatusBackWrite);
end;
procedure Tfrm_QueryArrearage.FlatButton2Click(Sender: TObject);
begin
inherited;
if browse_normal.Active then
if not (browse_normal.Bof and browse_normal.Eof) then
begin
if PageControl1.ActivePageIndex=0 then
begin
try
PrintDbGrid(dbgGR.datasource.dataset,dbgGR,'大客戶欠費信息個人客戶');
except
Application.MessageBox('系統在執行過程中發生錯誤！','提示',MB_ICONINFORMATION);
exit;
end;//try
end
else
begin
try
PrintDbGrid(dbgJT.datasource.dataset,dbgJT,'大客戶欠費信息集團客戶');
except
Application.MessageBox('系統在執行過程中發生錯誤！','提示',MB_ICONINFORMATION);
exit;
end;//try
end;
end;
end;
procedure Tfrm_QueryArrearage.FlatButton3Click(Sender: TObject);
begin
inherited;
if browse_normal.Active then
if not (browse_normal.Bof and browse_normal.Eof) then
begin
if PageControl1.ActivePageIndex=0 then
Fun_ExportData('大客戶欠費信息個人客戶','大客戶欠費信息個人客戶',dbgGR)
else
Fun_ExportData('大客戶欠費信息集團客戶','大客戶欠費信息集團客戶',dbgJT)
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -