cf_selllook.pas

delphi和SQL做的超市管理系统

unit cf_selllook;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, DB, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;

type
  Tcfra_selllook = class(TFrame)
    Panel1: TPanel;
    Panel2: TPanel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfra_selllook: Tcfra_selllook;

implementation

uses datam;

{$R *.dfm}

procedure Tcfra_selllook.BitBtn1Click(Sender: TObject);
var mes:string;
begin
mes:='是否要删除当前销售记录';
 if application.MessageBox(pchar(mes),pchar('等待确认')
    ,+MB_ICONQUESTION+mb_okcancel+MB_DEFBUTTON2)=idok then
     begin
      dm.ADO_sell.Delete;//删除销售记录
     end;
end;

procedure Tcfra_selllook.BitBtn2Click(Sender: TObject);
var mes:string;
begin
 mes:='是否要删除当前所有的销售记录，一旦删除将不可恢复！';
 if application.MessageBox(pchar(mes),pchar('等待确认')
    ,+MB_ICONQUESTION+mb_okcancel+MB_DEFBUTTON2)=idok then
 begin
 dm.adoq_cx.close;
 dm.adoq_cx.sql.clear;
 dm.adoq_cx.sql.add('delete from t_sell');
 dm.adoq_cx.ExecSQL;
 dm.adoq_cx.close;
 dm.ADO_sell.close;
 dm.ADO_sell.Open;
 end;
end;

end.