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.