housecard_f.pas

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

unit HouseCard_F;

interface

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

type
  TF_HouseCard = class(TForm)
    DBG_Ammeter_Detail: TDBGrid;
    Panel1: TPanel;
    CB_StayOnTop: TCheckBox;
    Label1: TLabel;
    E_HouseNo: TEdit;
    Bt_Search: TButton;
    procedure CB_StayOnTopClick(Sender: TObject);
    procedure Bt_SearchClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_HouseCard: TF_HouseCard;

implementation

uses Table_DM, Proc_Dm;

{$R *.DFM}

procedure TF_HouseCard.CB_StayOnTopClick(Sender: TObject);
begin
	If CB_StayOnTOp.Checked Then
		F_HouseCard.FormStyle := fsStayOnTop
    Else
    	F_HouseCard.FormStyle := fsNormal;
end;

procedure TF_HouseCard.Bt_SearchClick(Sender: TObject);
begin
	//先生成表卡
	DM_Proc.sp_GenHouseCard.ParamByName('v_House_No').AsString := E_HouseNo.Text;
	DM_Proc.sp_GenHouseCard.Prepare();
    DM_Proc.sp_GenHouseCard.ExecProc();

	If DM_Table.Q_HouseCard.Active Then
    	DM_Table.Q_HouseCard.Close();
	DM_Table.Q_HouseCard.ParamByName('House_No').AsString := E_HouseNo.Text;
    DM_Table.Q_HouseCard.Open();
end;

procedure TF_HouseCard.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
	DM_Table.Q_HouseCard.Close();
end;

procedure TF_HouseCard.FormCreate(Sender: TObject);
begin
	Top := 1;
  Left := 1;
end;

procedure TF_HouseCard.FormActivate(Sender: TObject);
begin
	E_HouseNo.Text := DM_Table.v_Ammeter_Data['f_House_No'];
    Bt_SearchClick(Bt_Search);
end;

end.