xgmm_p.pas

考试系统,是一个简单的但是很经典的

unit xgmm_p;

interface

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

type
  Tf_xgmm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_xgmm: Tf_xgmm;

implementation

uses main_p, dm_p;

{$R *.dfm}

procedure Tf_xgmm.FormShow(Sender: TObject);
begin
    edit1.Text:=f_main.dlmc;
end;

procedure Tf_xgmm.SpeedButton1Click(Sender: TObject);
begin
//修改密码
    if edit2.Text='' then
    begin
        application.MessageBox('请输入原密码！','提示信息',48);
        edit2.SetFocus;
        exit;
    end;
    if (trim(edit3.Text)='') or (trim(edit4.Text)='') then
    begin
        application.MessageBox('请输入新密码并进行核对！','提示信息',48);
        edit3.SetFocus;
        exit;
    end;
    if edit3.Text<>edit4.Text then
    begin
       application.MessageBox('两次输入的新密码不一致，请重新输入！','提示信息',48);
       edit3.SetFocus;
       exit;
    end;
    dm.skc.AppServer.ExecSqls('update x_yhb set dlmm='''+edit3.Text+''' where dlmm='''+edit2.Text+'''');
    application.MessageBox('修改密码成功，请牢记新密码！','反馈信息',48);
    close;
end;

procedure Tf_xgmm.SpeedButton2Click(Sender: TObject);
begin
   close;
end;

procedure Tf_xgmm.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then postmessage(handle,wm_keydown,9,0)
end;

end.