placeadd.pas

delphi+sql server 我是delphi的初学者

unit placeadd;

interface

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

type
  TFrmplaceadd = class(TForm)
    pnl2: TPanel;
    btn1: TSpeedButton;
    wwDBGrid1: TwwDBGrid;
    ds1: TDataSource;
    btn2: TSpeedButton;
    btn3: TSpeedButton;
    btn4: TSpeedButton;
    tblplaceadd: TADOTable;
    procedure btn4Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmplaceadd: TFrmplaceadd;

implementation
uses UDM;

{$R *.dfm}

procedure TFrmplaceadd.btn4Click(Sender: TObject);
begin
  close;
end;

procedure TFrmplaceadd.btn1Click(Sender: TObject);
begin
   tblplaceadd.Append;
end;

procedure TFrmplaceadd.btn3Click(Sender: TObject);
begin
   if tblplaceadd.State in [dsinsert,dsedit] then
   begin
     tblplaceadd.Post;
   end;
end;

procedure TFrmplaceadd.btn2Click(Sender: TObject);
begin
  with dm.qrytemp do
  begin
    close;
    sql.Clear;
    sql.Add('delete from ly_place');
    sql.Add('where placeid=:placeid');
    parameters.ParamByName('placeid').Value:=tblplaceadd.fieldbyname('placeid').AsInteger;
    try
      execsql;
      except
      messagebox(handle,'删除数据失败!','系统提示',mb_iconinformation+mb_ok);
      exit;
    end;
  end;
  tblplaceadd.Close;
  tblplaceadd.Open;
end;

procedure TFrmplaceadd.FormShow(Sender: TObject);
begin
   tblplaceadd.Open;
end;

end.