u_server_main.~pas

客户信息管理系统数据库环境的建立 1. 用MISDBA用户登录MISDB数据库。 2. 输入第10章提供的SQL语句；或者根据表10-1至表10-4在SQL Explorer中自行创建数据表。

unit u_server_main;

interface

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

type
  TF_main = class(TForm)
    Button1: TButton;
    Button2: TButton;
    TrayNotifyIcon1: TTrayNotifyIcon;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_main: TF_main;

implementation

uses u_server_RDM;

{$R *.DFM}

procedure TF_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caNone;
  Hide;
end;

procedure TF_main.Button2Click(Sender: TObject);
begin
  Hide;
end;

procedure TF_main.Button1Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TF_main.FormCreate(Sender: TObject);
begin
  TrayNotifyIcon1.IconVisible:=True;
end;

procedure TF_main.N1Click(Sender: TObject);
begin
  Show;
end;

end.