cover.pas

来自「对于商品销售、库存信息」· PAS 代码 · 共 78 行

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; //置为编辑状态
  FormSaleAdd.Show; //打开销售登记界面
  DataModule1.ADODataSet1.Append; //添加新的空记录
end;

procedure TFormCover.BTNBrowerClick(Sender: TObject);
begin
  FormBrowser.Show; //进入主管理浏览界面
end;

procedure TFormCover.BTNSearchClick(Sender: TObject);
begin
  DataModule1.DataSource1.Edit; //置为编辑状态
  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; //更新数据库
  DataModule1.ADOConnection1.Close; //关闭ADO连接
  Close;
end;

end.