unit Cover;

interface

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

type
  TFormCover = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    Panel1: TPanel;
    BTNAdd: TButton;
    BTNBrowser: TButton;
    BTNSearch: TButton;
    BTNContact: TButton;
    BTNAbout: TButton;
    BTNExit: 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;
//uses子句，需要列出本界面用到的全部unit單元名稱

{$R *.dfm}

procedure TFormCover.BTNAddClick(Sender:TObject);
begin
DataModule1.DataSource1.Edit;//置為編輯狀態(tài)
FormAdddata.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;//預覽QReport報表即通訊錄
end;

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

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


end.