评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi+access水电管理系统(一)毕业论文(7)

2013-06-05 01:16 der: 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.

抄表界面与代码设计

unit ufrmMeter;

interface

uses （科教范文网http://fw.ΝsΕΑc.com编辑）
  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;
    MyDBNavig