password.~pas

用VC和SQL Server开发的固定资产管理系统

unit password;

interface

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

type
  TForm2 = class(TForm)
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    Edit1: TEdit;
    Panel1: TPanel;
    Button1: TButton;
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Button2: TButton;
    Button3: TButton;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    Label4: TLabel;
    Edit4: TEdit;
    procedure Button3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
   // procedure Button1Click(Sender: TObject);
   // procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}


procedure TForm2.Button3Click(Sender: TObject);
begin
   close;
end;

procedure TForm2.FormActivate(Sender: TObject);
  var username:string;
  qx:array[1..4] of boolean ;
begin
    if qx[1] then
    begin
        edit1.text:='admin';
        edit1.SetFocus;
    end
    else
    begin
        edit1.text:=username;
        edit1.readonly:=true;
        edit1.TabStop:=false;
        edit1.Enabled:=false;
        edit2.setfocus;
    end;
    edit2.text:='';
    edit3.text:='';
end;

procedure TForm2.Edit1Exit(Sender: TObject);
    var
    adodataset1:TAdoDataset;
begin
    if edit1.text<>'' then
    begin
        adodataset1:=TAdodataset.create(self);
        adodataset1.Connection:=adoconnection1;
        adodataset1.close;
        adodataset1.CommandType:=cmdText;
        adodataset1.CommandText:='select * from 用户表 where 用户名=:username';
        adodataset1.Parameters.clear;
        adodataset1.Parameters.AddParameter;
        adodataset1.Parameters[0].name:='username';
        adodataset1.Parameters[0].DataType:=ftstring;
        adodataset1.Parameters[0].Direction:=pdinput;
        adodataset1.Parameters[0].Value:=edit1.text;
        adodataset1.Active:=true;
        if adodataset1.Recordset.RecordCount=0 then
        begin
            Application.MessageBox('您输入的用户名错误，请检查！','提示信息',mb_ok);
            edit1.setfocus;
        end;
        adodataset1.Close;
    end ;
end;


procedure TForm2.Button2Click(Sender: TObject);
var
    adoquery1:TAdoQuery;
begin
    if edit2.text=edit3.text then
    begin
        Adoquery1:=TAdoQuery.Create(self);
        Adoquery1.Connection:=adoconnection1;
        adoquery1.SQL.Clear;
        adoquery1.SQL.add('update 用户表 set 密码=:password where 用户名=:username');
        adoquery1.Parameters.Clear;
        adoquery1.Parameters.AddParameter;
        adoquery1.Parameters[0].Name:='password';
        adoquery1.Parameters[0].DataType:=ftstring;
        adoquery1.Parameters[0].Direction:=pdinput;
        adoquery1.Parameters[0].Value:=edit2.text;
        adoquery1.Parameters.AddParameter;
        adoquery1.Parameters[1].Name:='username';
        adoquery1.Parameters[1].DataType:=ftstring;
        adoquery1.Parameters[1].Direction:=pdinput;
        adoquery1.Parameters[1].Value:=edit1.text;
        adoquery1.ExecSQL;
        adoquery1.Close;
    end
    else
    begin
        Application.MessageBox('两次密码输入不一致，请检查！','提示信息',mb_ok);
    end;
    edit2.SetFocus;
    edit2.text:='';
    edit3.text:='';
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  showmessage('接受你的资料') ;
end;

end.