qfprn_un.pas

布林电话收费管理系统

unit qfprn_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QuickRpt, QRCtrls, ExtCtrls;

type
  Tqfprn = class(TForm)
    QuickRep1: TQuickRep;
    TitleBand1: TQRBand;
    SummaryBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel24: TQRLabel;
    QRLabel25: TQRLabel;
    QRLabel26: TQRLabel;
    QRLabel27: TQRLabel;
    QRLabel28: TQRLabel;
    QRLabel29: TQRLabel;
    QRLabel30: TQRLabel;
    QRLabel3: TQRLabel;
    QRBand1: TQRBand;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    procedure qfprntj(rq:string);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  qfprn: Tqfprn;

implementation
  uses globe,dm_un;
{$R *.dfm}

procedure tqfprn.qfprntj(rq:string);
begin
 dm:=tdm.Create(nil);
  with dm do
  begin
    q_c.SQL.Add('select * from QF_USER');
    q_c.Prepared;
    q_c.Open; 
  end;
   quickrep1.DataSet:=dm.q_c;
   qrdbtext1.DataSet:=dm.q_c;
   qrdbtext1.DataField:='TEL_NAME';
   qrdbtext2.DataSet:=dm.q_c;
   qrdbtext2.DataField:='TEL_num';
   qrdbtext3.DataSet:=dm.q_c;
   qrdbtext3.DataField:='TEL_sfzh';
   qrdbtext4.DataSet:=dm.q_c;
   qrdbtext4.DataField:='TEL_DATE';
   qrdbtext5.DataSet:=dm.q_c;
   qrdbtext5.DataField:='TEL_HF';
   qrdbtext6.DataSet:=dm.q_c;
   qrdbtext6.DataField:='TEL_FWF';
   qrdbtext7.DataSet:=dm.q_c;
   qrdbtext7.DataField:='hfhj';
   qrdbtext8.DataSet:=dm.q_c;
   qrdbtext8.DataField:='tel_stut';
   qrlabel9.Caption:='统计用户话费的结止时间为：'+rq;
end;
end.