unit_querystru.pas

delphi开发的中国移动大客户管理系统,后台数据库为oracle

unit Unit_QueryStru;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   TFlatSpinEditUnit, Grids, DBGrids, ExtCtrls, StdCtrls,
  TFlatEditUnit, TFlatComboBoxUnit, TFlatSpeedButtonUnit, TFlatButtonUnit,
  Unit_custombrowsebase, Db, DBTables, ComCtrls, Menus, Buttons, ImgList,
  TFlatCheckBoxUnit, ToolWin, Unit_Public, TFlatRadioButtonUnit ;

type
  TFRM_QueryStru = class(Tform_custombrowsebase)
    ImageList1: TImageList;
    Label16: TLabel;
    coGR_USER_FKFS: TFlatComboBox;
    Label27: TLabel;
    edJT_LXR: TFlatEdit;
    Label6: TLabel;
    Label9: TLabel;
    spiGR_CZ_XYDBegin: TFlatSpinEditInteger;
    spiGR_CZ_XYDEnd: TFlatSpinEditInteger;
    cbGR_CZ_XYD: TFlatCheckBox;
    cbGR_XYD: TFlatCheckBox;
    cbGR_QT_XYD: TFlatCheckBox;
    Label12: TLabel;
    Label13: TLabel;
    spiGR_QT_XYDBegin: TFlatSpinEditInteger;
    spiGR_QT_XYDEnd: TFlatSpinEditInteger;
    Label8: TLabel;
    Label10: TLabel;
    spiGR_XYDBegin: TFlatSpinEditInteger;
    spiGR_XYDEnd: TFlatSpinEditInteger;
    procedure FlatButton1Click(Sender: TObject);
    procedure btnGR_highlevelClick(Sender: TObject);
    procedure btnJT_HighLevelClick(Sender: TObject);
    procedure cbGR_CZ_XYDClick(Sender: TObject);
    procedure cbGR_XYDClick(Sender: TObject);
    procedure cbGR_QT_XYDClick(Sender: TObject);
    procedure spiGR_CZ_XYDBeginChange(Sender: TObject);
    procedure FlatButton3Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
  private
    { Private declarations }
    protected
        lGR_USER_FKFS:string;
        procedure pro_initcombobox(sender:tobject);override;
        procedure pro_initother(sender:tobject);override;
        procedure pro_GR_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_orderpanel(sender:tobject);override;
        procedure pro_JT_orderpanel(sender:tobject);override;
  public
    { Public declarations }
  end;

var
  FRM_QueryStru: TFRM_QueryStru;

implementation
uses PrintFrmForm;
  Function Fun_ExportData(pFileName:String;pReportTitle:String;pObjectSource:TObject):Boolean;stdcall;external'winfun.dll';
{$R *.DFM}

procedure TFRM_QueryStru.FlatButton1Click(Sender: TObject);
var
sqlstr:string;
begin
  inherited;

end;


procedure TFRM_QueryStru.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_highlevel.top+PanelGR_highlevel.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 TFRM_QueryStru.btnJT_HighLevelClick(Sender: TObject);
begin

if btnJT_highlevel.tag=2  then
   begin
       //PanelJT_highlevel1.Visible:=true;
       //PanelJT_highlevel1.top:=PanelJTBTN_highlevel.top+PanelJT_highlevel.Height;
       PanelJT_highlevel.Visible:=true;
       PanelJT_highlevel.top:=PanelJTBTN_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 TFRM_QueryStru.pro_GR_OpenDataSet(sender: tobject;
  strsql: string);

begin
with browse_normal do
    begin
        close;
        sql.clear;
        sql.add('select * from t_V_GR_querystru');
        sql.Add('where 1=1');
        sql.add(strsql);
        open;
    end;


end;

procedure TFRM_QueryStru.pro_JT_OpenDataSet(sender: tobject;
  strsql: string);
begin
with browse_normal do
    begin
        close;
        sql.clear;
        sql.add('select * from t_V_JT_querystru');
        sql.Add('where 1=1');
        sql.add(strsql);
        open;
    end;
