transferselect_f.pas

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

unit TransferSelect_F;

interface

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

type
  TF_TransferSelect = class(TForm)
    PC: TPageControl;
    Ts_Station: TTabSheet;
    Ts_Line: TTabSheet;
    Ts_Transfer: TTabSheet;
    DBGrid1: TDBGrid;
    Bt_StationNext: TButton;
    Button1: TButton;
    DBG_Line: TDBGrid;
    Button2: TButton;
    Bt_LineNext: TButton;
    DBG_Transfer: TDBGrid;
    Button4: TButton;
    Bt_Ok: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    procedure Bt_StationNextClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Bt_LineNextClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Bt_OkClick(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_TransferSelect: TF_TransferSelect;

implementation

uses Table_DM, Comm;

{$R *.DFM}






procedure TF_TransferSelect.Bt_StationNextClick(Sender: TObject);
begin
	PC.ActivePage := Ts_Line;
end;

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

procedure TF_TransferSelect.Bt_LineNextClick(Sender: TObject);
begin
	PC.ActivePage := Ts_Transfer;
end;

procedure TF_TransferSelect.Button2Click(Sender: TObject);
begin
	Close;
end;

procedure TF_TransferSelect.Button4Click(Sender: TObject);
begin
	Close;
end;




procedure TF_TransferSelect.Button8Click(Sender: TObject);
begin
	PC.ActivePage := Ts_Line;
end;

procedure TF_TransferSelect.Button7Click(Sender: TObject);
begin
	PC.ActivePage := Ts_Station;
end;

procedure TF_TransferSelect.Bt_OkClick(Sender: TObject);
begin
	Close;
end;

procedure TF_TransferSelect.FormDeactivate(Sender: TObject);
begin
	Close();
end;

procedure TF_TransferSelect.FormActivate(Sender: TObject);
begin
	P_OpenTable(Dm_Table.Tb_Station);
	P_OpenTable(Dm_Table.Tb_Line);
	P_OpenTable(Dm_Table.Tb_Transfer);
    PC.ActivePage := Ts_Station;
end;

end.