typecodeform.pas

来自「地址档案管理系统」· PAS 代码 · 共 68 行

unit TypeCodeForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, DB, DbNav97,
  wwSpeedButton, wwDBNavigator, wwclearpanel;
type
  TFormTypeCode = class(TForm)
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    tDbNav971: tDbNav97;
    tDbNav972: tDbNav97;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1FilterDialog: TwwNavButton;
    wwDBNavigator1LocateDialog: TwwNavButton;
    wwDBNavigator2: TwwDBNavigator;
    wwNavButton1: TwwNavButton;
    wwNavButton2: TwwNavButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormTypeCode: TFormTypeCode;
//  mydv:TMyDBNavigator;
  DBN: TDBNavigator;
implementation

uses DataModule;

{$R *.dfm}

procedure TFormTypeCode.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  DM.tblMasterCode.Close;
  DM.tblDetailCode.Close;
  Free;
end;

procedure TFormTypeCode.FormResize(Sender: TObject);
begin
//  Caption:=IntToStr(Width)+','+IntToStr(Height);
end;

procedure TFormTypeCode.FormCreate(Sender: TObject);
begin
  DM.tblMasterCode.Open;
  DM.tblDetailCode.Open;
  {
  dbn:=TDBNavigator.CreateParented(Self.Handle);
  dbn.Left:=0;
  dbn.Top:=0;
  dbn.VisibleButtons:= DBNavigator1.VisibleButtons;
  dbn.Visible:=True;
  dbn.Show;
  }
end;

end.