main.pas

来自「SQL远程管理程序的源码,DELPHI做的.不需要控件」· PAS 代码 · 共 64 行

unit main;

interface

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

type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Connect1: TMenuItem;
    ool1: TMenuItem;
    CreateDatabase1: TMenuItem;
    CreateTable1: TMenuItem;
    Help1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    ool2: TMenuItem;
    Command1: TMenuItem;
    About1: TMenuItem;
    procedure Connect1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Command1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses Connect, Command, About;

{$R *.dfm}

procedure TfrmMain.Connect1Click(Sender: TObject);
begin
  frmConnect.ShowModal;
end;

procedure TfrmMain.FormShow(Sender: TObject);
begin
  Connect1Click(Sender);
end;

procedure TfrmMain.Command1Click(Sender: TObject);
begin
  with TfrmCommand.Create(Application) do
    Show; 
end;

procedure TfrmMain.About1Click(Sender: TObject);
begin
  frmAbout.ShowModal;
end;

end.