cover.pas

来自「个人朋友信息的管理」· PAS 代码 · 共 80 行

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;//置为编辑状态
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;//更新数据库
DataModule1.ADOConnection1.Close;//关闭ADO连接
close;
end;


end.