ggmm.pas

来自「药店GSP源码」· PAS 代码 · 共 60 行

unit ggmm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, DBTables;

type
  TForm8 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Table1: TTable;
    Database1: TDatabase;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation
   uses login;
{$R *.dfm}

procedure TForm8.BitBtn2Click(Sender: TObject);
begin
form8.Close;
end;

procedure TForm8.BitBtn1Click(Sender: TObject);
begin
table1.Open;
if (table1['usercode']=edit1.Text) and (table1['passwork']=edit2.Text) then
 begin
  table1.Edit;
  table1['passwork']:=edit3.Text;
  table1.Post;
  application.MessageBox('恭喜你密码已更改','更改成功',mb_ok);
  form8.Close;
  form1.Show;
 end
else
 begin
  application.MessageBox('用户名不存在或密码不正确','错误',mb_ok);
 end;
end;

end.