svrmain_p.pas

来自「考试系统,是一个简单的但是很经典的」· PAS 代码 · 共 45 行

{
本软件是何文锴（网名：荷塘新月）写的一个三层程序，没有最终完成，但相信它对想写
三层程序的朋友有一定的启发。如有转发，请保留我的这些信息。
这是我的网站：http://www.startor.cn/，做的非常粗糙，请各位朋友多多指教！

荷塘新月   QQ:57151728   EMAIL:[e-mail]
2005年4月9日
}


unit svrmain_p;

interface

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

type
  Tf_main = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_main: Tf_main;

implementation

{$R *.dfm}

uses tkglserver_p;

procedure Tf_main.Button1Click(Sender: TObject);
begin
   application.Terminate;
end;

end.