unpass.pas

自己写的学生成绩管理系统

unit unpass;

interface

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

type
  Tfmpass = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmpass: Tfmpass;

implementation
   uses unmain;
var
 database:string;
{$R *.dfm}

procedure Tfmpass.FormCreate(Sender: TObject);
begin
  if cringt=1  then
  begin
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select * from student');
     database:='student';
  end
  else
    if cringt=2 then
       begin
         adoquery1.SQL.Clear;
         adoquery1.SQL.Add('select * from Teacher');
         database:='Teacher';
       end
    else
      if cringt=3 then
         begin
            adoquery1.SQL.Clear;
            adoquery1.SQL.Add('select * from admin');
            database:='admin';
         end;
  adoquery1.Open;
  label7.Caption:='用户名：'+username;
end;

procedure Tfmpass.Button1Click(Sender: TObject);
begin
  if (edit1.Text=password) and (edit2.Text=edit3.Text) then
    begin
      if adoquery1.Active then
        begin
           adoquery1.Edit;
           adoquery1.FieldByName('密码').AsString:=edit3.Text;
            //adoquery1.SQL.Clear;
           //adoquery1.SQL.Add('update :var0 set 密码=:var1');
           //adoquery1.Parameters[0].Value:=database;
           //adoquery1.Parameters[1].Value:=edit2.Text;
           adoquery1.Post;
           showmessage('密码修改成功!');
        end;   
    end
  else
  showmessage('密码修改失败!');  
end;

procedure Tfmpass.Button2Click(Sender: TObject);
begin
 close;
end;

end.