khdprn_un.pas

布林电话收费管理系统

unit khdprn_un;

interface

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

type
  Tkhdprn = class(TForm)
    QuickRep1: TQuickRep;
    QRSubDetail1: TQRSubDetail;
    QRShape1: TQRShape;
    QRLabel3: TQRLabel;
    QRShape5: TQRShape;
    QRRichText2: TQRRichText;
    QRShape2: TQRShape;
    QRLabel2: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel11: TQRLabel;
    QRShape3: TQRShape;
    QRLabel1: TQRLabel;
    QRLabel5: TQRLabel;
    QRShape4: TQRShape;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRShape6: TQRShape;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRShape10: TQRShape;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRShape11: TQRShape;
    QRLabel21: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel20: TQRLabel;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    procedure loadkhd(tel_num:string);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  khdprn: Tkhdprn;

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

procedure tkhdprn.loadkhd (tel_num:string);
var
 dm1:tdm;
begin
 dm1:=tdm.Create(nil);
 with dm1 do
  begin
   q_f.Close;
   q_f.SQL.Clear;
   q_f.SQL.Add('select * from tel_user where tel_num=:tel_num');
   q_f.Parameters.ParamByName('tel_num').Value:=tel_num;
   q_f.Prepared;
   q_f.Open;
  end;
  if dm1.q_f.Recordset.RecordCount >0 then
   begin
       qrlabel3.Caption:=system_dw+'用户开户单';
       qrlabel11.Caption:=dm1.q_f.FieldValues ['tel_name'];
       qrlabel5.Caption:=dm1.q_f.FieldValues ['tel_num'];
       qrlabel7.Caption:=dm1.q_f.FieldValues ['tel_sfzh'];
       qrlabel9.Caption:=datetimetostr(dm1.q_f.FieldValues ['TEL_TIME']);
       if dm1.q_f.FieldValues ['TEL_FFFS']='1' then
        qrlabel12.Caption:='预付'
       else
        qrlabel12.Caption:='后付';
        qrlabel14.Caption:=dm1.q_f.FieldValues ['tel_dw'];
        qrlabel16.Caption:=dm1.q_f.FieldValues ['TEL_RWDZ'];
        qrlabel18.Caption:=dm1.q_f.FieldValues ['user_id'];
        qrlabel20.Caption:=datetimetostr(dm1.q_f.FieldValues ['USER_TIME']);

   with dm1 do
    begin
     q_g.Close;
     q_g.SQL.Clear;
     q_g.SQL.Add('select * from TEL_CGYW');
     q_g.Prepared;
     q_g.Open;
    end;
    while not dm1.q_g.Eof do
     begin
      if pos(trim(dm1.q_g.FieldValues ['yw_id']),trim(dm1.q_f.FieldValues ['TEL_FW']))<>0 then
         qrrichtext2.Lines.Add('     项目名称:'+dm1.q_g.FieldValues ['YW_NAME']+'     项目金额:'+floattostr(dm1.q_g.FieldValues ['YW_money'])+chr(13));
       dm1.q_g.Next;
     end;
  end;   
end;


end.