unit4.~pas

商品管理系统是面向超市类的商品数据库管理系统。其主要功能包括用户购买商品

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.DFM}

procedure TForm4.Button1Click(Sender: TObject);
var
   password,password1:textfile;
   passwordstr,passwordstr1:string;
begin
   if form4.caption='管理员修改密码' then
      if edit1.text=edit2.Text then
        begin
            passwordstr:=edit1.text;
            assignfile(password,'config.cfg');
            rewrite(password);
            writeln(password,passwordstr);
            closefile(password);
            modalresult:=mrok;
            showmessage('您的密码以被修改，请您牢记');
            close;
        end  else showmessage('您前后两次输入的密码不一致')；
   if form4.Caption='经理修改密码'  then
      if edit1.text=edit2.Text then
       begin
            passwordstr1:=edit1.text;
            assignfile(password1,'config1.cfg');
            rewrite(password1);
            writeln(password1,passwordstr1);
            closefile(password1);
            modalresult:=mrok;
            showmessage('您的密码以被修改，请您牢记');
            close;
       end  else showmessage('您前后两次输入的密码不一致')；
end;

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

end.