showmxb1.pas

网吧管理系统 网吧IC卡计费管理系统源码

unit ShowMxb1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, Grids, DBGrids;

type
  TFrm_ShowMxb1 = class(TForm)
    DBGrid1: TDBGrid;
    Btn_Cancel: TButton;
    Btn_Prt: TButton;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Btn_PrtClick(Sender: TObject);
    procedure Btn_CancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_ShowMxb1: TFrm_ShowMxb1;

implementation

uses sys_dm, sys_global, Rpt4 ;

{$R *.dfm}

procedure TFrm_ShowMxb1.FormShow(Sender: TObject);
begin
  if m_mode = 'b' then
  with frm_sys_dm.Qr_tmp2 do
  begin
    close;
    sql.clear;
    sql.text := 'select Edate, ICno, ItemDesc, JF, DF, Operator, JBoptor, JBdate  from Pbill p, ItemID I where P.flag=''0'' and P.itemName=I.itemName' ;
    open;
  end;
  if m_mode = 'k' then
  with frm_sys_dm.Qr_tmp2 do
  begin
    close;
    sql.clear;
    sql.text := 'select Edate, ICno, ItemDesc, JF, DF, Operator, JBoptor, JBdate from Pbill p, ItemID I where P.flag<>''2'' and P.itemName=I.itemName';
    open;
  end;
end;

procedure TFrm_ShowMxb1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_sys_dm.Qr_tmp2.close ;
end;

procedure TFrm_ShowMxb1.Btn_PrtClick(Sender: TObject);
begin
  Frm_Rpt4 := TFrm_Rpt4.create(application);
  Frm_Rpt4.QuickRep1.preview ;
  Frm_Rpt4.free ;
end;

procedure TFrm_ShowMxb1.Btn_CancelClick(Sender: TObject);
begin
  close ;
end;

end.