meum.pas

来自「delphi+sql server 我是delphi的初学者」· PAS 代码 · 共 81 行

unit meum;

interface

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

type
  TFrmmeum = class(TForm)
    pnl1: TPanel;
    spl1: TSplitter;
    wwDBGrid1: TwwDBGrid;
    btn1: TSpeedButton;
    btn2: TSpeedButton;
    btn3: TSpeedButton;
    btn4: TSpeedButton;
    ds1: TDataSource;
    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
  Frmmeum: TFrmmeum;

implementation
uses UDM;


{$R *.dfm}

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

procedure TFrmmeum.btn1Click(Sender: TObject);
begin
   if dm.tbltypeunit.Active=false then
   dm.tbltypeunit.Active:=true;
   dm.tbltypeunit.Append;
end;

procedure TFrmmeum.btn3Click(Sender: TObject);
begin
   dm.tbltypeunit.Post; 
end;

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

procedure TFrmmeum.FormShow(Sender: TObject);
begin
   dm.tbltypeunit.Open;
end;

end.