unitchangepass.pas

这是一个很好的超市管理系统

unit UnitChangePass;

interface

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

type
  TFrmChangePass = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure ComboBox1DropDown(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmChangePass: TFrmChangePass;

implementation

{$R *.dfm}

procedure TFrmChangePass.ComboBox1DropDown(Sender: TObject);
var
  adoquery1: TADOQuery;
  str1: string;
begin
  Combobox1.Clear;
  TADOQuery.Create(self);
  adoquery1.connectionstring := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\代码与资料库\数据库备份\XHXS.mdb;Mode=Share Deny None;'
    + 'Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:'
    + 'Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'
    + 'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Do not Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
  str1 := 'select user_name from user';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(str1);
    if (not prepared) then
      prepared := true;
    try
      open;
    except
      ExecSQL;
    end;
  end;
end;

procedure TFrmChangePass.BitBtn1Click(Sender: TObject);
var
  str1: string;
  adoquery2: TADOQuery;
begin
  str1 := 'update user set user_id = :id where user_name = :name';
  TADOQuery.Create(self);
  adoquery2.connectionstring := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\代码与资料库\数据库备份\XHXS.mdb;Mode=Share Deny None;'
    + 'Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:'
    + 'Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'
    + 'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Do not Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
  if (Edit1.Text = '') then
  begin
    showmessage('请输入源密码');
    exit;
  end;
  with adoquery2 do
  begin
    close;
    SQL.Clear;
    SQL.Add(str1);
    parameters.ParamByName('id').Value := trim(Edit2.Text);
    parameters.ParamByName('name').Value := trim(combobox1.Text);
    if (not prepared) then
      prepared := true;
    try
      ExecSQL;
    except
      showmessage('操作失败，请再试！');
      exit;
    end;
  end;
end;

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

end.