xmpy_edit.~pas

用Delphi编写的户籍管理系统

unit XMPY_EDIT;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, Grids, DBGrids, ExtCtrls, Buttons;

type
  TFrmXMPY = class(TForm)
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    procedure SpeedButtonEXITClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmXMPY: TFrmXMPY;

implementation
 USES MainData, Main,FrmDialog;
{$R *.dfm}

procedure TFrmXMPY.SpeedButtonEXITClick(Sender: TObject);
begin
  CLOSE;
end;

procedure TFrmXMPY.FormActivate(Sender: TObject);
begin   //窗口激活时绑定数据，处理相应操作
 FrmMain.StatusBar1.Panels[0].Text:=
   Format('当前数据表：%S   记录总数：%d ',
      [DataHJZL.AdoTableXMPY.TableName,DataHJZL.AdoTableXMPY.RecordCount]);
  FrmMain.ToolButtonPY.Visible:=True;
  WITH FrmMain.DBNavigatorMain DO
  BEGIN
    Visible:=True;
    DataSource:=DataHJZL.DSXMPY;
    VisibleButtons:=[nbFirst,nbPrior,nbNext,nbLast,
                     nbEdit,nbPost,nbCancel];
  END;
end;

procedure TFrmXMPY.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FrmMain.StatusBar1.Panels[0].Text:='';
  FrmMain.DBNavigatorMain.DataSource:=nil ;
  Action:=caFree ; //真正关闭MDI子窗口而不是最小化
end;


end.