【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了，mpass.pas，希望对大家有所帮助！

    unit mpass;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, DBTables, StdCtrls, ExtCtrls;
    
    type
      TForm4 = class(TForm)
        Label1: TLabel;
        Label2: TLabel;
        Edit1: TEdit;
        Edit2: TEdit;
        Bevel1: TBevel;
        Button1: TButton;
        Button2: TButton;
        Table1: TTable;
        procedure Button1Click(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure Button2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form4: TForm4;
    
    implementation
    
    uses Usales;
    
    {$R *.dfm}
    
    procedure TForm4.Button1Click(Sender: TObject);
    var
      yh:string;
      flat:boolean;
    begin
      yh:=form1.StatusBar1.Panels.Items[2].Text;
      if (edit1.Text<>'') and (edit2.Text<>'') then
        if edit1.Text=edit2.Text then
        begin
          table1.Active:=true;
          flat:=table1.Locate('用户名',yh,[locaseinsensitive]);
          if flat=true then
          begin
            table1.Edit;
            table1.FieldByName('密码').AsString:=edit2.Text;
            table1.Post;
          end;
        end
      else
      begin
        edit1.Text:='';
        edit2.Text:='';
        messagedlg('请重新输入密码',mtInformation,[mbOK],0);
      end;
    end;
    
    procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      action:=cafree;
    end;
    
    procedure TForm4.Button2Click(Sender: TObject);
    begin
      close;
    end;
    
    end.
    

上一篇：Input.cpp
下一篇：她要是喜欢我