ywprn_un.pas

布林电话收费管理系统

unit ywprn_un;

interface

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

type
  Tywprn = class(TForm)
    QuickRep1: TQuickRep;
    QRSubDetail1: TQRSubDetail;
    QRShape1: TQRShape;
    QRLabel3: TQRLabel;
    QRShape5: TQRShape;
    QRRichText2: TQRRichText;
    QRLabel2: TQRLabel;
    QRShape3: TQRShape;
    QRLabel1: TQRLabel;
    QRLabel5: TQRLabel;
    QRShape4: TQRShape;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRShape6: TQRShape;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRShape7: TQRShape;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRShape11: TQRShape;
    QRRichText1: TQRRichText;
    QRLabel10: TQRLabel;
    QRShape8: TQRShape;
    QRLabel4: TQRLabel;
    QRLabel13: TQRLabel;
    QRShape2: TQRShape;
    procedure loadyw(yw_xh:integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ywprn: Tywprn;

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

procedure tywprn.loadyw(yw_xh:integer);
begin
 dm:=tdm.Create(nil);
 with dm do
  begin
   q_a.Close;
   q_a.SQL.Clear;
   q_a.SQL.Add('select * from tel_change where yw_xh=:yw_xh');
   q_a.Parameters.ParamByName('yw_xh').Value:=yw_xh;
   q_a.Prepared;
   q_a.Open;
  end;
  qrlabel3.Caption:=system_dw+'业务变更单';
 if dm.q_a.FieldValues ['yw_memo']='更改服务' then
  begin
    with dm do
    begin
     q_b.Close;
     q_b.SQL.Clear;
     q_b.SQL.Add('select * from TEL_CGYW');
     q_b.Prepared;
     q_b.Open;
    end;
    while not dm.q_b.Eof do
     begin
      if pos(dm.q_b.FieldValues ['yw_id'],dm.q_a.FieldValues ['old_yw'])<>0 then
         qrrichtext2.Lines.Add('项目名称:'+dm.q_b.FieldValues ['YW_NAME']+'     项目金额:'+floattostr(dm.q_b.FieldValues ['YW_money'])+chr(13));
      if pos(dm.q_b.FieldValues ['yw_id'],dm.q_a.FieldValues ['new_yw'])<>0 then
         qrrichtext1.Lines.Add('项目名称:'+dm.q_b.FieldValues ['YW_NAME']+'     项目金额:'+floattostr(dm.q_b.FieldValues ['YW_money'])+chr(13));
       dm.q_b.Next;
     end;
  end
 else
  begin
   qrrichtext2.Lines.Text:=dm.q_a.FieldValues ['old_yw'];
   qrrichtext1.Lines.Text:=dm.q_a.FieldValues ['new_yw'];
  end;
  qrlabel7.Caption:=dm.q_a.FieldValues ['tel_sfzh'];
  qrlabel5.Caption:=dm.q_a.FieldValues ['tel_lxdh'];
  qrlabel13.Caption:=dm.q_a.FieldValues ['yw_memo'];
  qrlabel9.Caption:=datetimetostr(dm.q_a.FieldValues ['yw_date']);
  qrlabel18.Caption:=dm.q_a.FieldValues ['user_id'];
end;

end.