unitct.~pas

小型仓库管理系统

unit UnitCT;

interface

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

type
  TfmCT = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    edt1: TEdit;
    Label2: TLabel;
    edt2: TEdit;
    Label3: TLabel;
    edt3: TEdit;
    btn1: TBitBtn;
    Label4: TLabel;
    edt4: TEdit;
    sbtn1: TSpeedButton;
    procedure btn1Click(Sender: TObject);
    procedure sbtn1Click(Sender: TObject);
    procedure edt1KeyPress(Sender: TObject; var Key: Char);
    procedure edt2KeyPress(Sender: TObject; var Key: Char);
    procedure edt3KeyPress(Sender: TObject; var Key: Char);
    procedure edt4KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmCT: TfmCT;

implementation

uses UnitDm, UnitC;

{$R *.dfm}

procedure TfmCT.btn1Click(Sender: TObject);
begin
 frDbm.dsetCT.Close;
 frDbm.dsetCT.CommandText:='select * from t_login where id='+trim(edt1.Text)+'';
 frDbm.dsetCT.Open;
 if (trim(frDbm.dsetCT.Fields[0].AsString)=trim(edt1.Text)) and
    (trim(frDbm.dsetCT.Fields[1].AsString)=trim(edt2.Text)) then
    begin
     if (trim(edt3.Text)=trim(edt4.Text)) and
        (trim(edt2.Text)<>'')   then
        begin
         frDbm.ComCT.CommandText:='update t_login set code='
         +trim(edt3.Text)+'where id='+trim(edt1.Text)+'';
         frDbm.ComCT.Execute;
         showmessage('密码修改成功！');
        end
     else  showmessage('密码重输错误，请重新输入！');
    end
 else
    showmessage('登录名或密码错误，请重新输入！');
end;

procedure TfmCT.sbtn1Click(Sender: TObject);
begin
  fmC.show;
  fmCT.Close;
end;

procedure TfmCT.edt1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
  btn1.Click;
end;

procedure TfmCT.edt2KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
  btn1.Click;
end;

procedure TfmCT.edt3KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
  btn1.Click;
end;

procedure TfmCT.edt4KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
  btn1.Click;
end;

end.