deladdunit1.pas

这是一个Delphi很好很全面知识的实例

unit DelAddUnit1;

interface

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

type
  TDelAddForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Panel1: TPanel;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ImageList1: TImageList;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DelAddForm: TDelAddForm;

implementation

uses MDUnit1, mainUnit1;

{$R *.dfm}

procedure TDelAddForm.BitBtn2Click(Sender: TObject);//浏览
begin
  ADOTable1.Active:=true;//把数据表激活
end;

procedure TDelAddForm.BitBtn1Click(Sender: TObject); //删除
begin
 if (edit1.text='') then messagedlg('您还没有添写要删除的编号',mtinformation,[mbyes],0)
else if messagedlg('是否确认修改？',mtinformation,[mbyes,mbno,mbcancel],0)=mryes then
 begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('delete * from 个人收入管理表 where 编号=:no');
  ADOQuery1.Parameters.ParamByName('no').Value:=edit1.Text;
  ADOQuery1.ExecSQL;
end;
 ADOTable1.Active:=false;
 edit1.Text:='';
end;

procedure TDelAddForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  mainform.ToolButton7.Enabled:=true;
  mainform.n5.Enabled:=true;
  free;
end;

procedure TDelAddForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
bitbtn1.SetFocus;
bitbtn1click(sender);
end;
end;

end.