unit3.~pas

sql server 2000 数据库与应用

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TForm3 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
  form3.Close ;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  edit1.text:='';
  edit2.Text:='';
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  if (edit1.Text='')or(edit2.Text='') then
  begin
    application.MessageBox('信息不完整！','提示',mb_ok);
    exit;
  end
  else
    adoquery1.close;
    adoquery1.sql.clear;
    try
      Adoquery1.sql.add('insert into 系部表 (系部编号,系部名称)'
      +'values (:xbbh,:xbmc)');
      Adoquery1.Parameters.ParamByName('xbbh').Value:=''+edit1.text+'';
      Adoquery1.Parameters.ParamByName('xbmc').Value:=''+edit2.Text+'';
      Adoquery1.ExecSQL;
      application.MessageBox('数据已录入！','提示',mb_ok);
    except
      on E: Exception do
        application.MessageBox('系部名称和系部编号不能重复！','提示',mb_ok);
    end;
    edit1.Text:='';
    edit2.Text:='';

end;

end.