end;

procedure TFRM_QueryStru.pro_GR_getsqlwhere(sender: tobject);
var
 tmpstr:string;
begin
  inherited;



if coGR_USER_FKFS.Text<>'所有' then
        tmpstr:=tmpstr+' and '+'USER_FKFS='+''''+lGR_USER_FKFS+'''';
if cbGR_CZ_XYD.Checked then  //信用点
        tmpstr:=tmpstr+' and t.CZ_XYD between '+inttostr(spiGR_CZ_XYDBegin.value)+' and '+inttostr(spiGR_CZ_XYDEnd.value);
if cbGR_XYD.Checked then     //单停信用点
        tmpstr:=tmpstr+' and t.XYD between '+inttostr(spiGR_XYDBegin.value)+' and '+inttostr(spiGR_XYDEnd.value);
if cbGR_QT_XYD.Checked then   //全停信用点
        tmpstr:=tmpstr+' and t.QT_XYD between '+inttostr(spiGR_QT_XYDBegin.value)+' and '+inttostr(spiGR_QT_XYDEnd.value);


GR_sqlwhere:=GR_sqlwhere+tmpstr;
end;

procedure TFRM_QueryStru.pro_JT_getsqlwhere(sender: tobject);
var
    tmpstr:string;
begin
  inherited;
if edJT_LXR.text<>'' then
    tmpstr:=tmpstr+' and '+'t.LXR='+''''+edJT_LXR.text+'''';
JT_sqlwhere:=JT_sqlwhere+tmpstr;
end;

procedure TFRM_QueryStru.pro_initcombobox(sender: tobject);
begin
  inherited;
with query_tmp do
    begin
        //初始化付款方式
        close;
        sql.clear;
        sql.add('select PAR_Desc from T_V_USER_FKFS');
        sql.add('');
        open;
        coGR_USER_FKFS.Items.Add('所有');
        first;
        while not eof do
            begin
                coGR_USER_FKFS.Items.Add(trim(fieldbyname('PAR_Desc').asstring));
                next;
            end;
        coGR_USER_FKFS.ItemIndex:=0;

    end;
end;

procedure TFRM_QueryStru.pro_initother(sender: tobject);
begin
  inherited;
{edGR_CZ_XYD.Text:='0';
edGR_XYD.Text:='0';
edGR_QT_XYD.Text:='0';}
end;

procedure TFRM_QueryStru.pro_GR_getid(sender: tobject);
begin
  inherited;
