line_f.pas

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

unit Line_F;

interface

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

type
  TF_Line = class(TForm)
    DBG_Line: TDBGrid;
    DBG_Transfer: TDBGrid;
    Panel1: TPanel;
    DBN: TDBNavigator;
    Bt_Return: TButton;
    Panel2: TPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DBLCB_Station: TDBLookupComboBox;
    DBE_Line_No: TDBEdit;
    Bt_Print: TButton;
    procedure Bt_ReturnClick(Sender: TObject);
    procedure DBG_LineEnter(Sender: TObject);
    procedure DBG_TransferEnter(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBG_LineExit(Sender: TObject);
    procedure DBG_TransferExit(Sender: TObject);
    procedure DBE_Line_NoChange(Sender: TObject);
    procedure Bt_PrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Line: TF_Line;

implementation

uses Table_DM, CommSmdljf, House_F, Comm, Transfer_R;

{$R *.DFM}


procedure TF_Line.Bt_ReturnClick(Sender: TObject);
begin
     Close();
end;

procedure TF_Line.DBG_LineEnter(Sender: TObject);
begin
     DBN.DataSource := DBG_Line.DataSource;
end;

procedure TF_Line.DBG_TransferEnter(Sender: TObject);
begin
     DBN.DataSource := DBG_Transfer.DataSource;
end;



procedure TF_Line.FormActivate(Sender: TObject);
begin
   	DBN.DataSource := DBG_Line.DataSource;
   	DBLCB_Station.KeyValue := DM_Table.Tb_Station['F_Station_No'];
    P_OpenTable(DM_Table.Tb_Station);
    P_OpenTable(DM_Table.Tb_Line);
    P_OpenTable(DM_Table.Tb_Transfer);
end;

procedure TF_Line.DBG_LineExit(Sender: TObject);
begin
     If Dm_Table.Tb_Line.Modified Then
        Dm_Table.Tb_Line.Post();
end;

procedure TF_Line.DBG_TransferExit(Sender: TObject);
begin
     If Dm_Table.Tb_Transfer.Modified Then
        Dm_Table.Tb_Transfer.Post();
end;

procedure TF_Line.DBE_Line_NoChange(Sender: TObject);
begin
	If DBE_Line_No.Text = '' Then
    	DBG_Transfer.Enabled := False
    Else
    	DBG_Transfer.Enabled := True;
end;

procedure TF_Line.Bt_PrintClick(Sender: TObject);
begin
	P_Print_Report(R_Transfer);
end;

end.