linefee_f.pas

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

unit LineFee_F;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Mask, DBCtrls, ExtCtrls, Transfer_Frm, Db,
  IBCustomDataSet, IBQuery, ppDB, ppDBPipe, ppComm, ppRelatv, ppProd,
  ppClass, ppReport, ppPrnabl, ppCtrls, ppBands, ppCache, ppParameter,
  ppVar, Line_Frm;

type
  TF_LineFee = class(TForm)
    DBG_LineFee: TDBGrid;
    Panel1: TPanel;
    Bt_Close: TButton;
    Bt_Print: TButton;
    Bt_Update: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Bt_CloseClick(Sender: TObject);
    procedure Bt_PrintClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Bt_UpdateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_LineFee: TF_LineFee;

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

procedure TF_LineFee.FormClose(Sender: TObject; var Action: TCloseAction);
begin
	MyReleaseForm(TForm(F_LineFee));
end;

procedure TF_LineFee.Bt_CloseClick(Sender: TObject);
begin
    Close();
end;

procedure TF_LineFee.Bt_PrintClick(Sender: TObject);
begin
    RB.Report.Template.FileName := gRootPath + '线路分类统计表.RTM';
    RB.Report.Template.LoadFromFile();
    RB.Report.Print();
end;

procedure TF_LineFee.FormShow(Sender: TObject);
begin
	If F_Login.IBX_Transaction.InTransaction Then
	    F_Login.IBX_Transaction.Commit();
    RB.Q_Line.Close();
    RB.Q_Line.Open();
end;

procedure TF_LineFee.Bt_UpdateClick(Sender: TObject);
begin
    RB.Report.Template.FileName := gRootPath + '线路分类统计表.RTM';
    RB.Report.Template.LoadFromFile();
    RB.D_Report.ShowModal();
end;

end.