prin_un.pas

布林电话收费管理系统

unit prin_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, stand_un, BusinessSkinForm, bsSkinCtrls, bsSkinGrids, bsDBGrids,
  StdCtrls, Mask, bsSkinBoxCtrls, QRCtrls, QuickRpt, ExtCtrls, bsMessages,db;

type
  Tprin = class(Tstand)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinXFormButton3: TbsSkinXFormButton;
    bsSkinXFormButton2: TbsSkinXFormButton;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinLabel6: TbsSkinLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinLabel2: TbsSkinLabel;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinScrollBar2: TbsSkinScrollBar;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinEdit11: TbsSkinEdit;
    bsSkinLabel15: TbsSkinLabel;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinLabel3: TbsSkinLabel;
    bsSkinEdit5: TbsSkinEdit;
    bsSkinLabel4: TbsSkinLabel;
    bsSkinEdit6: TbsSkinEdit;
    bsSkinLabel5: TbsSkinLabel;
    bsSkinEdit7: TbsSkinEdit;
    bsSkinLabel7: TbsSkinLabel;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinLabel19: TbsSkinLabel;
    bsSkinDateEdit2: TbsSkinDateEdit;
    bsSkinLabel8: TbsSkinLabel;
    bsSkinXFormButton4: TbsSkinXFormButton;
    procedure bsSkinXFormButton2Click(Sender: TObject);
    procedure bsSkinXFormButton3Click(Sender: TObject);
    procedure load_data(var tel_number,tel_sfzh:string);
    procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
    procedure screen_xt;
    procedure bsSkinEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinDBGrid1CellClick(Column: TbsColumn);
    procedure bsSkinXFormButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  prin: Tprin;

implementation
  uses globe,dm_un,main_un,print_fp_un;
{$R *.dfm}
procedure tprin.screen_xt;
begin
 bsskinedit1.clear;
 bsskinedit2.clear;
 bsskinedit3.clear;
end;

procedure Tprin.bsSkinXFormButton2Click(Sender: TObject);
 var
  prin_fp:tprin_fp;
  str_1:string;
begin
  inherited;
  str_1:=bsskinedit3.text;
  prin_fp:=tprin_fp.Create(prin);
  prin_fp.start_data(str_1);
  prin_fp.QuickRep1.Prepare;
  prin_fp.QuickRep1.Preview;
  prin_fp.Free;
//  quickrep1.ShowProgress :=true;
//  quickrep1.ParentWindow :=handle;
//  quickrep1.Preview;
end;

procedure Tprin.bsSkinXFormButton3Click(Sender: TObject);
 var
  prin_fp:tprin_fp;
  str_1:string;
begin
  inherited;
  str_1:=bsskinedit3.text;
  prin_fp:=tprin_fp.Create(prin);
  prin_fp.start_data(str_1);
  prin_fp.QuickRep1.Prepare;
  prin_fp.QuickRep1.print;
  prin_fp.Free;
end;

procedure Tprin.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);

begin
  inherited;
//  qrlabel1.Caption:=system_dw+'电话收费收据';
//  qrexpr1.Caption:=bsskinedit1.Text;
// // qrexpr2.Caption:=bsskinedit2.Text;
 // qrexpr3.Caption:=bsskinedit3.Text;
end;

procedure tprin.load_data(var tel_number,tel_sfzh:string);
var
 data1:tdatasource;
