sys.pas

档案管理系统,档案管理系统vb+access源代码+可执行文件+论文+开题报告+外文翻译..

unit Sys;

interface

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

type
  TSysFrm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SysFrm: TSysFrm;

implementation

{$R *.dfm}

procedure TSysFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Session.RemoveAllPasswords;
  query1.Close;
  Action := CaFree;
end;

procedure TSysFrm.BitBtn2Click(Sender: TObject);
begin
  self.Close;
end;

procedure TSysFrm.FormCreate(Sender: TObject);
begin
  Session.AddPassword('12345');
  query1.Active := True;
end;

procedure TSysFrm.BitBtn1Click(Sender: TObject);
begin
  with Query1 do
  begin
  Close;
  Sql.Clear;
  Sql.Add('select * from pass.db where MiMa='''+edit1.text+'''');
  Open;
  end;
  if Edit1.Text <> Query1.FieldByName('MiMa').AsString Then
  begin
    Messagebox(handle,'原密码错误，不能更新密码库！','警告',MB_OK);
    EDit1.clear;
    EDit1.SetFocus;
    Exit;
  end;
  if Edit2.Text = Edit3.Text Then
  begin
    Query1.close;
    Query1.sql.Clear;
    Query1.sql.Add('update pass.db  set MiMa='''+edit3.text+'''  where MiMa='''+edit1.text+'''');
    Query1.ExecSQL;
    MessageBox(Handle,'密码已经成功修改！','恭喜恭喜',MB_OK);
    edit1.Clear;
    edit2.Clear;
    edit3.Clear;
    self.Close;
  end else
  begin
    MessageBox(Handle,'确认密码不一致，不能更新密码库！','是不是输错了',MB_OK);
    edit2.clear;
    edit3.Clear;
    edit2.SetFocus;
    Exit;
  end;
end;

end.