hjzl_brow.pas

用Delphi编写的户籍管理系统

unit HJZL_Brow;

interface

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

type
  TFrmHJGLBrow = class(TForm)
    PanelHZ: TPanel;
    PanelCY: TPanel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid2Enter(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmHJGLBrow: TFrmHJGLBrow;

implementation
 uses Main, HJZL_Edit, MainData;
{$R *.dfm}


procedure TFrmHJGLBrow.SpeedButton1Click(Sender: TObject);
begin
  close;
end;

procedure TFrmHJGLBrow.DBGrid2Enter(Sender: TObject);
begin
 FrmMain.DBNavigatorMain.DataSource:=DataHJZL.DSCY;
end;

procedure TFrmHJGLBrow.FormCreate(Sender: TObject);
begin
 TOP:=0;
 LEFT:=0;
end;

procedure TFrmHJGLBrow.FormActivate(Sender: TObject);
begin   //窗口激活时绑定数据，处理相应操作
  FrmMain.StatusBar1.Panels[0].Text:=
   Format('当前数据表：%S   记录总数：%d ',
      [DataHJZL.AdoTableHZ.TableName,DataHJZL.AdoTableHZ.RecordCount]);

  FrmMain.ToolButtonPY.Visible:=True;
  WITH FrmMain.DBNavigatorMain DO
  BEGIN
    Visible:=True;
    DataSource:=DataHJZL.DSHZ;
    VisibleButtons:=[nbFirst,nbPrior,nbNext,nbLast]
  END;
end;

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

end.