userprn_un.pas

布林电话收费管理系统

unit userprn_un;

interface

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

type
  Tuserprn = class(TForm)
    QuickRep1: TQuickRep;
    TitleBand1: TQRBand;
    SummaryBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel9: TQRLabel;
    QRBand1: TQRBand;
    QRDBText3: TQRDBText;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    ColumnHeaderBand1: TQRBand;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    procedure loadda(kssj,jssj:tdatetime);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  userprn: Tuserprn;

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

procedure tuserprn.loadda(kssj,jssj:tdatetime);
begin
 dm:=tdm.Create(nil);
   qrlabel11.Caption:=datetimetostr(kssj)+'到'+datetimetostr(jssj);
  with dm do
   begin
    q_a.Close;
    q_a.SQL.Clear;
    q_a.SQL.Add('select * from tel_user where tel_time>=:tel_time1 and tel_time<=:tel_time2 ');
    q_a.Parameters.ParamByName('tel_time1').Value:=kssj;
    q_a.Parameters.ParamByName('tel_time2').Value:=jssj;
    q_a.Prepared;
    q_a.Open;
   end;
   quickrep1.DataSet:=dm.q_a;
   qrdbtext1.DataSet:=dm.q_a;
   qrdbtext1.DataField:='tel_num';
   qrdbtext2.DataSet:=dm.q_a;
   qrdbtext2.DataField:='tel_sfzh';
   qrdbtext3.DataSet:=dm.q_a;
   qrdbtext3.DataField:='tel_name';
      qrdbtext5.DataSet:=dm.q_a;
   qrdbtext5.DataField:='user_id';
      qrdbtext4.DataSet:=dm.q_a;
   qrdbtext4.DataField:='tel_time';
      qrdbtext6.DataSet:=dm.q_a;
   qrdbtext6.DataField:='tel_fw';
      qrdbtext7.DataSet:=dm.q_a;
   qrdbtext7.DataField:='tel_dw';
   qrlabel9.Caption:='合计人数为：'+inttostr(dm.q_a.Recordset.RecordCount );
end;


end.