unit1.pas

来自「本人原创（delphi程序设计提高与应用）源码。《简单的数据库工作平台》其目的是」· PAS 代码 · 共 63 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus,Unit2;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    SQL1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  FormSQL_CX_B:Boolean;
implementation
uses
Unit3;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
var
FormCX:TForm2;
begin
    FormCX:=TForm2.Create(application);
    FormCX.Caption:='查询';
    FormCX.Table1.Active:=True;
end;
procedure TForm1.N3Click(Sender: TObject);
var
FormXG:TForm2;
begin
    FormXG:=TForm2.Create(application);
    FormXG.Caption:='修改';
    FormXG.Table1.Active:=True;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
  Form3:=TForm3.Create(application);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=Cafree;
end;

end.