百货/超市行业

开发平台：

Delphi

UnitSellHistory.pas：源码内容

							unit UnitSellHistory;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls;
type
  TFrameSellHistory = class(TFrame)
    Image1: TImage;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Image2: TImage;
    Image3: TImage;
    procedure Image3Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
implementation
{$R *.dfm}
procedure TFrameSellHistory.Image3Click(Sender: TObject);
begin
  ADOQuery1.Delete;
end;
procedure TFrameSellHistory.Image2Click(Sender: TObject);
var
  i: integer;
begin
  if messagebox(handle,'历史记录删除后不能被恢复，销售数据将被置空！是否清除？','确定清空',mb_iconinformation+mb_yesno)=IDNo then exit;
  for i:=1 to ADOQuery1.RecordCount do
    ADOQuery1.Delete;
end;
end.

						