invoice400v_f.pas

县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数据库为Interbase/Firebird, 深入使用Procedure和Trigger等, 对入门者具有很好的参考价值

unit Invoice400v_F;

interface

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

type
  TF_Invoice400v = class(TForm)
    GroupBox1: TGroupBox;
    Bt_PrintInvoice: TButton;
    Bt_Return: TButton;
    DBG_House: TDBGrid;
    DBE_House_No: TDBEdit;
    Bt_Edit: TButton;
    E_Search: TEdit;
    Bt_Search: TButton;
    CB_Preview: TCheckBox;
    Label2: TLabel;
    DBT_Amount: TDBText;
    Label3: TLabel;
    E_Gathering: TEdit;
    Label4: TLabel;
    E_GiveChange: TEdit;
    Memo1: TMemo;
    DBG_Transfer: TDBGrid;
    Bt_Charge: TButton;
    Bt_Switch: TButton;
    DBT_Last_Balance: TDBText;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    E_ActualReceive: TEdit;
    Label7: TLabel;
    E_Balance: TEdit;
    CB_PreDeposit: TCheckBox;
    DBE_Should_Receive: TDBEdit;
    Ds_Transfer: TDataSource;
    Tb_Transfer: TTable;
    Tb_TransferF_TRANSFER_NO: TStringField;
    Tb_TransferF_TRANSFER_NAME: TStringField;
    Q_Invoice: TQuery;
    Ds_Invoice: TDataSource;
    Ds_Ammeter: TDataSource;
    Q_Ammeter: TQuery;
    Q_FeeDetail: TQuery;
    Ds_FeeDetail: TDataSource;
    Query: TQuery;
    DBP_Invoice: TppDBPipeline;
    R_Invoice: TppReport;
    ppParameterList2: TppParameterList;
    DBP_Ammeter: TppDBPipeline;
    DBP_FeeDetail: TppDBPipeline;
    D_Invoice: TppDesigner;
    R_Balance: TppReport;
    ppParameterList1: TppParameterList;
    Bt_PrintBalance: TButton;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppShape1: TppShape;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppLabel13: TppLabel;
    ppLabel15: TppLabel;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppSubReport1: TppSubReport;
    ppChildReport1: TppChildReport;
    ppTitleBand3: TppTitleBand;
    ppDetailBand2: TppDetailBand;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppFooterBand1: TppFooterBand;
    ppSubReport2: TppSubReport;
    ppChildReport2: TppChildReport;
    ppTitleBand4: TppTitleBand;
    ppDetailBand3: TppDetailBand;
    ppDBText12: TppDBText;
    ppDBText13: TppDBText;
    ppDBText14: TppDBText;
    ppDBText15: TppDBText;
    ppSummaryBand1: TppSummaryBand;
    raCodeModule1: TraCodeModule;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    ppDBMemo1: TppDBMemo;
    ppLabel18: TppLabel;
    ppLabel19: TppLabel;
    ppDBText16: TppDBText;
    ppLabel20: TppLabel;
    ppLabel21: TppLabel;
    ppLabel22: TppLabel;
    ppDBText34: TppDBText;
    ppLabel23: TppLabel;
    ppLabel24: TppLabel;
    ppLabel29: TppLabel;
    ppLabel34: TppLabel;
    ppLine13: TppLine;
    ppLabel36: TppLabel;
    ppLine14: TppLine;
    ppLine15: TppLine;
    ppLabel37: TppLabel;
    ppLabel38: TppLabel;
    ppLabel39: TppLabel;
    ppLabel40: TppLabel;
    ppLine16: TppLine;
    ppLine17: TppLine;
    ppLine18: TppLine;
    ppLine19: TppLine;
    ppLine20: TppLine;
    ppLine21: TppLine;
    ppLine22: TppLine;
    ppLine23: TppLine;
    ppLine24: TppLine;
    ppLine26: TppLine;
    ppLabel41: TppLabel;
    ppLabel42: TppLabel;
    ppLabel25: TppLabel;
    ppLabel26: TppLabel;
    ppLabel27: TppLabel;
    ppDBText36: TppDBText;
    ppLine1: TppLine;
    ppFooterBand2: TppFooterBand;
    ppHeaderBand3: 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;
    ppDBText33: TppDBText;
    ppLabel81: TppLabel;
    ppLabel82: TppLabel;
    ppLabel86: TppLabel;
    ppL_UpperCash: TppLabel;
    ppLabel90: TppLabel;
    ppLabel91: TppLabel;
    ppLabel92: TppLabel;
    ppLabel93: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppFooterBand4: TppFooterBand;
    raCodeModule3: TraCodeModule;
    procedure Bt_PrintInvoiceClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Bt_ReturnClick(Sender: TObject);
    procedure Bt_EditClick(Sender: TObject);
    procedure ppLabel89GetText(Sender: TObject; var Text: String);
    procedure ppLabel87GetText(Sender: TObject; var Text: String);
    procedure ppLabel88GetText(Sender: TObject; var Text: String);
    procedure ppL_UpperCashGetText(Sender: TObject; var Text: String);
    procedure ppLabel1GetText(Sender: TObject; var Text: String);
    procedure ppLabel2GetText(Sender: TObject; var Text: String);
    procedure ppDetailBand4BeforePrint(Sender: TObject);
    procedure Bt_SearchClick(Sender: TObject);
    procedure E_SearchKeyPress(Sender: TObject; var Key: Char);
    procedure DBG_HouseDblClick(Sender: TObject);
    procedure DBG_HouseCellClick(Column: TColumn);
    procedure E_SearchDblClick(Sender: TObject);
    procedure CB_PreviewClick(Sender: TObject);
    procedure E_GatheringChange(Sender: TObject);
    procedure DBG_TransferDblClick(Sender: TObject);
    procedure Bt_ChargeClick(Sender: TObject);
    procedure Bt_SwitchClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure E_GiveChangeChange(Sender: TObject);
    procedure CB_PreDepositClick(Sender: TObject);
    procedure Bt_PrintBalanceClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Invoice400v: TF_Invoice400v;

