unit_custombrowsebase.pas

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

unit Unit_custombrowsebase;
{
*****************************************************************************
*功能：个人客户/集团客户查询基窗体
*作者：郭新源
*版本：1.000
*继承于：unit_base
*输入:各种查询条件
*输出：查询结果
*视图：根据窗体名去除前缀加视图前缀进行调用。
    如：单元unit_QueryStru  个人客户页面视图名为：t_V_GR_QueryStru
    			    集团客户页面视图名为：t_V_JT_QueryStru
*****************************************************************************
}
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   TFlatSpeedButtonUnit, StdCtrls, TFlatEditUnit, TFlatComboBoxUnit,
  ExtCtrls, Grids, DBGrids, TFlatButtonUnit, Db, DBTables, Menus,
  Buttons, ComCtrls, ImgList, TFlatCheckBoxUnit, tflatpanelunit,TFlatSpinEditUnit, ToolWin,
  TFlatRadioButtonUnit;
const
    REMIDEROW=1000;
type
  Tform_custombrowsebase = class(TForm)
    Panel1: TPanel;
    Panel5: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Query_tmp: TQuery;
    dsbrowse_normal: TDataSource;
    PopupMenu1: TPopupMenu;
    FlatButton1: TFlatButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel6: TPanel;
    ScrollBox_GR: TScrollBox;
    ScrollBox_JT: TScrollBox;
    PanelJT_HighLevel: TPanel;
    pmi_CustInfo: TMenuItem;
    pmi_consumestru: TMenuItem;
    pmi_consumetrake: TMenuItem;
    pmi_gradechange: TMenuItem;
    panelJT_stuff: TPanel;
    Label_JT_City: TLabel;
    Label24: TLabel;
    coJT_cityno: TFlatComboBox;
    coJT_off_no_home: TFlatComboBox;
    Label29: TLabel;
    PanelJTBTN_HighLevel: TPanel;
    PanelGR_base1: TPanel;
    PanelGR_base: TPanel;
    Label5: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    coGR_DJDM: TFlatComboBox;
    coGR_USER_ZJBS: TFlatComboBox;
    PanelGR_Stuff: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    coGR_cityno: TFlatComboBox;
    coGR_off_no_home: TFlatComboBox;
    PanelGRBTN_highlevel: TPanel;
    PanelGR_highlevel2: TPanel;
    Label92: TLabel;
    Label91: TLabel;
    Label87: TLabel;
    Label86: TLabel;
    Label88: TLabel;
    coGR_ZY: TFlatComboBox;
    coGR_XB: TFlatComboBox;
    spiGR_AgeBegin: TFlatSpinEditInteger;
    spiGR_AgeEnd: TFlatSpinEditInteger;
    PanelGR_highlevel: TPanel;
    PanelJT_Base: TPanel;
    Label11: TLabel;
    Label25: TLabel;
    Label_jtname: TLabel;
    coJT_JTLB: TFlatComboBox;
    coJT_HYDM: TFlatComboBox;
    PanelJT_base1: TPanel;
    PanelJT_HighLevel1: TPanel;
    Label83: TLabel;
    Label84: TLabel;
    dtpJT_Be_G_DateBegin: TDateTimePicker;
    dtpJT_Be_G_DateEnd: TDateTimePicker;
    cbJT_Be_G_Date: TFlatCheckBox;
    Label85: TLabel;
    coJT_GroupFlag: TFlatComboBox;
    spiJT_JTCYBegin: TFlatSpinEditInteger;
    spiJT_JTCYEnd: TFlatSpinEditInteger;
    Label81: TLabel;
    Label80: TLabel;
    Label79: TLabel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    btnGR_HighLevel: TToolButton;
    ToolButton3: TToolButton;
    ToolBar4: TToolBar;
    ToolButton8: TToolButton;
    btnJT_HighLevel: TToolButton;
    ToolButton10: TToolButton;
    cbGR_Age: TFlatCheckBox;
    cbJT_JTCY: TFlatCheckBox;
    PanelGR_highlevel1: TPanel;
    Label93: TLabel;
    Label96: TLabel;
    Label95: TLabel;
    Label99: TLabel;
    Label94: TLabel;
    Label75: TLabel;
    Label_stat: TLabel;
    dtpGR_BE_DH_TBegin: TDateTimePicker;
    dtpGR_BE_DH_TEnd: TDateTimePicker;
    cbGR_BE_DH_T: TFlatCheckBox;
    coGR_SXDM: TFlatComboBox;
    cbGR_ZWSJ: TFlatCheckBox;
    spiGR_ZWSJBegin: TFlatSpinEditInteger;
    spiGR_ZWSJEnd: TFlatSpinEditInteger;
    coGR_Stat: TFlatComboBox;
    edGR_SID: TFlatEdit;
    coGR_GH: TFlatComboBox;
    coJT_GH: TFlatComboBox;
    dbgGR: TDBGrid;
    dbgJT: TDBGrid;
    browse_normal: TQuery;
    StatusBar1: TStatusBar;
    Bevel1: TBevel;
    edJT_DMORMC: TFlatEdit;
    PopupMenu2: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    PanelGRBTN_SelectOrder: TPanel;
    ToolBar22: TToolBar;
    ToolButton20: TToolButton;
    btnGR_SelectOrder: TToolButton;
    ToolButton21: TToolButton;
    PanelGR_SelectOrder: TPanel;
    Label999: TLabel;
    spiGR_Return: TFlatSpinEditInteger;
    cbGR_return: TFlatCheckBox;
    cbGR_Order: TFlatCheckBox;
    btnGR_to: TFlatButton;
    btnGR_From: TFlatButton;
    lbGR_canselect: TListBox;
    lbGR_selected: TListBox;
    rbGR_Asce: TFlatRadioButton;
    rbGR_Desc: TFlatRadioButton;
    lbGR_fieldcomment: TListBox;
    PanelJTBTN_SelectOrder: TPanel;
    ToolBar27: TToolBar;
    ToolButton25: TToolButton;
    btnJT_SelectOrder: TToolButton;
    ToolButton26: TToolButton;
    PanelJT_selectORder: TPanel;
    Label998: TLabel;
    spiJT_Return: TFlatSpinEditInteger;
    cbJT_return: TFlatCheckBox;
    cbJT_Order: TFlatCheckBox;
    btnJT_to: TFlatButton;
    btnJT_From: TFlatButton;
    lbJT_CanSelect: TListBox;
    lbJT_Selected: TListBox;
    rbJT_Asce: TFlatRadioButton;
    rbJT_Desc: TFlatRadioButton;
    lbJT_fieldcomment: TListBox;
    lbJT_field: TListBox;
    lbGR_field: TListBox;
    Panel4: TPanel;
    FlatButton2: TFlatButton;
    FlatButton3: TFlatButton;
    FlatButton4: TFlatButton;
    Splitter1: TSplitter;
    ImageListA: TImageList;
    procedure FormShow(Sender: TObject);

    procedure btnJT_stuffClick(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure btnGR_highlevelClick(Sender: TObject);
    procedure btnGR_stuffClick(Sender: TObject);
    procedure btnJT_HighLevelClick(Sender: TObject);
    procedure cbGR_BE_DH_TClick(Sender: TObject);
    procedure cbJT_Be_G_DateClick(Sender: TObject);
    procedure cbGR_ZWSJClick(Sender: TObject);
    procedure cbGR_AgeClick(Sender: TObject);
    procedure cbJT_JTCYClick(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure coGR_USER_ZJBSKeyPress(Sender: TObject; var Key: Char);
    procedure FlatButton4Click(Sender: TObject);
    procedure spiGR_ZWSJBeginChange(Sender: TObject);
    procedure coGR_citynoChange(Sender: TObject);
    procedure coJT_citynoChange(Sender: TObject);
    procedure coJT_NameEnter(Sender: TObject);
    procedure coGR_GHEnter(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure coGR_off_no_homeChange(Sender: TObject);
    procedure coJT_off_no_homeChange(Sender: TObject);
    procedure coJT_HYDMChange(Sender: TObject);
    procedure edGR_SIDKeyPress(Sender: TObject; var Key: Char);
    procedure edJT_DMORMCKeyPress(Sender: TObject; var Key: Char);
    procedure pmi_CustInfoClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure btnGR_SelectOrderClick(Sender: TObject);
    procedure btnGR_toClick(Sender: TObject);
    procedure btnGR_FromClick(Sender: TObject);
    procedure cbGR_returnClick(Sender: TObject);
    procedure cbGR_OrderClick(Sender: TObject);
    procedure cbJT_OrderClick(Sender: TObject);
    procedure cbJT_returnClick(Sender: TObject);
    procedure btnJT_toClick(Sender: TObject);
    procedure btnJT_FromClick(Sender: TObject);
    procedure btnJT_SelectOrderClick(Sender: TObject);
    procedure pmi_consumestruClick(Sender: TObject);
    procedure pmi_consumetrakeClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    protected
    	GH_Strsql:string;
        JT_STRSQL:STRING;
        lGR_GH:string;
        lJT_GH:string;
        lGR_cityno:string;
        lJT_cityno:string;

        lGR_Off_no_home:string;
        lJT_Off_No_Home:string;
        lGR_USER_ZJBS:string;
        lGR_DJDM:string;
        lGR_SXDM:string;
        lGR_ZY:string;
        lGR_XB:string;
        lGR_Stat:string;
        lJT_HYDM:string;
        lJT_JTLB:string;
        lJT_GroupFlag:string;
        lJT_JTYHMC:STRING;
        lJT_JTYHDM:string;
        //
        GR_sqlquery:string;
        JT_sqlquery:string;
        GR_sqlwhere:string;
        JT_sqlwhere:string;
        GR_condition:boolean;
        JT_condition:boolean;
        GR_Sqlorder:string;
        JT_Sqlorder:string;        
     //   JTName_sqlwhere:string;
//        procedure pro_JT_CREATEJTMC(sender:tobject;strsql:string);virtual;
  //      procedure pro_JT_getNameSQLWhere(sender:tobject);
        procedure pro_initcombobox(sender:tobject);virtual;  //初始化下拉框
        procedure pro_initother(sender:tobject);virtual; //初始化工作

        procedure pro_GR_getid(sender:tobject);virtual; //获得个人客户页下拉框所对应的代码
        procedure pro_JT_getid(sender:tobject);virtual;

        procedure pro_getsqlQuery(sender:tobject);virtual;//获得数据库数据

        procedure pro_GR_OpenDataSet(sender:tobject;strsql:string);virtual;abstract;  //获得数据库数据
        procedure pro_JT_OpenDataSet(sender:tobject;strsql:string);virtual;abstract;

        procedure pro_GR_getsqlwhere(sender:tobject);virtual; //根据个人客户页的查询条件获得相关查询条件
        procedure pro_JT_getsqlwhere(sender:tobject);virtual;

        procedure pro_GR_checkcondition(sender:tobject);virtual;   //检查相关输入信息
        procedure pro_JT_checkcondition(sender:tobject);virtual;

        procedure pro_GR_orderpanel(sender:tobject);virtual;  //排列个人客户页中的panel
        procedure pro_JT_orderpanel(sender:tobject);virtual;

        procedure pro_CheckPanel(sender:tobject);  //初始化panel值

        procedure pro_GR_getSqlorder(sender:tobject);virtual;
        procedure pro_JT_getSqlorder(sender:tobject);virtual;        
  public
    { Public declarations }
  end;

var
  form_custombrowsebase: Tform_custombrowsebase;

implementation
uses main,unit_public,dmmain,unit_ca_consumeaction,unit_ca_consumestru;
 //按钮控制
  function Fun_ButtonStatus(pFormName:TForm;pStatus:Boolean=False):Boolean;stdcall;export;external'winfun.dll';
  //输框状态控制
  Function Fun_ComponentStatus(pFormName:TForm;pStatusStyle:Integer=0;pStatus:Boolean=False):Integer;stdCall;external'winfun.dll';
 //控制回车
  Function Fun_ComponentTab(pFormName:TForm;pKey:Word):Boolean;StdCall;external'winfun.dll';

{$R *.DFM}

procedure Tform_custombrowsebase.FormShow(Sender: TObject);
begin

  PageControl1.ActivePageIndex:=0;
  pro_GR_orderpanel(self);
  pro_JT_orderpanel(self);
  pro_initcombobox(self);
  pro_initother(self);
  //btnGR_stuff.Click;
  btnGR_HighLevel.Click;
  //btnJT_stuff.Click;
  btnJT_HighLevel.Click;
  PageControl1.OnChange(self);
  btnGR_SelectOrder.Click;
  btnJT_SelectOrder.Click;
  //
  lbGR_field.Visible:=false;
  lbGR_fieldcomment.Visible:=false;
  lbJT_field.Visible:=false;
  lbJT_fieldcomment.Visible:=false;

//  Pro_GFillInitValue(Self,'所有');


end;



procedure Tform_custombrowsebase.btnJT_stuffClick(Sender: TObject);
begin
{if btnJT_Stuff.tag=2  then
   begin
       PanelJT_Stuff.Visible:=true;
       PanelJT_Stuff.top:=PanelJTBTN_Stuff.top+PanelJTBTN_Stuff.Height;
       btnJT_Stuff.down:=true;
       btnJT_Stuff.tag:=1;
   end
else
if btnJT_Stuff.tag=1 then
    begin
       PanelJT_Stuff.Visible:=false;
       btnJT_Stuff.down:=false;
       btnJT_Stuff.tag:=2;
    end;
ScrollBox_JT.VertScrollBar.Position:=PanelJTBTN_Stuff.Top;
}
end;

procedure Tform_custombrowsebase.PageControl1Change(Sender: TObject);
begin
browse_normal.close;
if PageControl1.ActivePageIndex=0 then
    begin
        dbgJT.Visible:=false;
        dbgGR.Visible:=true;
    end;
if PageControl1.ActivePageIndex=1 then
    begin
        dbgGR.Visible:=false;
        dbgJT.Visible:=true;
    end;
StatusBar1.Panels[1].text:=PageControl1.ActivePage.Caption;
StatusBar1.Panels[3].text:='';
StatusBar1.Panels[4].text:='';
end;

procedure Tform_custombrowsebase.pro_initcombobox(sender: tobject);
begin
        fun_getcity(coGR_cityno,'所有',0,PS_CityName);
        fun_getcity(coJT_cityno,'所有',0,PS_CityName);