setuser.~pas

一个简单的DELPHI的图书管理系统,具有一般图书管理系统的基本功能!-

unit setuser;

interface

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

type
  TSetUserForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SetUserForm: TSetUserForm;

implementation

{$R *.dfm}

procedure TSetUserForm.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TSetUserForm.BitBtn1Click(Sender: TObject);
begin
  adoquery1.close;
  adoquery1.sql.clear;
  adoquery1.SQl.Add('insert into yonghu(name,password) '+
              'values('''+edit1.Text+''','''+edit2.Text+''')');
  showmessage(adoquery1.SQL.Text);
  adoquery1.ExecSQL;
  showmessage('添加用户成功');
end;

end.