unit11.pas

sql server 2000 数据库与应用

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons, ExtCtrls, ComCtrls,unit1;

type
  TForm11 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    SpeedButton2: TSpeedButton;
    Label3: TLabel;
    Edit3: TEdit;
    SpeedButton3: TSpeedButton;
    Label4: TLabel;
    SpeedButton5: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton6: TSpeedButton;
    ADOQuery1: TADOQuery;
    ComboBox1: TComboBox;
    ADOQuery2: TADOQuery;
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;
  procedure ComboboxList1;
  
implementation

{$R *.dfm}
procedure ComboboxList1;
begin
  with form11 do
  begin
    adoquery2.Close;
    adoquery2.SQL.Clear;
    adoquery2.SQL.Add('select username from 用户表');
    adoquery2.Open;
    ComboBox1.Items.Clear;
    adoquery2.First;
    while not adoquery2.Eof do
    begin
     //将用户名添加到组合框中
      ComboBox1.Items.Add(adoquery2.Fieldbyname('username').value);
      adoquery2.Next;
    end;
  end;
end;



procedure TForm11.FormActivate(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  ComboboxList1;
end;

procedure TForm11.SpeedButton1Click(Sender: TObject);
var
  s1,yhxm,yhkl1,yhkl2:string;
begin
  yhxm:='admin';
  yhkl1:=trim(edit1.Text);
  yhkl2:=trim(edit2.Text);
  if yhkl1<>yhkl2 then
    begin
      application.MessageBox('两次口令不一致！','警告',mb_ok);
      edit1.Text:='';
      edit2.Text:='';
    end
  else
    if yhkl1='' then
      application.MessageBox('口令不能为空白！','警告',mb_ok)
    else
    try
      adoquery1.close;
      adoquery1.sql.clear;
      s1:='update 用户表 set userpswd='+quotedstr(yhkl1)
        +' where username='''+yhxm+'''';
      Adoquery1.sql.add(s1);
      Adoquery1.ExecSQL;
      application.MessageBox('超级用户口令修改成功！','提示',mb_ok);
    except
      on E: Exception do
        messagedlg(E.Message,mterror,[mbok],0);
    end;

end;

procedure TForm11.SpeedButton2Click(Sender: TObject);
begin
  form11.Close;
end;

procedure TForm11.SpeedButton3Click(Sender: TObject);
var
  s1,yhxm,yhkl:string;
begin
  yhxm:=trim(edit3.Text);
  yhkl:='1234';
  if yhxm='' then
    application.MessageBox('户口姓名不能为空白！','提示',mb_ok)
  else
    try
      adoquery1.close;
      adoquery1.sql.clear;
      s1:='select * from 用户表 where username='+quotedstr(yhxm);
      Adoquery1.sql.add(s1);
      Adoquery1.Open;
      if Adoquery1.RecordCount>0 then
        application.MessageBox('户口已存在！','提示',mb_ok)
      else
        begin
          adoquery1.close;
          adoquery1.sql.clear;
          s1:='insert into 用户表 (username,userpswd)';
          s1:=s1+' values ('+quotedstr(yhxm)+','+quotedstr(yhkl)+')';
          Adoquery1.sql.add(s1);
          Adoquery1.ExecSQL;
          application.MessageBox('用户增加成功！','提示',mb_ok);
        end;
    except
      on E: Exception do
        messagedlg(E.Message,mterror,[mbok],0);
    end;

end;

procedure TForm11.SpeedButton5Click(Sender: TObject);
var
  s1,yhxm:string;
begin
  yhxm:=trim(combobox1.Text);
  if yhxm='' then
    application.MessageBox('户口姓名不能为空白！','提示',mb_ok)
  else
    try
      adoquery1.close;
      adoquery1.sql.clear;
      s1:='select * from 用户表 where username='+quotedstr(yhxm);
      Adoquery1.sql.add(s1);
      Adoquery1.Open;
      if Adoquery1.RecordCount=0 then
        application.MessageBox('户口不存在！','提示',mb_ok)
      else
        begin
          adoquery1.close;
          adoquery1.sql.clear;
          Adoquery1.sql.add('delete from 用户表 where username='+quotedstr(yhxm));
          Adoquery1.ExecSQL;
          application.MessageBox('已成功删除用户！','提示',mb_ok);
          ComboboxList1;
          combobox1.Text:='';
        end;
      except
        on E: Exception do
          messagedlg(E.Message,mterror,[mbok],0);
      end;

end;

procedure TForm11.TabSheet3Show(Sender: TObject);
begin
  ComboboxList1;
end;

end.