fee_balance2_f.pas

来自「县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数」· PAS 代码 · 共 196 行

unit Fee_Balance2_F;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables, ppDB, Db, ppDBPipe, ppParameter, ppCtrls, ppMemo, ppVar,
  ppModule, raCodMod, ppBands, ppReport, ppStrtch, ppSubRpt, ppPrnabl,
  ppClass, ppCache, ppRelatv, ppProd, ppComm, ppEndUsr, Grids, DBGrids,
  StdCtrls;

type
  TF_Fee_Balance2 = class(TForm)
    DBGrid1: TDBGrid;
    D_Balance: TppDesigner;
    R_Balance: TppReport;
    ppParameterList1: TppParameterList;
    DBP_Invoice: TppDBPipeline;
    Ds_Invoice: TDataSource;
    Q_Invoice: TQuery;
    Q_Ammeter: TQuery;
    Q_FeeDetail: TQuery;
    Ds_FeeDetail: TDataSource;
    Ds_Ammeter: TDataSource;
    DBP_Ammeter: TppDBPipeline;
    DBP_FeeDetail: TppDBPipeline;
    Query: TQuery;
    sp_HouseFee: TStoredProc;
    DBG_House: TDBGrid;
    Ds_Transfer: TDataSource;
    Tb_Transfer: TTable;
    Tb_TransferF_TRANSFER_NO: TStringField;
    Tb_TransferF_TRANSFER_NAME: TStringField;
    DBG_Transfer: TDBGrid;
    GroupBox1: TGroupBox;
    Bt_PrintInvoice: TButton;
    Bt_Return: TButton;
    Bt_Edit: TButton;
    CB_Preview: TCheckBox;
    ppHeaderBand2: TppHeaderBand;
    ppDetailBand4: TppDetailBand;
    ppDBText17: TppDBText;
    ppDBText18: TppDBText;
    ppDBText19: TppDBText;
    ppDBText21: TppDBText;
    ppDBText22: TppDBText;
    ppDBText23: TppDBText;
    ppDBText24: TppDBText;
    ppSubReport3: TppSubReport;
    ppChildReport3: TppChildReport;
    ppTitleBand1: TppTitleBand;
    ppDetailBand5: TppDetailBand;
    ppDBText25: TppDBText;
    ppDBText26: TppDBText;
    ppDBText27: TppDBText;
    ppDBText28: TppDBText;
    ppFooterBand3: TppFooterBand;
    ppSubReport4: TppSubReport;
    ppChildReport4: TppChildReport;
    ppTitleBand2: TppTitleBand;
    ppDetailBand6: TppDetailBand;
    ppDBText29: TppDBText;
    ppDBText30: TppDBText;
    ppDBText31: TppDBText;
    ppDBText32: TppDBText;
    ppSummaryBand2: TppSummaryBand;
    raCodeModule2: TraCodeModule;
    ppLabel7: TppLabel;
    ppLabel10: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppDBMemo2: TppDBMemo;
    ppDBText33: TppDBText;
    ppLabel14: TppLabel;
    ppDBText20: TppDBText;
    ppDBText35: TppDBText;
    ppSystemVariable3: TppSystemVariable;
    ppSystemVariable4: TppSystemVariable;
    ppL_StationName: TppLabel;
    ppLabel30: TppLabel;
    ppLabel31: TppLabel;
    ppFooterBand4: TppFooterBand;
    procedure DBG_TransferDblClick(Sender: TObject);
    procedure Bt_PrintInvoiceClick(Sender: TObject);
    procedure Bt_EditClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Bt_ReturnClick(Sender: TObject);
    procedure ppL_StationNameGetText(Sender: TObject; var Text: String);
    procedure ppL_ComputeGetText(Sender: TObject; var Text: String);
    procedure ppL_AuditingGetText(Sender: TObject; var Text: String);
    procedure DBP_InvoiceDataChange(Sender: TObject);
    procedure ppDetailBand4BeforePrint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Fee_Balance2: TF_Fee_Balance2;

implementation
Uses
	CommSMDLJF, ppTypes, CommFee;
{$R *.DFM}

procedure TF_Fee_Balance2.DBG_TransferDblClick(Sender: TObject);
begin
    Q_Invoice.Close();
    Q_Invoice.ParamByName('Transfer_No').AsString := Tb_Transfer['f_Transfer_No'];
    Q_Invoice.Open();
end;

procedure TF_Fee_Balance2.Bt_PrintInvoiceClick(Sender: TObject);
begin
	DBG_TransferDblClick(Nil);
    R_Balance.Template.FileName := gRootPath + '400V结算单.RTM';
    R_Balance.Template.LoadFromFile();
    If Sender <> Nil Then//用户按
        If CB_Preview.Checked Then
            R_Balance.DeviceType := dtScreen
        Else
            R_Balance.DeviceType := dtPrinter
    Else
        R_Balance.DeviceType := dtPrinter;
	R_Balance.Print();
end;

procedure TF_Fee_Balance2.Bt_EditClick(Sender: TObject);
begin
    R_Balance.Template.FileName := gRootPath + '400V结算单.RTM';
    R_Balance.Template.LoadFromFile();
    D_Balance.ShowModal();
    If R_Balance.Modified Then
        If Application.MessageBox('报表已被修改, 存储报表?','系统提示',MB_YESNO) = IDYES Then
            R_Balance.Template.SaveToFile();
end;

procedure TF_Fee_Balance2.FormShow(Sender: TObject);
begin
	Tb_Transfer.Open();
end;

procedure TF_Fee_Balance2.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
	Tb_Transfer.Close();
    Q_Invoice.Close();
    Q_Ammeter.Close();
    Q_FeeDetail.Close();
    MyReleaseForm(TForm(F_Fee_Balance2));
end;

procedure TF_Fee_Balance2.Bt_ReturnClick(Sender: TObject);
begin
	Close();
end;

procedure TF_Fee_Balance2.ppL_StationNameGetText(Sender: TObject;
  var Text: String);
begin
	Text := StationName;
end;

procedure TF_Fee_Balance2.ppL_ComputeGetText(Sender: TObject;
  var Text: String);
begin
    Text := Default_Comput;//核算
end;

procedure TF_Fee_Balance2.ppL_AuditingGetText(Sender: TObject;
  var Text: String);
begin
    Text := Default_Auditing;//审核
end;

procedure TF_Fee_Balance2.DBP_InvoiceDataChange(Sender: TObject);
begin
    //查询用户表
    Q_Ammeter.Close();
    Q_Ammeter.ParamByName('House_No').AsString := Q_Invoice.FieldByName('f_House_No').AsString;
    Q_Ammeter.Open();

    //查询电费项目明细
    Q_FeeDetail.Close();
    Q_FeeDetail.ParamByName('House_No').AsString := Q_Invoice.FieldByName('f_House_No').AsString;
    Q_FeeDetail.Open();
end;

procedure TF_Fee_Balance2.ppDetailBand4BeforePrint(Sender: TObject);
begin
	ppL_StationName.Caption := StationName;
end;

end.