usertelmx_un.pas

布林电话收费管理系统

unit usertelmx_un;

interface

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

type
  Tusertelmx = class(TForm)
    QuickRep1: TQuickRep;
    TitleBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRBand2: TQRBand;
    QRLabel18: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    QRLabel21: TQRLabel;
    QRLabel22: TQRLabel;
    QRLabel23: TQRLabel;
    QRLabel24: TQRLabel;
    SummaryBand1: TQRBand;
    QRLabel9: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRBand3: TQRBand;
    QRDBText3: TQRDBText;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    procedure loadda(tel_num,kssj,jssj:string);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  usertelmx: Tusertelmx;

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

procedure tusertelmx.loadda(tel_num,kssj,jssj:string);
var
 i,j:real;
begin
 dm:=tdm.Create(nil);
 with dm do
  begin
       q_b.Close;
       q_b.SQL.Clear;
       q_b.SQL.Add('select ZJ_TEL as 主叫号码,BJ_TEL as 被叫号码,');
       q_b.SQL.Add('tel_name as 用户姓名,tel_sfzh as 用户身份证,');
       q_b.SQL.add('B_DATE as 开始日期,B_TIME as 开始时间,E_TIME as 结束时间,');
       q_b.SQL.Add('round((e_time-b_time)*3600*24,2) as 通话时间秒,');
       q_b.SQL.Add('TEL_UNIT as 单元,FL_NAME as 费类名称,TOTAL_MONEY as 总费用,');
       q_b.SQL.Add('JBFL as 基本费率,USER_ID as 操作员工号 from tel_yes');
       q_b.SQL.Add(' where zj_tel=:zj_tel and');
       q_b.SQL.Add('b_time>=:b_time and e_time<=:e_time');
       q_b.Parameters.ParamByName('zj_tel').Value:=tel_num;
       q_b.Parameters.ParamByName('b_time').Value:=strtodatetime(kssj);
       q_b.Parameters.ParamByName('e_time').Value:=strtodatetime(jssj);
       q_b.Prepared;
       q_b.Open;
  end;
   while not dm.q_b.Eof do
     begin
       i:=i+dm.q_b.FieldValues ['通话时间秒'];
       j:=j+dm.q_b.FieldValues ['总费用'];
       dm.q_b.Next;
     end;
   qrlabel9.Caption:= '用户的合计使用时间为：'+floattostr(i)+'秒    '+
                      '用户的合计话费为：'+floattostr(j)+'元';
   dm.q_b.First;
   qrlabel11.Caption:=kssj+'到'+jssj;
   qrlabel3.Caption:=dm.q_b.FieldValues ['用户姓名'];
   qrlabel5.Caption:=dm.q_b.FieldValues ['主叫号码'];
   quickrep1.DataSet:=dm.q_b;
   qrdbtext3.DataSet:=dm.q_b;
   qrdbtext3.DataField:='主叫号码' ;
   qrdbtext1.DataSet:=dm.q_b;
   qrdbtext1.DataField:='被叫号码' ;
   qrdbtext2.DataSet:=dm.q_b;
   qrdbtext2.DataField:='开始时间' ;
   qrdbtext4.DataSet:=dm.q_b;
   qrdbtext4.DataField:='结束时间' ;
   qrdbtext5.DataSet:=dm.q_b;
   qrdbtext5.DataField:='通话时间秒' ;
   qrdbtext6.DataSet:=dm.q_b;
   qrdbtext6.DataField:='总费用' ;
   qrdbtext7.DataSet:=dm.q_b;
   qrdbtext7.DataField:='费类名称' ;
end;


end.