copylist_f.pas

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

unit CopyList_F;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, Mask, DBCtrls, ExtCtrls, Transfer_Frm;

type
  TF_CopyList = class(TForm)
    GroupBox1: TGroupBox;
    Bt_Print: TButton;
    Bt_Return: TButton;
    Rb_Transfer: TRadioButton;
    RB_Line: TRadioButton;
    DBG_CopyList: TDBGrid;
    TFrm_Transfer1: TFrm_Transfer;
    procedure Bt_TransferSelectClick(Sender: TObject);
    procedure Bt_ReturnClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure Bt_PrintClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBG_CopyListTitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_CopyList: TF_CopyList;

implementation

uses Table_DM, TransferSelect_F, Comm, CopyList_R, CommSmdljf;

{$R *.DFM}






procedure TF_CopyList.Bt_TransferSelectClick(Sender: TObject);
begin
	F_TransferSelect.Show();
end;

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

procedure TF_CopyList.FormActivate(Sender: TObject);
begin
	P_OpenTable(Dm_Table.Tb_House);
    P_OpenTable(Dm_Table.Tb_Voltage);
	Dm_Table.Tb_House.EnableControls;
    Dm_Table.Tb_House.First;
end;

procedure TF_CopyList.FormDeactivate(Sender: TObject);
begin
	Dm_Table.Tb_House.DisableControls;;
end;

procedure TF_CopyList.Bt_PrintClick(Sender: TObject);
begin
	If RB_Line.Checked Then//按线路打印
    Begin
    	Dm_Table.Tb_Transfer.First;
		While Not Dm_Table.Tb_Transfer.Eof Do
        Begin
        	If Not Dm_Table.Tb_House.EOF Then//当选择了线路打印时则直接打印
            	R_CopyList.Print;
            Dm_Table.Tb_Transfer.Next;
        End;
    End;
	If RB_Transfer.Checked Then//按变压器打印
       	If Not Dm_Table.Tb_House.EOF Then
			P_Print_Report(R_CopyList);
end;

procedure TF_CopyList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
	Dm_Table.Tb_House.Close;
end;

procedure TF_CopyList.DBG_CopyListTitleClick(Column: TColumn);
Var
    OrderField: ShortString;
begin
	Dm_Table.Tb_House.Close();
	OrderField := UpperCase(Column.FieldName);
    if OrderField = 'F_HOUSE_NO' Then
    	Dm_Table.Tb_House.IndexFieldNames := 'F_TRANSFER_NO;F_House_No;F_Ammeter_Order'
    else
    	Dm_Table.Tb_House.IndexFieldNames := 'F_TRANSFER_NO;' + OrderField + ';F_House_No';
    Dm_Table.Tb_House.Open();
end;

end.