mergetransfer_f.pas

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

unit MergeTransfer_F;

interface

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

type
  TF_MergeTransfer = class(TForm)
    Bt_Merge: TButton;
    Button3: TButton;
    Bt_Disbranch: 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;
    procedure Bt_TransferSelectClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Bt_DisbranchClick(Sender: TObject);
    procedure Bt_MergeClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure E_STransfer_NoChange(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_MergeTransfer: TF_MergeTransfer;

implementation

uses TransferSelect_F, Table_DM, CommSmdljf;

{$R *.DFM}


procedure TF_MergeTransfer.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_MergeTransfer.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_MergeTransfer.Bt_DisbranchClick(Sender: TObject);
begin
	p_DisbranchTransfer(E_STransfer_No.Text);
    P_Log(E_STransfer_Name.Text+'自主供电');
    E_STransfer_No.Text := '';
end;

procedure TF_MergeTransfer.Bt_MergeClick(Sender: TObject);
begin
	p_MergeTransfer(E_STransfer_No.Text, E_DTransfer_No.Text);
    P_Log(E_STransfer_Name.Text + '并入' + E_DTransfer_Name.Text + '供电');
    E_STransfer_No.Text := '';
    E_DTransfer_No.Text := '';
end;

procedure TF_MergeTransfer.Button3Click(Sender: TObject);
begin
	Close();
end;

procedure TF_MergeTransfer.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 <> '' Then
    	If E_DTransfer_No.Text = '' Then
        Begin
        	Bt_Disbranch.Enabled := true;
            Bt_Merge.Enabled := false;
        End
        Else
        Begin
        	Bt_Disbranch.Enabled := false;
            Bt_Merge.Enabled := true;
        End
    Else
    Begin
       	Bt_Disbranch.Enabled := false;
        Bt_Merge.Enabled := false;
    End;
end;

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

end.