house_f.pas

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

unit House_F;

interface

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

type
  TF_House = class(TForm)
    Panel_House: TPanel;
    DBG_House: TDBGrid;
    DBN: TDBNavigator;
    Label32: TLabel;
    DBE_House_No: TDBEdit;
    Label33: TLabel;
    DBE_House_Name: TDBEdit;
    Label34: TLabel;
    DBE_Postion: TDBEdit;
    Label35: TLabel;
    DBE_Telephone: TDBEdit;
    Label8: TLabel;
    Label9: TLabel;
    DBLCB_Town: TDBLookupComboBox;
    DBLCB_Village: TDBLookupComboBox;
    Panel_Ammeter: TPanel;
    GB_Ammeter: TGroupBox;
    Panel_1Step_Ct: TPanel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBE_Ct1: TDBEdit;
    DBE_Ct1_Factory: TDBEdit;
    DBE_Ct1_Model: TDBEdit;
    DBE_Ct1_No: TDBEdit;
    DBE_Ct1_Right: TDBEdit;
    Panel_2Step: TPanel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    DBE_Ct: TDBEdit;
    DBE_Ct_Factory: TDBEdit;
    DBE_Ct_Model: TDBEdit;
    DBE_CT_No: TDBEdit;
    DBE_Ct_Right: TDBEdit;
    DBLCB_Base_No: TDBLookupComboBox;
    Panel_1Step: TPanel;
    Label21: TLabel;
    Panel_Button: TPanel;
    Bt_Return: TButton;
    DBLCB_Ammeter_Type: TDBLookupComboBox;
    DBE_Ammeter_Type: TDBEdit;
    Panel_Ammeter1: TPanel;
    Label23: TLabel;
    Label24: TLabel;
    Label26: TLabel;
    Label25: TLabel;
    Label29: TLabel;
    Label28: TLabel;
    Label27: TLabel;
    Label30: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label31: TLabel;
    Label36: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBE_Ammeter_no: TDBEdit;
    DBE_Ammeter_Count: TDBEdit;
    DBE_Box_No: TDBEdit;
    DBE_Master_Ammeter_No: TDBEdit;
    DBE_Ammeter_Factory: TDBEdit;
    DBE_Ammeter_Ampere: TDBEdit;
    DBE_Ammeter_Posture: TDBEdit;
    DBE_Ammeter_Model: TDBEdit;
    DBLCB_Elect: TDBLookupComboBox;
    DBLCB_Voltage: TDBLookupComboBox;
    DBE_Ammeter_Date: TDBEdit;
    DBE_Date: TDBEdit;
    DBE_Ammeter_Right: TDBEdit;
    DBE_Transfer_No: TDBEdit;
    DBE_SubFix_Rate: TDBEdit;
    DBE_Subfix_Price: TDBEdit;
    DBG_Ammeter: TDBGrid;
    DBE_Town_No: TDBEdit;
    procedure Bt_ReturnClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBG_HouseExit(Sender: TObject);
    procedure DBE_Ammeter_TypeChange(Sender: TObject);
    procedure DBRG_Ammeter_TypeExit(Sender: TObject);
    procedure DBG_HouseEnter(Sender: TObject);
    procedure Panel_AmmeterExit(Sender: TObject);
    procedure Panel_AmmeterEnter(Sender: TObject);
    procedure DBE_Town_NoChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_House: TF_House;

implementation

uses Table_DM;

{$R *.DFM}

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




procedure TF_House.FormActivate(Sender: TObject);
begin
	With Dm_Table Do
    Begin
        DBLCB_Town.KeyValue := Tb_Town['F_Town_No'];
    	DBLCB_Village.KeyValue := Tb_Village['F_Village_No'];
    End;
    DBG_House.SetFocus();
End;






















procedure TF_House.DBG_HouseExit(Sender: TObject);
begin
	If Dm_Table.Tb_House.Modified Then
    	Dm_Table.Tb_House.Post();
end;

procedure TF_House.DBE_Ammeter_TypeChange(Sender: TObject);
var
	v_Ammeter_Type:smallint;
begin
	if DBE_Ammeter_Type.Text <> '' Then
    Begin
        v_Ammeter_type := StrToInt(DBE_Ammeter_Type.Text);
        Panel_1Step.Visible := False;
        Panel_1Step_Ct.Visible:= False;
        Panel_2Step.Visible:= False;

        Case V_Ammeter_Type of
        0:	Panel_1Step.Visible := True;
        1:	Panel_1Step_Ct.Visible:= True;
        2:  Panel_2Step.Visible:= True;
        End;
    End;
end;















procedure TF_House.DBRG_Ammeter_TypeExit(Sender: TObject);
begin
	If Dm_Table.Tb_Ammeter.Modified Then
    	Dm_Table.Tb_Ammeter.Post();
end;





































procedure TF_House.DBG_HouseEnter(Sender: TObject);
begin
     DBN.DataSource := DBG_House.DataSource;
end;

procedure TF_House.Panel_AmmeterExit(Sender: TObject);
begin
	If Dm_Table.Tb_Ammeter.Modified Then
    	Dm_Table.Tb_Ammeter.Post();
end;

procedure TF_House.Panel_AmmeterEnter(Sender: TObject);
begin
     DBN.DataSource := DBG_Ammeter.DataSource;
end;


procedure TF_House.DBE_Town_NoChange(Sender: TObject);
begin
	DBLCB_Village.KeyValue := Dm_Table.Tb_Village['F_Village_No'];
end;

end.