easygas_report.pas

EasyGasDpr 瓶装液化气 钢瓶 SQL,用户名：SYSTEM 密码：空

unit EASYGAS_REPORT;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, DB, ADODB, ActnList, ComCtrls, ToolWin, EASY_GASMAIN,
  StdCtrls, ExtCtrls, StdActns, PrnDbgeh, Menus;

type
  TReportDlg = class(TForm)
    DBG: TDBGridEh;
    MAINS: TDataSource;
    ToolBar1: TToolBar;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ActionList1: TActionList;
    MAIN: TADODataSet;
    ExportGrid: TAction;
    Finddata: TAction;
    ToolButton2: TToolButton;
    PDBG: TPrintDBGridEh;
    PNTDLG: TAction;
    PNTSET: TAction;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    SHOWFMT: TAction;
    PNTFMT: TAction;
    ToolButton9: TToolButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGTitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure ExportGridExecute(Sender: TObject);
    procedure FinddataExecute(Sender: TObject);
    procedure PNTDLGExecute(Sender: TObject);
    procedure PNTSETExecute(Sender: TObject);
    procedure SHOWFMTExecute(Sender: TObject);
    procedure PNTFMTExecute(Sender: TObject);
    procedure MAINAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
    BASESQL:String;
  end;

var
  ReportDlg: TReportDlg;

implementation

{$R *.dfm}

procedure TReportDlg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree
end;

procedure TReportDlg.DBGTitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
  GRIDTitleClick(DBG,ACol,Column);
end;

procedure TReportDlg.ExportGridExecute(Sender: TObject);
begin
  GridExport(DBG);
end;

procedure TReportDlg.FinddataExecute(Sender: TObject);
begin
  GridFind(DBG);
end;

procedure TReportDlg.PNTDLGExecute(Sender: TObject);
begin
  ReadGrid(DBG,Caption,True);
  LoadPNTFormat(PDBG,Caption);
  PDBG.Preview;
  ReadGrid(DBG,Caption);  
end;

procedure TReportDlg.PNTSETExecute(Sender: TObject);
begin
  SetPNTFormat(DBG,Caption);
end;

procedure TReportDlg.SHOWFMTExecute(Sender: TObject);
begin
   setgrid(DBG,Caption);
end;

procedure TReportDlg.PNTFMTExecute(Sender: TObject);
begin
  SetGrid(DBG,Caption,True);
end;

procedure TReportDlg.MAINAfterOpen(DataSet: TDataSet);
begin
  ReadGrid(DBG,Caption);
end;

end.