delete.pas

来自「一个小型的酒店管理系统」· PAS 代码 · 共 106 行

unit Delete;

interface

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

type
  TDeleteFrm = class(TForm)
    RadioGroup1: TRadioGroup;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    Edit1: TEdit;
    StaticText1: TStaticText;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DeleteFrm: TDeleteFrm;

implementation

{$R *.dfm}

procedure TDeleteFrm.SpeedButton1Click(Sender: TObject);
var
  sql: string;
  i: integer;
begin
  if trim(Edit1.Text)='' then
  begin
    ShowMessage('请输入查询条件');
    Edit1.Text := '';
    Edit1.SetFocus;
  end
  else
  begin
    i := RadioGroup1.ItemIndex;
    Case i of
    0:
      sql := 'delete from HHMain where ConnTime=:ConnTime';
    1:
      sql := 'delete from HHMain where PName=:PName';
    2:
      sql := 'delete from HHMain where PPosition=:PPosition';
    3:
      sql := 'delete from HHMain where Note=:Note';
    4:
      sql := 'delete from HHMain where StaPerson=:StaPerson';
    end;
    ADOQuery1.Close;
    ADOquery1.SQL.Clear;
    ADOQuery1.SQL.Add(sql);
    Case i of
    0:
      ADOQuery1.Parameters.ParamByName('ConnTime').Value := Edit1.Text;
    1:
      ADOQuery1.Parameters.ParamByName('PName').Value := Edit1.Text;
    2:
      ADOQuery1.Parameters.ParamByName('PPosition').Value := Edit1.Text;
    3:
      ADOQuery1.Parameters.ParamByName('Note').Value := Edit1.Text;
    4:
      ADOQuery1.Parameters.ParamByName('StaPerson').Value := Edit1.Text;
    end;
    ADOQuery1.ExecSQL;
    ShowMessage('数据删除成功！');
    Edit1.Text := '';
    ADOQuery2.Close;
    ADOQuery2.SQL.Clear;
    ADOQuery2.SQL.Add('select ConnTime as 联系时间,PName as 姓名,PPosition as 职务,Tel as 电话,News as 动态,Note as 批注,StaPerson as 统计人 from HHMain order by ConnTime desc');
    ADOQuery2.Open;
  end;
end;

procedure TDeleteFrm.SpeedButton2Click(Sender: TObject);
begin
  DeleteFrm.Close;
end;

procedure TDeleteFrm.DBGrid1TitleClick(Column: TColumn);
var
  AscOrDesc: Boolean;
begin
  AscOrDesc := True;
  if AscOrDesc then
    ADOQuery2.Sort := Column.FieldName + ' ASC'
  else
    ADOQuery2.Sort := Column.FieldName + ' DESC';
  AscOrDesc := not AscOrDesc;
end;

end.