?? cover.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -