gmdelpas.pas

delphi通用信息管理系统源码 供学习使用

unit GMdelPas;

interface

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

type
  TDelPass = class(TForm)
    Label1: TLabel;
    OKBtn: TBitBtn;
    CancelBtn: TBitBtn;
    UserList: TComboBox;
    Security: TTable;
    procedure FormCreate(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DelPass: TDelPass;

implementation
uses GMMSmain;
{$R *.DFM}

procedure TDelPass.FormCreate(Sender: TObject);
var
  i:Integer;
begin
  security.Open;
  security.First;
  for i:=1 to security.Recordcount do
    begin
      UserList.Items.Add(security.FieldByName('UserName').AsString);
      security.Next;
    end;
  security.Close;
end;

procedure TDelPass.CancelBtnClick(Sender: TObject);
begin
  Close;
end;

procedure TDelPass.OKBtnClick(Sender: TObject);
begin
  security.Open;
  security.First;
  security.FieldByName('Password').AsString:=UserList.Text;
  if security.GotoKey then
    begin
      security.Edit;
      security.FieldByName('Password').AsString:='';
      security.Post;
    end
  else
    Application.MessageBox('没有找到用户！','出错',mb_OK+mb_ICONQUESTION);
  security.Close;
end;

end.