with query_tmp do
    begin
        //初始化付款方式
        if coGR_USER_FKFS.text<>'所有' then
            begin
                close;
                sql.clear;
                sql.add('select USER_FKFS from T_V_USER_FKFS');
                sql.add('where trim(Par_Desc)='+''''+coGR_USER_FKFS.text+'''');
                open;
                if recordcount>0 then
                   lGR_USER_FKFS:=trim(fieldbyname('USER_FKFS').asstring);
            end
        else
            lGR_USER_FKFS:='';
    end;
end;

procedure TFRM_QueryStru.pro_GR_orderpanel(sender: tobject);
begin
PanelGR_Stuff.top:=0;
PanelGR_base.top:=PanelGR_Stuff.top+PanelGR_Stuff.Height;
PanelGR_base1.top:=PanelGR_base.top+PanelGR_base.Height;
PanelGR_HighLevel1.top:=PanelGR_base1.top+PanelGR_base1.Height;
PanelGRBTN_highlevel.top:=PanelGR_HighLevel1.Top+PanelGR_HighLevel1.Height;
PanelGR_highlevel.Top:=PanelGRBTN_highlevel.top+PanelGRBTN_highlevel.Height;
PanelGR_highlevel2.top:=PanelGR_highlevel.top+PanelGR_highlevel.Height;

end;

procedure TFRM_QueryStru.pro_JT_orderpanel(sender: tobject);
begin
PanelJT_Stuff.top:=0;
PanelJT_base.top:=PanelJT_Stuff.Top+PanelJT_Stuff.Height;
PanelJT_base1.top:=PanelJT_base.top+PanelJT_base.Height;
PanelJT_HighLevel1.top:=PanelJT_base1.top+PanelJT_base1.Height;
PanelJTBTN_highlevel.top:=PanelJT_HighLevel1.Top+PanelJT_HighLevel1.Height;
PanelJT_highlevel.Top:=PanelJTBTN_highlevel.top+PanelJTBTN_highlevel.Height;


end;



procedure TFRM_QueryStru.cbGR_CZ_XYDClick(Sender: TObject);
begin
  inherited;
  if cbGR_CZ_XYD.Checked then
      begin
        spiGR_CZ_XYDBegin.colorflat:=clwindow;
        spiGR_CZ_XYDEnd.colorflat:=clwindow;
        spiGR_CZ_XYDBegin.Enabled:=true;
        spiGR_CZ_XYDEnd.Enabled:=true;
      end
  else
      begin
        spiGR_CZ_XYDBegin.colorflat:=clActiveBorder;
        spiGR_CZ_XYDEnd.colorflat:=clActiveBorder;
        spiGR_CZ_XYDBegin.Enabled:=false;
        spiGR_CZ_XYDEnd.Enabled:=false;
    end;

end;

procedure TFRM_QueryStru.cbGR_XYDClick(Sender: TObject);
begin
  inherited;
  if cbGR_XYD.Checked then
      begin
        spiGR_XYDBegin.colorflat:=clwindow;
        spiGR_XYDEnd.colorflat:=clwindow;
        spiGR_XYDBegin.Enabled:=true;
        spiGR_XYDEnd.Enabled:=true;
      end
  else
      begin
        spiGR_XYDBegin.colorflat:=clActiveBorder;
        spiGR_XYDEnd.colorflat:=clActiveBorder;
        spiGR_XYDBegin.Enabled:=false;
        spiGR_XYDEnd.Enabled:=false;
    end;

end;

procedure TFRM_QueryStru.cbGR_QT_XYDClick(Sender: TObject);
begin
  inherited;
  if cbGR_QT_XYD.Checked then
      begin
        spiGR_QT_XYDBegin.colorflat:=clwindow;
        spiGR_QT_XYDEnd.colorflat:=clwindow;
        spiGR_QT_XYDBegin.Enabled:=true;
        spiGR_QT_XYDEnd.Enabled:=true;
      end
  else
      begin
        spiGR_QT_XYDBegin.colorflat:=clActiveBorder;
        spiGR_QT_XYDEnd.colorflat:=clActiveBorder;
        spiGR_QT_XYDBegin.Enabled:=false;
        spiGR_QT_XYDEnd.Enabled:=false;
    end;

end;

procedure TFRM_QueryStru.spiGR_CZ_XYDBeginChange(Sender: TObject);
begin
  inherited;
if sender=spiGR_CZ_XYDBegin then
    begin
        spiGR_CZ_XYDEnd.MinValue:=spiGR_CZ_XYDBegin.Value;
        if spiGR_CZ_XYDEnd.Value<spiGR_CZ_XYDBegin.Value then
              spiGR_CZ_XYDEnd.Value:=spiGR_CZ_XYDBegin.Value;
    end;
if sender=spiGR_XYDBegin then
    begin
        spiGR_XYDEnd.MinValue:=spiGR_XYDBegin.Value;
        if spiGR_XYDEnd.Value<spiGR_XYDBegin.Value then
              spiGR_XYDEnd.Value:=spiGR_XYDBegin.Value;
    end;
if sender=spiGR_QT_XYDBegin then
    begin
        spiGR_QT_XYDEnd.MinValue:=spiGR_QT_XYDBegin.Value;
        if spiGR_QT_XYDEnd.Value<spiGR_QT_XYDBegin.Value then
              spiGR_QT_XYDEnd.Value:=spiGR_QT_XYDBegin.Value;
    end;
end;

procedure TFRM_QueryStru.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;

procedure TFRM_QueryStru.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;

end.