u_adduser.pas

大学生综合素质及诚信管理系统可以满足管理人员和高级管理员两方面管理学生综合素质及诚信信息的需要。设计充分利用Delphi7、MS SQL Server2000数据库技术的强大力量

unit U_adduser;

interface

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

type
  TF_user = class(TForm)
    ADOQuery1: TADOQuery;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label3: TLabel;
    ComboBox1: TComboBox;
    BitBtn4: TBitBtn;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
   name:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_user: TF_user;

implementation

{$R *.dfm}


procedure TF_user.DBGrid1CellClick(Column: TColumn);
begin
  name:=dbgrid1.Fields[0].Value;
  edit1.Text:=dbgrid1.Fields[0].Value;
  edit2.Text:=dbgrid1.Fields[1].Value;

end;

procedure TF_user.FormShow(Sender: TObject);
begin
  try

       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add('select * from users ');
       adoquery1.Open;

     except
       showmessage('数据库连接失败!');
     end;
end;

procedure TF_user.BitBtn1Click(Sender: TObject);
var
sqlstr,flag:string;
begin
 try
       sqlstr:='insert into users values('''+edit1.text+''','''+edit2.text+''','''+combobox1.Text+''')';
       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add(sqlstr);
       adoquery1.ExecSQL;
       showmessage('添加成功!');
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add('select * from users ');
       adoquery1.Open;

     except
       showmessage('该用户名存在或数据库连接失败!');
     end;
end;

procedure TF_user.BitBtn2Click(Sender: TObject);
var
sqlstr:string;
begin
    sqlstr:=' update users set pass='''+edit2.text+''',flag='''+combobox1.text+'''';
    sqlstr:=sqlstr+' where name='''+edit1.text+'''';
    try

       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add(sqlstr);
       adoquery1.ExecSQL;
       showmessage('修改成功!');
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add('select * from users ');
       adoquery1.Open;
     except
       showmessage('数据库连接失败!');
     end;
end;

procedure TF_user.BitBtn3Click(Sender: TObject);
var
sqlstr:string;
begin
 try
       sqlstr:='delete from users where name='''+name+'''';
       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add(sqlstr);
       adoquery1.ExecSQL;
       showmessage('删除成功!');
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add('select * from users ');
       adoquery1.Open;
     except
       showmessage('数据库连接失败!');
     end;
end;

procedure TF_user.BitBtn4Click(Sender: TObject);
begin
close;
end;

end.