unit Cover;

interface

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

type
  TFormCover = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    Panel1: TPanel;
    BTNAdd: TButton;
    BTNBrower: TButton;
    BTNSearch: TButton;
    BTNQReport: TButton;
    BTNAbout: TButton;
    BTNClose: TButton;
    procedure BTNAddClick(Sender: TObject);
    procedure BTNBrowerClick(Sender: TObject);
    procedure BTNSearchClick(Sender: TObject);
    procedure BTNQReportClick(Sender: TObject);
    procedure BTNAboutClick(Sender: TObject);
    procedure BTNCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormCover: TFormCover;

implementation
uses DataModule, SaleAdd, Search, Browser, About, QReport;
//uses子句，需要列出本界面用到的全部unit單元名稱
{$R *.dfm}

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

procedure TFormCover.BTNBrowerClick(Sender: TObject);
begin
  FormBrowser.Show; //進入主管理瀏覽界面
end;

procedure TFormCover.BTNSearchClick(Sender: TObject);
begin
  DataModule1.DataSource1.Edit; //置為編輯狀態(tài)
  FormSearch.Show; //打開銷售查詢界面
end;

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

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

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

end.