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

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

delphi+access水电管理系统(八) ator1: 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: Bool

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

delphi+access水电管理系统(八)由毕业论文网（www.huoyuandh.com）会员上传。