ufrmmeter.pas

水电管理系统,介绍了水电管理系统的基本结构和基本功能,对进行这方面的开发人员有一定帮助

unit ufrmMeter;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Grids, DBGridEh, StdCtrls, Buttons, Db, DBTables, ADODB, UCommon,
  DBCtrlsEh, Mask, DBLookupEh, DBCtrls, MyNavEh;

type
  TfrmMeter = class(TForm)
    Panel1: TPanel;
    dsMeter: TDataSource;
    adoMeter: TADOQuery;
    Label23: TLabel;
    Label15: TLabel;
    Label21: TLabel;
    Label9: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    DBLookupComboboxEh1: TDBLookupComboboxEh;
    DBEditEh9: TDBEditEh;
    DBLookupComboboxEh2: TDBLookupComboboxEh;
    DBEditEh16: TDBEditEh;
    DBLookupComboboxEh3: TDBLookupComboboxEh;
    DBEditEh14: TDBEditEh;
    Label4: TLabel;
    Label16: TLabel;
    Label5: TLabel;
    Label22: TLabel;
    Label11: TLabel;
    Label7: TLabel;
    DBEditEh11: TDBEditEh;
    DBLookupComboboxEh6: TDBLookupComboboxEh;
    DBEditEh7: TDBEditEh;
    DBEditEh1: TDBEditEh;
    DBEditEh6: TDBEditEh;
    DBGridEh3: TDBGridEh;
    MyDBNavigator1: TMyDBNavigator;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    adoMeterMeterNO: TWideStringField;
    adoMeterMultiple: TIntegerField;
    adoMeterWorkShopID: TIntegerField;
    adoMeterPriceID: TIntegerField;
    adoMeterBaseNumber: TIntegerField;
    adoMeterMeterSort: TIntegerField;
    adoMeterType: TWideStringField;
    adoMeterSetupDate: TDateTimeField;
    adoMeterMaxBound: TIntegerField;
    adoMeterSubjoinNumber: TIntegerField;
    adoMeterFitPlace: TWideStringField;
    adoMeterSubWorkShopID: TSmallintField;
    adoMeterSubWorkShop: TStringField;
    adoMeterSubPrice: TStringField;
    adoMeterSubsubWorkShop: TStringField;
    adoMeterSortName: TStringField;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    DataSource3: TDataSource;
    ADOQuery3: TADOQuery;
    DataSource4: TDataSource;
    ADOQuery4: TADOQuery;
    DBEditEh2: TDBEditEh;
    adoMeterQuota: TBCDField;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBLookupComboboxEh3CloseUp(Sender: TObject; Accept: Boolean);
    procedure DBLookupComboboxEh2CloseUp(Sender: TObject; Accept: Boolean);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  frmMeter: TfrmMeter;

implementation


{$R *.DFM}

procedure TfrmMeter.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action :=  caFree;
end;

procedure TfrmMeter.FormDestroy(Sender: TObject);
begin
  adoMeter.Close;
  ADOQuery1.Free;
  ADOQuery2.Free;
  ADOQuery3.Free;
  ADOQuery4.Free;

  frmMeter := nil;
end;

procedure TfrmMeter.FormCreate(Sender: TObject);
begin
  Sdgl.SetConnectString(adoMeter);
  Sdgl.SetConnectString(ADOQuery1);
  Sdgl.SetConnectString(ADOQuery2);
  Sdgl.SetConnectString(ADOQuery3);
  Sdgl.SetConnectString(ADOQuery4);

  if not adoMeter.Active then adoMeter.Open;
  if not ADOQuery1.Active then ADOQuery1.Open;
  if not ADOQuery2.Active then ADOQuery2.Open;
  if not ADOQuery3.Active then ADOQuery3.Open;
  if not ADOQuery4.Active then ADOQuery4.Open;
end;

procedure TfrmMeter.DBLookupComboboxEh3CloseUp(Sender: TObject;
  Accept: Boolean);
begin
  ADOQuery3.Close;
  ADOQuery3.Parameters.ParamByName('MeterSortID').Value := DBLookupComboboxEh3.KeyValue;
  ADOQuery3.Open;
end;

procedure TfrmMeter.DBLookupComboboxEh2CloseUp(Sender: TObject;
  Accept: Boolean);
begin
  ADOQuery4.Close;
  ADOQuery4.Parameters.ParamByName('ResideWorkShop').Value := DBLookupComboboxEh2.KeyValue;
  ADOQuery4.Open;
end;

end.