implementation

uses Comm, CommFee, Table_DM, UpperMoney_U, CommSMDLJF, ppTypes, Invoice10KV_F;

{$R *.DFM}

procedure TF_Invoice400v.Bt_PrintInvoiceClick(Sender: TObject);
begin
    R_Invoice.Template.FileName := gRootPath + '400V发票.RTM';
    R_Invoice.Template.LoadFromFile();
    R_Invoice.PassSetting := psTwoPass;
    R_Invoice.ShowPrintDialog := False;
    If Sender <> Nil Then//用户按
        If CB_Preview.Checked Then
            R_Invoice.DeviceType := dtScreen
        Else
            R_Invoice.DeviceType := dtPrinter
    Else
        R_Invoice.DeviceType := dtPrinter;

    If (R_Invoice.DeviceType = dtPrinter) And (Q_Invoice['f_PrintedInvoice'] = 'Y') Then//发票已打印
        If Application.MessageBox('此用户发票已经打印, 您确认还要打印一次吗?','系统提示',MB_YESNO) <> IDYES Then
            Exit;

    R_Invoice.Print();

    If R_Invoice.DeviceType = dtPrinter Then
    Begin
        //设置已打印发票标志
        Query.SQL.Text := Format('Update Tb_House Set f_PrintedInvoice = ''Y'' Where f_House_No = ''%s''',[DBE_House_No.Text]);
        Query.ExecSQL();
    End;
end;

procedure TF_Invoice400v.FormShow(Sender: TObject);
begin
	P_OpenTable(Tb_Transfer);
	P_OpenTable(Q_Invoice);
    E_Search.SetFocus();
end;

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