pas1.pas

delphi开发的委托加工管理系统源代码

unit pas1;

interface

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

type
  Tpas = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOCommand1: TADOCommand;
    ADODataSet1: TADODataSet;
    Edit2: TbsSkinPasswordEdit;
    Edit3: TbsSkinPasswordEdit;
    Edit4: TbsSkinPasswordEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  pas: Tpas;

implementation

uses log1, adodm;

{$R *.dfm}

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

procedure Tpas.FormCreate(Sender: TObject);
begin
edit1.Text:=log.flatcombobox1.Text
end;

procedure Tpas.BitBtn1Click(Sender: TObject);
begin
adodataset1.Active:=false;
adodataset1.CommandText:='select * from usedata where username='''+trim(edit1.Text)+'''';
adodataset1.Active:=true;
if adodataset1.RecordCount<>0 then
begin
if adodataset1.Fields[2].AsString=''+trim(edit2.Text)+'' then
if (edit3.Text=edit4.Text) then
begin
adocommand1.CommandText:='update usedata set pass='''+trim(edit3.Text)+''' where username='''+trim(edit1.Text)+'''';
adocommand1.Execute;
showmessage('密码修改成功！请记住新密码。')
end
else
showmessage('你输入的两次新密码不相同，请从新输入！')
else
showmessage('你输入的旧密码不正确！请从新输入。')
end
else
showmessage('你输入的用户名不存在!')
end;

end.