www.pudn.com > 东之源小型超市管理系统1.0版含源码.rar > 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.