delphi+access水电管理系统

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
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

首页上一页 4 5 6 7 8 9 10 下一页尾页 7/12/12

delphi+access水电管理系统(七)