managerunit.pas

来自「软件简介：（贸易管理系统Delphi源代码（有开发文档） 采用access+de」· PAS 代码 · 共 84 行

unit managerunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ImgList, Buttons,Db;

type
  Tmanagerfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  managerfrm: Tmanagerfrm;

implementation

uses datamoduleUnit;

{$R *.dfm}

procedure Tmanagerfrm.SpeedButton1Click(Sender: TObject);
begin
   with datamodule2 do
    begin
    if  ADSid.Locate('username',edit1.Text,[loPartialKey]) then
     if  edit2.Text=ADSid.Lookup('username',edit1.Text,'password') then
       begin
            with ADSid do
               begin
                ADSid.Edit;
               if edit3.Text=edit4.Text then
                    begin
                        fieldbyname('password').AsString:=edit3.Text;
                        ADSid.Post ;
                        ADSid.Refresh;
                        showmessage('密码修改成功！')
                    end
                else showmessage('确认错误！');
               end; //with
       end//if
       else showmessage('密码输入错误！');
    end;//with
 edit2.Text:='';
 edit3.Text:='';
 edit4.Text:='';
 managerfrm.Close;


end;

procedure Tmanagerfrm.SpeedButton2Click(Sender: TObject);
begin
with datamodule2.ADSid do
  begin
     insert;
     FieldByName('username').AsString:=edit1.Text;
     FieldByName('password').AsString:=edit3.Text;
     post;
     refresh;
  end;
  showmessage('注册成功！');
   managerfrm.Close;
end;

end.