unit_querystarconsume.pas

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

unit unit_querystarConsume;

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;

type
  Tfrm_querystarConsume = class(Tform_custombrowsebase)
  private
    { Private declarations }
  protected
  	procedure pro_GR_OpenDataSet(sender:tobject;strsql:string);override;
       	procedure pro_JT_OpenDataSet(sender:tobject;strsql:string);override;

  public
    { Public declarations }
  end;

var
  frm_querystarConsume: Tfrm_querystarConsume;

implementation
  uses dmmain;

{$R *.DFM}

{ Tfrm_querystarConsume }

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

end;

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

end;

end.