?? unit_custombrowsebase.pas
字號:
coGR_cityno.OnChange(self);
coJT_cityno.OnChange(self);
Pro_GFillInitValue(Self,'所有');
end;
procedure Tform_custombrowsebase.pro_initother(sender: tobject);
var
i:integer;
begin
edGR_SID.Text:='';
dtpGR_BE_DH_TBegin.Date:=now;
dtpGR_BE_DH_TEnd.Date:=now;
dtpJT_BE_G_DateBegin.Date:=now;
dtpJT_BE_G_DateEnd.Date:=now;
StatusBar1.Panels[0].text:=self.Caption;
StatusBar1.Panels[1].text:=PageControl1.ActivePage.Caption;
//初始化排序列表
lbGR_canselect.Clear;
for i:=0 to lbGR_fieldcomment.Items.Count-1 do
lbGR_canselect.Items.Add(lbGR_fieldcomment.Items[i]);
lbJT_canselect.Clear;
for i:=0 to lbJT_fieldcomment.Items.Count-1 do
lbJT_canselect.Items.Add(lbJT_fieldcomment.Items[i]);
cbGR_Order.Checked:=false;
cbJT_Order.Checked:=false;
end;
procedure Tform_custombrowsebase.btnGR_highlevelClick(Sender: TObject);
begin
if btnGR_highlevel.tag=2 then
begin
PanelGR_highlevel.Visible:=true;
PanelGR_highlevel.top:=PanelGRBTN_highlevel.top+PanelGRBTN_highlevel.Height;
PanelGR_highlevel1.Visible:=true;
PanelGR_highlevel1.top:=PanelGR_highlevel.top+PanelGR_highlevel.Height;
PanelGR_highlevel2.Visible:=true;
PanelGR_highlevel2.top:=PanelGR_highlevel1.top+PanelGR_highlevel1.Height;
btnGR_highlevel.down:=true;
btnGR_highlevel.tag:=1;
end
else
if btnGR_highlevel.tag=1 then
begin
PanelGR_highlevel1.Visible:=false;
PanelGR_highlevel2.Visible:=false;
PanelGR_highlevel.Visible:=false;
btnGR_highlevel.down:=false;
btnGR_highlevel.tag:=2;
end;
ScrollBox_GR.VertScrollBar.Position:=PanelGRBTN_highlevel.Top;//個人高級選項
end;
procedure Tform_custombrowsebase.btnGR_stuffClick(Sender: TObject);
begin
{if btnGR_stuff.tag=2 then
begin
PanelGR_stuff.Visible:=true;
PanelGR_stuff.top:=PanelGRBTN_stuff.top+PanelGRBTN_stuff.Height;
btnGR_stuff.down:=true;
btnGR_stuff.tag:=1;
end
else
if btnGR_stuff.tag=1 then
begin
PanelGR_stuff.Visible:=false;
btnGR_stuff.down:=false;
btnGR_stuff.tag:=2;
end;
ScrollBox_GR.VertScrollBar.Position:=PanelGRBTN_stuff.Top;//個人高級選項
}
end;
procedure Tform_custombrowsebase.btnJT_HighLevelClick(Sender: TObject);
begin
if btnJT_highlevel.tag=2 then
begin
PanelJT_highlevel.Visible:=true;
PanelJT_highlevel.top:=PanelJTBTN_highlevel.top+PanelJTBTN_highlevel.Height;
PanelJT_highlevel1.Visible:=true;
PanelJT_highlevel1.top:=PanelJT_highlevel.top+PanelJT_highlevel.Height;
btnJT_highlevel.down:=true;
btnJT_highlevel.tag:=1;
end
else
if btnJT_highlevel.tag=1 then
begin
PanelJT_highlevel1.Visible:=false;
PanelJT_highlevel.Visible:=false;
btnJT_highlevel.down:=false;
btnJT_highlevel.tag:=2;
end;
ScrollBox_JT.VertScrollBar.Position:=PanelJTBTN_HighLevel.Top;//個人高級選項
end;
procedure Tform_custombrowsebase.cbGR_BE_DH_TClick(Sender: TObject);
begin
if cbGR_BE_DH_T.Checked then
begin
dtpGR_BE_DH_TBegin.Color:=clwindow;
dtpGR_BE_DH_TEnd.Color:=clwindow;
dtpGR_BE_DH_TBegin.Enabled:=true;
dtpGR_BE_DH_TEnd.Enabled:=true;
end
else
begin
dtpGR_BE_DH_TBegin.Color:=clActiveBorder;
dtpGR_BE_DH_TEnd.Color:=clActiveBorder;
dtpGR_BE_DH_TBegin.Enabled:=false;
dtpGR_BE_DH_TEnd.Enabled:=false;
end;
end;
procedure Tform_custombrowsebase.cbJT_Be_G_DateClick(Sender: TObject);
begin
if cbJT_BE_G_Date.Checked then
begin
dtpJT_BE_G_DateBegin.Color:=clwindow;
dtpJT_BE_G_DateEnd.Color:=clwindow;
dtpJT_BE_G_DateBegin.Enabled:=true;
dtpJT_BE_G_DateEnd.Enabled:=true;
end
else
begin
dtpJT_BE_G_DateBegin.Color:=clActiveBorder;
dtpJT_BE_G_DateEnd.Color:=clActiveBorder;
dtpJT_BE_G_DateBegin.Enabled:=false;
dtpJT_BE_G_DateEnd.Enabled:=false;
end;
//coJT_Name.ItemIndex:=0;
end;
procedure Tform_custombrowsebase.pro_GR_getid(sender: tobject);
var
tmpstr:string;
i:integer;
begin
lGR_GH:='';
lGR_cityno:='';
lGR_off_no_home:='';
lGR_USER_ZJBS:='';
lGR_DJDM:='';
lGR_SXDM:='';
lGR_Stat:='';
lGR_ZY:='';
lGR_XB:='';
if coGR_GH.text<>'所有' then
lGR_GH:=copy(coGR_GH.text,1,pos(':',coGR_GH.text)-1);
if CoGR_CityNo.text<>'所有' then
lGR_cityno:=Fun_GetCity(CoGR_CityNo,'',1);
if CoGR_OFF_NO_HOME.text<>'所有' then
lGR_off_no_home:=Fun_GetCounty(CoGR_OFF_NO_HOME,'','',1);
if CoGR_USER_ZJBS.text<>'所有' then
lGR_USER_ZJBS:=fun_getcodename(coGR_USER_ZJBS);
if coGR_DJDM.text<>'所有' then
lGR_DJDM:=fun_getcodename(coGR_DJDM);
if coGR_SXDM.text<>'所有' then
lGR_SXDM:=fun_getcodename(coGR_SXDM);
if coGR_Stat.text<>'所有' then
lGR_Stat:=fun_getcodename(coGR_Stat);
if coGR_ZY.text<>'所有' then
lGR_ZY:=fun_getcodename(coGR_ZY);
if coGR_XB.text<>'所有' then
lGR_XB:=fun_getcodename(coGR_XB);
end;
procedure Tform_custombrowsebase.pro_JT_getid(sender: tobject);
var
tmpstr:string;
i:integer;
begin
lJT_GH:='';
lJT_cityno:='';
lJT_off_no_home:='';
lJT_HYDM:='';
lJT_GroupFlag:='';
lJT_JTLB:='';
lJT_JTYHMC:='';
lJT_JTYHDM:='';
if coJT_GH.text<>'所有' then
lJT_GH:=copy(coJT_GH.text,1,pos(':',coJT_GH.text)-1);
if CoJT_CityNo.text<>'所有' then
lJT_cityno:=Fun_GetCity(CoJT_CityNo,'',1);
if CoJT_OFF_NO_HOME.text<>'所有' then
lJT_off_no_home:=Fun_GetCounty(CoJT_OFF_NO_HOME,'','',1);
if coJT_GroupFlag.text<>'所有' then
lJT_GroupFlag:=fun_getcodename(coJT_GroupFlag);
if coJT_HYDM.text<>'所有' then
lJT_HYDM:=fun_getcodename(coJT_HYDM);
if coJT_JTLB.text<>'所有' then
lJT_JTLB:=fun_getcodename(coJT_JTLB);
if edJT_DMORMC.text<>'' then
begin
tmpstr:=trim(edJT_DMORMC.text);
for i:=1 to length(trim(edJT_DMORMC.text)) do
begin
if not (tmpstr[i] in ['0'..'9']) then
lJT_JTYHMC:=tmpstr;
end;
if lJT_JTYHMC='' then
lJT_JTYHDM:=tmpstr;
end;
{with query_tmp do
begin
// 企業名稱
if coJT_Name.text<>'所有' then
begin
close;
sql.clear;
sql.add('select JTYHDM from T_F_GROUPINFO');
sql.add('where trim(JTYHMC)='+''''+coJT_Name.text+'''');
open;
if recordcount>0 then
lJT_JTYHMC:=trim(fieldbyname('JTYHDM').asstring);
end;
end;}
end;
procedure Tform_custombrowsebase.cbGR_ZWSJClick(Sender: TObject);
begin
if cbGR_ZWSJ.Checked then
begin
spiGR_ZWSJBegin.colorflat:=clwindow;
spiGR_ZWSJEnd.colorflat:=clwindow;
spiGR_ZWSJBegin.Enabled:=true;
spiGR_ZWSJEnd.Enabled:=true;
end
else
begin
spiGR_ZWSJBegin.colorflat:=clActiveBorder;
spiGR_ZWSJEnd.colorflat:=clActiveBorder;
spiGR_ZWSJBegin.Enabled:=false;
spiGR_ZWSJEnd.Enabled:=false;
end;
end;
procedure Tform_custombrowsebase.cbGR_AgeClick(Sender: TObject);
begin
if cbGR_Age.Checked then
begin
spiGR_AgeBegin.colorflat:=clwindow;
spiGR_AgeEnd.colorflat:=clwindow;
spiGR_AgeBegin.Enabled:=true;
spiGR_AgeEnd.Enabled:=true;
end
else
begin
spiGR_AgeBegin.colorflat:=clActiveBorder;
spiGR_AgeEnd.colorflat:=clActiveBorder;
spiGR_AgeBegin.Enabled:=false;
spiGR_AgeEnd.Enabled:=false;
end;
end;
procedure Tform_custombrowsebase.cbJT_JTCYClick(Sender: TObject);
begin
if cbJT_JTCY.Checked then
begin
spiJT_JTCYBegin.colorflat:=clwindow;
spiJT_JTCYEnd.colorflat:=clwindow;
spiJT_JTCYBegin.Enabled:=true;
spiJT_JTCYEnd.Enabled:=true;
end
else
begin
spiJT_JTCYBegin.colorflat:=clActiveBorder;
spiJT_JTCYEnd.colorflat:=clActiveBorder;
spiJT_JTCYBegin.Enabled:=false;
spiJT_JTCYEnd.Enabled:=false;
end;
//coJT_Name.ItemIndex:=0;
end;
procedure Tform_custombrowsebase.FlatButton1Click(Sender: TObject);
var
tmpsql,tmpstr:string;
beforebrowsetime:tdatetime;
doubletmp,doubleinter:double;
begin
GR_sqlOrder:='';
GR_sqlwhere:='';
JT_sqlOrder:='';
JT_sqlwhere:='';
beforebrowsetime:=now;
doubleinter:=0;
tmpstr:=self.Name;
delete(tmpstr,1,3);
if PageControl1.ActivePageIndex=0 then
tmpstr:='T_V_GR'+tmpstr+' t';
if PageControl1.ActivePageIndex=1 then
tmpstr:='T_V_JT'+tmpstr+' t';
if PageControl1.ActivePageIndex=0 then//個人客戶
begin
pro_GR_checkcondition(self);
if GR_condition then
begin
pro_GR_Getid(self);
pro_GR_Getsqlwhere(self);
if (cbGR_Order.Checked) and (lbGR_selected.Items.Count>0) then
pro_GR_GetsqlOrder(self);
if GR_sqlwhere='' then
begin
doubleinter:=now-beforebrowsetime;
// if fun_messagebox('無查詢條件,是否繼續',1,1)<>1 then
// exit
// else
// beforebrowsetime:=now;
end;
try
{with query_tmp do
begin
close;
sql.clear;
sql.add('select count(*) Rcount from '+tmpstr +' where 1=1');
sql.add(GR_sqlwhere);
open;
if fieldbyname('Rcount').asinteger>=REMIDEROW then
begin
doubleinter:=doubleinter+(now-beforebrowsetime);
if fun_messagebox('記錄返回 '+inttostr(fieldbyname('Rcount').asinteger)+' 條，是否繼續顯示',1,1)<>1 then
exit
else
beforebrowsetime:=now;
end;
StatusBar1.Panels[3].Text:=inttostr(fieldbyname('Rcount').asinteger)+' 條';
end;}
pro_GetsqlQuery(self);
with browse_normal do
begin
close;
sql.clear;
sql.Add(GR_sqlquery+GR_sqlwhere+GR_sqlOrder);
open;
StatusBar1.Panels[3].Text:='成功';
end;
doubletmp:=doubleinter+(now-beforebrowsetime);
StatusBar1.Panels[4].Text:='本次查詢費時 '+currtostr(doubletmp*86400)+' 秒';
except
// fun_messagebox('系統在執行過程中發生錯誤,請檢查輸入條件');
end;
end;
end;
if PageControl1.ActivePageIndex=1 then//集團客戶
begin
pro_JT_checkcondition(self);
if JT_condition then
begin
pro_JT_Getid(self);
pro_JT_Getsqlwhere(self);
if (cbJT_Order.Checked) and (lbGR_selected.Items.Count>0) then
pro_JT_GetsqlOrder(self);
if JT_sqlwhere='' then
begin
doubleinter:=now-beforebrowsetime;
{
if fun_messagebox('無查詢條件,是否繼續',1,1)<>1 then
exit
else
beforebrowsetime:=now;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -