amend.~pas

这也是师兄的毕业设计,具体的功能我也不清楚,因为我才大一,请见谅!!!!!!!不过是可以用来答辩的,完整的毕业设计,有源代码,可爱执行文件,文档资料.

unit amend;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls;

type
  Tf_amend = class(TForm)
    Image1: TImage;
    GroupBox3: TGroupBox;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    Image2: TImage;
    GroupBox2: TGroupBox;
    Image3: TImage;
    edit1: TEdit;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    edit2: TEdit;
    StaticText4: TStaticText;
    edit3: TEdit;
    StaticText5: TStaticText;
    Button1: TButton;
    DBText1: TDBText;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_amend: Tf_amend;

implementation

uses datamodule;

{$R *.dfm}

procedure Tf_amend.BitBtn1Click(Sender: TObject);
Var
passwd, passwrd:String;
 i:integer;
 user:string ;
begin
passwd:=trim(Edit1.Text);
//user:=SB_Login;
if  (Edit2.Text=Edit3.Text) then
begin
        DM.q_maintenance.First;
        //for i:=0 to DM.q_maintenance.RecordCount-1  do
        begin
         passwrd:=trim(DM.q_maintenance['User_Password']);
         if (passwrd=passwd) then
         begin
          DM.q_maintenance.Edit;
          DM.q_maintenance['User_Password']:=Edit2.Text;
           DM.q_maintenance.Post;
          F_Amend.Close;
           Exit;
         end
         else
         //DM.q_maintenance.next;
           Application.MessageBox('旧密码输入不正确。'+#13+'请重新输入旧密码！','请输入旧密码',MB_OK);
           edit1.Text:='';
                  edit2.Text:='';
     edit3.Text:='';


         end;
//         DBText1.DataField:= user;
         //Application.MessageBox('请重新输入密码。'+#13+'注意大小写！','密码旧密码错误',MB_OK);

end
else
         Application.MessageBox('请重新确认密码。'+#13+'注意大小写！','密码确认错误',MB_OK);
//         DBText1.DataField:= user;
    // edit1.Text:='';
        //edit2.Text:='';
     edit3.Text:='';
end;


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

procedure Tf_amend.Button1Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;

procedure Tf_amend.FormShow(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;

end.