unit Cover;

interface

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

type
  TFormCover = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Panel1: TPanel;
    BTNSearch: TButton;
    BTNBrowser: TButton;
    BTNAdd: TButton;
    ExitBTN: TButton;
    BTNAbout: TButton;
    Panel2: TPanel;
    Memo1: TMemo;
    BTNContact: TButton;
    procedure ExitBTNClick(Sender: TObject);
    procedure BTNBrowserClick(Sender: TObject);
    procedure BTNSearchClick(Sender: TObject);
    procedure BTNAddClick(Sender: TObject);
    procedure BTNAboutClick(Sender: TObject);
    procedure BTNContactClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormCover: TFormCover;

implementation
uses DataModule, AddData, Search, AddMore, About, QReport;

{$R *.dfm}

procedure TFormCover.BTNAddClick(Sender: TObject);
begin
DataModule1.DataSource1.Edit;    //置為編輯狀態(tài)
FormAdd.Show;                     //打開增加朋友界面
DataModule1.ADODataSet1.Append;   //添加新的空記錄
end;

procedure TFormCover.BTNBrowserClick(Sender: TObject);
begin
FormAddMore.show;          //進入主管理/瀏覽界面
end;

procedure TFormCover.BTNSearchClick(Sender: TObject);
begin
FormSearch.Show;             //進入查詢界面
end;

procedure TFormCover.BTNContactClick(Sender: TObject);
begin
QuickReport1.Preview;       //預(yù)覽QReport報表即通訊錄
end;


procedure TFormCover.BTNAboutClick(Sender: TObject);
begin
AboutForm.Show;                //打開關(guān)于對話框
end;

procedure TFormCover.ExitBTNClick(Sender: TObject);
begin
DataModule1.ADODataSet1.Refresh;      //更新數(shù)據(jù)庫
DataModule1.ADOConnection1.Close;     //關(guān)閉ADO連接
close;
end;

end.