begin
 if trim(tel_number)<>'' then
  if trim(tel_sfzh)<>'' then
   begin
    dm:=tdm.Create(nil);
     with dm do
      begin
       q_a.Close;
       q_a.SQL.Clear;
       q_a.SQL.Add('select * from TEL_UP_MX where up_tel=:up_tel and up_sfzh=:up_sfzh');
       q_a.Parameters.ParamByName('up_tel').Value:=tel_number;
       q_a.Parameters.ParamByName('UP_SFZH').Value:=tel_sfzh;
       q_a.Prepared;
       q_a.Open;
       if q_a.Recordset.RecordCount >0 then
        begin
         bsskinedit2.Text:=q_a.FieldValues ['up_tel'];
         bsskinedit1.Text:=q_a.FieldValues ['up_name'];
         bsskinedit3.Text:=q_a.FieldValues ['up_bh'];
           bsskinedit2.Text:=dm.q_a.FieldValues ['up_tel'];
          bsskinedit1.Text:=dm.q_a.FieldValues ['up_name'];
          bsskinedit3.Text:=dm.q_a.FieldValues ['up_bh'];
          bsskinedit11.Text:=dm.q_a.FieldValues ['up_sfzh'];
          bsskinedit4.Text:=floattostr(dm.q_a.FieldValues ['up_je']);
          bsskinedit5.Text:=dm.q_a.FieldValues ['up_lb'];
          bsskinedit6.Text:=floattostr(dm.q_a.FieldValues ['up_ye']);
          bsskinedit7.Text:=dm.q_a.FieldValues ['up_user'];
          bsskindateedit1.Date:=dm.q_a.FieldValues ['up_date'];
          bsskindateedit2.Date:=dm.q_a.FieldValues ['user_time'];
         q_1.Close;
         q_1.SQL.Clear;
         q_1.SQL.Add('select up_bh as 收据编号,user_time as 交款日期,up_je as 交款金额,');
         q_1.SQL.add('up_lb as 交费类别,up_prn as 收据打印次数 from ');
         q_1.SQL.Add('TEL_UP_MX where up_tel=:up_tel and up_sfzh=:up_sfzh') ;
         q_1.Parameters.ParamByName('up_tel').Value:=tel_number;
         q_1.Parameters.ParamByName('up_sfzh').Value:=tel_sfzh;
         q_1.Prepared;
         q_1.Open;
         data1:=tdatasource.Create(nil);
         data1.DataSet:=q_1;
         bsskindbgrid1.DataSource:=data1;
        end
       else
        begin
          bsskinmessage1.MessageDlg('当前电话号码还没有发生任何交款信息，请重新输入号码！',mtinformation,[mbyes],0);
          screen_xt;
        end;
      end;
   end;
end;

procedure Tprin.bsSkinEdit2KeyPress(Sender: TObject; var Key: Char);
var
 fw_tmp,fw_1,fw_2:string;
begin
  inherited;
 if key=#13 then
       if trim(bsskinedit2.Text)<>'' then
       begin
       fw_tmp:=bsskinedit2.Text;
       screen_xt;
       bsskinedit2.Text:=fw_tmp;
       dm:=tdm.Create(nil);
       with dm do
        begin
         q_a.Close;
         q_a.SQL.Add('select * from tel_user where tel_num=:tel_num');
         q_a.Parameters.ParamByName('tel_num').Value:= trim(bsskinedit2.Text );
         q_a.Prepared;
         q_a.Open;
        end;
       if dm.q_a.Recordset.RecordCount <1 then
        begin
         bsskinmessage1.MessageDlg('所输入的号码不存在！，请确认后再输放！',mterror,[mbyes],0);
         bsskinedit2.Clear;
         screen_xt;
      //   bsskinxformbutton6.SetFocus;
         exit;
        end
        else
         begin
          fw_1:=dm.q_a.FieldValues ['tel_num'];
          fw_2:=dm.q_a.FieldValues ['tel_sfzh'];
          load_data(fw_1,fw_2);
         end;
    end;
end;

procedure Tprin.bsSkinDBGrid1CellClick(Column: TbsColumn);
begin
  inherited;
   with dm do
    begin
     q_2.Close;
     q_2.SQL.Clear;
     q_2.SQL.Add('select * from tel_up_mx where up_bh=:up_bh');
     q_2.Parameters.ParamByName('up_bh').Value:=q_1.FieldValues['收据编号'];
     q_2.Prepared;
     q_2.Open;
    end;
  bsskinedit2.Text:=dm.q_2.FieldValues ['up_tel'];
  bsskinedit1.Text:=dm.q_2.FieldValues ['up_name'];
  bsskinedit3.Text:=dm.q_2.FieldValues ['up_bh'];
  bsskinedit11.Text:=dm.q_2.FieldValues ['up_sfzh'];
  bsskinedit4.Text:=floattostr(dm.q_2.FieldValues ['up_je']);
  bsskinedit5.Text:=dm.q_2.FieldValues ['up_lb'];
  bsskinedit6.Text:=floattostr(dm.q_2.FieldValues ['up_ye']);
  bsskinedit7.Text:=dm.q_2.FieldValues ['up_user'];
  bsskindateedit1.Date:=dm.q_2.FieldValues ['up_date'];
  bsskindateedit2.Date:=dm.q_2.FieldValues ['user_time'];
end;

procedure Tprin.bsSkinXFormButton4Click(Sender: TObject);
begin
  inherited;
 close;
end;

end.