ufrmmetersort.pas

来自「水电管理系统,介绍了水电管理系统的基本结构和基本功能,对进行这方面的开发人员有一」· PAS 代码 · 共 64 行

unit ufrmMeterSort;

interface

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

type
  TfrmMeterSort = class(TForm)
    Panel13: TPanel;
    Label18: TLabel;
    Label19: TLabel;
    DBEditEh12: TDBEditEh;
    DBEditEh13: TDBEditEh;
    DBGridEh4: TDBGridEh;
    dsMeterSort: TDataSource;
    adoMeterSort: TADOQuery;
    MyDBNavigator1: TMyDBNavigator;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMeterSort: TfrmMeterSort;

implementation

uses UCommon;

{$R *.DFM}

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

procedure TfrmMeterSort.FormDestroy(Sender: TObject);
begin
  adoMeterSort.Free;
  frmMeterSort := nil;
end;

procedure TfrmMeterSort.FormCreate(Sender: TObject);
begin
  Sdgl.SetConnectString(adoMeterSort);
end;

procedure TfrmMeterSort.FormShow(Sender: TObject);
begin
  if not adoMeterSort.Active then
    adoMeterSort.Open;
end;

end.