xgmm.~pas

企业库存管理系统

unit xgmm;

interface

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

type
  Txgmmfrm = class(TForm)
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Image1: TImage;
    BitBtn1: TBitBtn;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    BitBtn3: TBitBtn;
    DataSource1: TDataSource;
    DBEdit2: TDBEdit;
    DBEdit1: TDBEdit;
    ADOTable1: TADOTable;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xgmmfrm: Txgmmfrm;

implementation
    uses main;
{$R *.dfm}

procedure Txgmmfrm.BitBtn1Click(Sender: TObject);
begin
 with adoquery1 do
 begin
 Close;
 SQL.Clear;
 SQL.Add('select * from [dbo].[USER] where name=:str1 and password=:str2');
 Parameters.ParamByName('str1').Value:=dbedit1.Text;
 Parameters.ParamByName('str2').Value:=dbedit2.Text;
 Open;
 First;
 if recordcount<>0  then
 begin
  if edit3.text=edit4.Text then
  begin
  sql.Add('insert into [dbo].[USER] (name,password) values(');
  sql.Add(''''+dbedit1.text+''''+','+''''+edit3.Text+''''+')');
  execsql;
  showmessage('修改密码成功！');
  end
  else
  showmessage('密码不一致！');
  end;
  end;
  end;
procedure Txgmmfrm.BitBtn2Click(Sender: TObject);
begin
xgmmfrm.Hide;
end;

procedure Txgmmfrm.BitBtn3Click(Sender: TObject);
begin
mainfrm.Show;
xgmmfrm.Hide;
end;

end.