transferalterline_f.pas

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

unit TransferAlterLine_F;

interface

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

type
  TF_TransferAlterLine = class(TForm)
    Bt_Ok: TButton;
    Bt_TransferSelect: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    E_STransfer_Name: TEdit;
    E_SLine_Name: TEdit;
    E_SStation_Name: TEdit;
    Lable1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    E_DStation_Name: TEdit;
    Label3: TLabel;
    E_DLine_Name: TEdit;
    Label7: TLabel;
    E_DTransfer_Name: TEdit;
    E_STransfer_No: TEdit;
    E_DTransfer_No: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Label8: TLabel;
    Button2: TButton;
    Bt_Cancel: TButton;
    procedure Bt_TransferSelectClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure E_STransfer_NoChange(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Bt_CancelClick(Sender: TObject);
    procedure Bt_OkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_TransferAlterLine: TF_TransferAlterLine;

implementation

uses TransferSelect_F, Table_DM, CommSmdljf;

{$R *.DFM}


procedure TF_TransferAlterLine.Bt_TransferSelectClick(Sender: TObject);
begin
	F_TransferSelect.ShowModal();
    With DM_Table DO
    Begin
	    E_SStation_Name.Text := Tb_Station['f_Station_Name'];
        E_SLine_Name.Text := Tb_Line['f_Line_Name'];
        E_STransfer_Name.Text := Tb_Transfer['f_Transfer_Name'];
        E_STransfer_No.Text := Tb_Transfer['f_Transfer_No'];
    End;
end;




procedure TF_TransferAlterLine.Button1Click(Sender: TObject);
begin
	F_TransferSelect.ShowModal();
    With DM_Table DO
    Begin
	    E_DStation_Name.Text := Tb_Station['f_Station_Name'];
        E_DLine_Name.Text := Tb_Line['f_Line_Name'];
        E_DTransfer_Name.Text := Tb_Transfer['f_Transfer_Name'];
        E_DTransfer_No.Text := Tb_Transfer['f_Transfer_No'];
    End;
end;









procedure TF_TransferAlterLine.E_STransfer_NoChange(Sender: TObject);
begin
    If E_STransfer_No.Text = '' Then
    Begin
	    E_SStation_Name.Text := '';
    	E_SLine_Name.Text := '';
		E_STransfer_Name.Text := '';
    End;
    If E_DTransfer_No.Text = '' Then
    Begin
	    E_DStation_Name.Text := '';
    	E_DLine_Name.Text := '';
		E_DTransfer_Name.Text := '';
    End;
	If (E_STransfer_No.Text <> '') And (E_DTransfer_No.Text <> '') Then
       	Bt_Ok.Enabled := true
    else
    	Bt_Ok.Enabled := false;
end;

procedure TF_TransferAlterLine.Button2Click(Sender: TObject);
begin
	E_STransfer_No.Text := '';
	E_DTransfer_No.Text := '';
end;


procedure TF_TransferAlterLine.Bt_CancelClick(Sender: TObject);
begin
	Close();
end;

procedure TF_TransferAlterLine.Bt_OkClick(Sender: TObject);
begin
	P_OpenMessageBox('系统提示','正在更改用户编号，此操作可能需几分钟时间，请稍候...');
	Try
		P_TransferAlterLine(E_STransfer_No.Text, E_DTransfer_No.Text);
    Finally
    	P_CloseMessageBox();
    	E_STransfer_No.Text := '';
  		E_DTransfer_No.Text := '';
    End;
end;

end.