unit5.pas

< SQL SERVER 2000 案例教程>>,冶金工业出版社,这本书的代码

unit Unit5;

interface

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

type
  TAddUserForm = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    powertype: TComboBox;
    adduser: TButton;
    cancel: TButton;
    procedure adduserClick(Sender: TObject);
    procedure oninit();
    procedure cancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddUserForm: TAddUserForm;

implementation

{$R *.dfm}
uses Unit2,unit3;
procedure TaddUserForm.oninit();
begin
  with  mydata.Query_power do
  begin
    close;
    with  sql do
    begin
      clear;
      add('select * from 权限表');
    end;
    open;
    while eof=false do
    begin
      powertype.Items.Append(trim(fieldbyName('权限名').AsString));
      next;
    end;
  end;
end;
procedure TAddUserForm.adduserClick(Sender: TObject);
begin
  //判断是否所有资料都填写完毕
  if  ((trim(edit1.Text)='') or (trim(edit2.Text)='') or (trim(powertype.Text)='')) then
  begin
    showmessage('请输入完整资料');
  end else
  begin
    with  mydata.Query1 do //使用Query1执行数据库操作
    begin
      close;
      with  sql do
      begin
        clear;
        //书写插入资料的SQL语句，其中使用参数化方法添加资料
        add('insert into 用户密码表 values(:username,:password,:power)');
        ParamByName('username').AsString:=trim(edit2.Text);
        ParamByname('password').AsString:=trim(edit1.Text);
        paramByName('power').AsString:=trim(powertype.Text);
      end;
      execsql;
      close;
      //重写SQL语句，以更新主窗体显示的数据
      with  sql do
      begin
        clear;
        add('select * from 用户密码表');
      end;
      open;
      main.oninit();
    end;
  end;
  close;
end;

procedure TAddUserForm.cancelClick(Sender: TObject);
begin
  close;
end;

end.