unit11.pas

源码下载..可编译,可运行!下载后就可使用..可以学习交流.可以用做毕业设计!

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatSpeedButtonUnit, StdCtrls, TFlatEditUnit, TFlatGroupBoxUnit,
  TFlatComboBoxUnit;

type
  Tpass = class(TForm)
    FlatGroupBox1: TFlatGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    FlatSpeedButton1: TFlatSpeedButton;
    FlatSpeedButton2: TFlatSpeedButton;
    FlatGroupBox2: TFlatGroupBox;
    FlatComboBox1: TFlatComboBox;
    FlatSpeedButton3: TFlatSpeedButton;
    FlatSpeedButton4: TFlatSpeedButton;
    Label3: TLabel;
    Label4: TLabel;
    FlatGroupBox3: TFlatGroupBox;
    FlatEdit3: TFlatEdit;
    FlatComboBox2: TFlatComboBox;
    Label5: TLabel;
    Label6: TLabel;
    FlatEdit4: TFlatEdit;
    Label7: TLabel;
    FlatEdit5: TFlatEdit;
    FlatSpeedButton5: TFlatSpeedButton;
    FlatSpeedButton6: TFlatSpeedButton;
    FlatSpeedButton7: TFlatSpeedButton;
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure FlatSpeedButton7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FlatSpeedButton2Click(Sender: TObject);
    procedure FlatSpeedButton3Click(Sender: TObject);
    procedure FlatSpeedButton4Click(Sender: TObject);
    procedure FlatSpeedButton6Click(Sender: TObject);
    procedure FlatSpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  pass: Tpass;

implementation

{$R *.dfm} uses datamodule;
//type passtemp=array[1..10]of string;

procedure Tpass.FlatSpeedButton1Click(Sender: TObject);
var
name1,pass1:string;
begin
name1:=trim(flatedit1.Text);
pass1:=trim(flatedit2.Text);
try
with dm.ADOQuery3 do
  begin
  close;
  sql.Clear;
  sql.Add('insert into admin(admin,pass) values('''+name1+''','''+pass1+''')');
  execsql;
  end;
dm.ADOQuery3.Close;
messagebox(self.Handle,pchar('创建成功'),'提示',mb_IconInformation+mb_ok);
//showmessage('添加成功''提示');
{flatcombobox1.Items.Add(trim(flatedit1.Text));
flatcombobox2.Items.Add(trim(flatedit1.Text));
flatedit1.Clear;
flatedit2.Clear;}
FormShow(self);
except
//showmessage('错误，该用户已存在');
MessageBox(self.Handle, PChar('该用户已存在!'), '提示', mb_IconInformation + mb_Ok);
end;
end;

procedure Tpass.FlatSpeedButton7Click(Sender: TObject);
begin
close;
end;

procedure Tpass.FormShow(Sender: TObject);
//var
//i:integer;
//passsave:passtemp;
begin
flatedit1.Clear;
flatedit2.Clear;
flatedit3.Clear;
flatedit4.Clear;
flatedit5.Clear;
flatcombobox1.Clear;
flatcombobox2.Clear;
flatcombobox1.ItemIndex:=0;
flatcombobox2.ItemIndex:=0;
with dm.ADOQuery3 do
  begin
  close;
  sql.Clear;
  sql.Add('select admin from admin');
  open;
    while not dm.ADOQuery3.Eof do
    begin
    flatcombobox1.Items.Add(dm.ADOQuery3.Fields[0].asstring);
    //flatcombobox2.Items.Add(dm.ADOQuery3.Fields[1].asstring);
    {for i:=1 to 10 do
      begin
      passsave[i]:=dm.ADOQuery3.Fields[1].asstring;
      end; }
    dm.ADOQuery3.Next;
    end;
  end;
dm.ADOQuery3.Close;
with dm.ADOQuery3 do
  begin
  close;
  sql.Clear;
  sql.Add('select admin from admin');
  open;
    while not dm.ADOQuery3.Eof do
    begin
    flatcombobox2.Items.Add(dm.ADOQuery3.Fields[0].asstring);
    dm.ADOQuery3.Next;
    end;
  end;
dm.ADOQuery3.Close;
end;

procedure Tpass.FlatSpeedButton2Click(Sender: TObject);
begin
flatedit1.Clear;
flatedit2.Clear;
end;

procedure Tpass.FlatSpeedButton3Click(Sender: TObject);
var
name2,pass2:string;
//i:integer;
//passsave:passtemp;
begin
name2:=flatcombobox1.Text;
//pass2:=trim(flatedit3.Text);
{if passsave[flatcombobox1.ItemIndex]=passsave[1] then
begin
showmessage('right');
end
else
showmessage('wrong');}
with dm.ADOQuery3 do
  begin
  close;
  sql.Clear;
  sql.Add('select pass from admin where admin='''+name2+'''');
  open;
  pass2:=dm.ADOQuery3.Fields[0].AsString;
  if flatedit3.Text=pass2 then
    with dm.ADOQuery4 do
      begin
      close;
      sql.Clear;
      sql.Add('delete from admin where admin='''+name2+'''');
      execsql;
      messagebox(self.Handle,pchar('删除成功'),'提示',mb_iconinformation+mb_ok);
      flatedit3.Clear;
      flatcombobox1.Clear;
      FormShow(self);
      end
      else
      messagebox(self.handle,pchar('密码错误，请重试'),'提示',mb_iconinformation+mb_ok);
  end;
end;

procedure Tpass.FlatSpeedButton4Click(Sender: TObject);
begin
flatcombobox1.Text:='';
flatedit3.Clear;
end;

procedure Tpass.FlatSpeedButton6Click(Sender: TObject);
begin
flatcombobox2.Text:='';
flatedit4.Clear;
flatedit5.Clear;
end;

procedure Tpass.FlatSpeedButton5Click(Sender: TObject);
var
admin1,pass1,pass2,pass3:string;
begin
admin1:=flatcombobox2.Text;
pass2:=flatedit4.Text;
pass3:=flatedit5.Text;
with dm.ADOQuery3 do
  begin
  close;
  sql.Clear;
  sql.Add('select pass from admin where admin='''+admin1+'''');
  open;
  pass1:=dm.ADOQuery3.Fields[0].AsString;
  dm.ADOQuery3.Close;
  if pass2=pass1 then
    begin
     with dm.ADOQuery4 do
       begin
       close;
       sql.Clear;
       sql.Add('delete from admin where admin='''+admin1+'''');
       execsql;
       with dm.ADOQuery3 do
         begin
         close;
         sql.Clear;
         sql.Add('insert into admin(admin,pass) values('''+admin1+''','''+pass3+''')');
         execsql;
         end;
         dm.ADOQuery3.Close;
         dm.ADOQuery4.Close;
         messagebox(self.Handle,'修改密码成功','提示',mb_iconinformation+mb_ok);
         formshow(self);
       end;
     end
   else
   messagebox(self.Handle,'原密码错误','提示',mb_iconinformation+mb_ok);
   end;
   
end;


end.