ammetermove_f.pas

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

unit AmmeterMove_F;

interface

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

type
  TF_AmmeterMove = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    E_SHouseNo: TEdit;
    E_DHouseNo: TEdit;
    Memo1: TMemo;
    CB_AllAmmeter: TCheckBox;
    Bt_AmmeterMove: TButton;
    Button1: TButton;
    Panel: TPanel;
    Label3: TLabel;
    E_AmmeterNo: TEdit;
    procedure CB_AllAmmeterClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Bt_AmmeterMoveClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_AmmeterMove: TF_AmmeterMove;

implementation

uses CommSmdljf;

{$R *.DFM}

procedure TF_AmmeterMove.CB_AllAmmeterClick(Sender: TObject);
begin
   	Panel.Visible := Not CB_AllAmmeter.Checked;
end;

procedure TF_AmmeterMove.Button1Click(Sender: TObject);
begin
	Close();
end;

procedure TF_AmmeterMove.Bt_AmmeterMoveClick(Sender: TObject);
begin
	If ((E_SHouseNo.Text = '') Or (E_DHouseNo.Text = '') Or ((E_AmmeterNo.Text = '') And (Not CB_AllAmmeter.Checked))) Then
    Begin
    	ShowMessage('用户号和表号都不能为空，请重新填写');
        Exit;
    End;
	If Application.MessageBox('请核实，你真的要做移表操作吗？','系统提醒',MB_YESNO) = IDYES Then
    Begin
		If Cb_AllAmmeter.Checked Then
			P_AmmeterMove(E_SHouseNo.Text,'',E_DHouseNo.Text)
    	Else
			P_AmmeterMove(E_SHouseNo.Text,E_AmmeterNo.Text,E_DHouseNo.Text);
    	ShowMessage('移表成功，按确定键继续');
    	E_SHouseNo.Text := '';
    	E_DHouseNo.Text := '';
    	E_AmmeterNo.Text := '';
    End;
end;

procedure TF_AmmeterMove.FormActivate(Sender: TObject);
begin
   	E_SHouseNo.Text := '';
   	E_DHouseNo.Text := '';
   	E_AmmeterNo.Text := '';
end;

end.