viewunit.~pas

帮朋友编写的幼儿教育的管理平台

unit ViewUnit;

interface

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

type
  TView_Form = class(TForm)
    Top_Panel: TPanel;
    Client_Panel: TPanel;
    DBNavigator1: TDBNavigator;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    StatusBar1: TStatusBar;
    DBGrid2: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  View_Form: TView_Form;

implementation

uses FindUnit, DataM;

{$R *.dfm}

procedure TView_Form.FormShow(Sender: TObject);
begin
Application.CreateForm(TFind_Form,Find_Form);
Find_Form.Caption := Application.Title + '--会员查询' ;
Find_Form.ShowModal ;
Find_Form.Free ;
StatusBar1.Panels.Items[1].Text := '当前共有'+IntToStr(DM.Custom_Query.RecordCount)+ '个会员'
end;

procedure TView_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.Custom_Query.Close ;
free ;
end;

end.