cover.pas

来自「关于DEPHI7.0的朋友信息管理系统源代码」· PAS 代码 · 共 80 行

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;
//uses子句，需要列出本界面用到的全部Unit单元名称

{$R *.dfm}

procedure TFormCover.BTNAddClick(Sender: TObject);
begin
DataModule1.DataSource1.Edit;    //置为编辑状态
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;       //预览QReport报表即通讯录
end;


procedure TFormCover.BTNAboutClick(Sender: TObject);
begin
AboutForm.Show;                //打开关于对话框
end;

procedure TFormCover.ExitBTNClick(Sender: TObject);
begin
DataModule1.ADODataSet1.Refresh;      //更新数据库
DataModule1.ADOConnection1.Close;     //关闭ADO连接
close;
end;

end.