xiugaimima.pas

图书管理系统delphi.rar是用delphi编写的管理系统,清析的讲述了图书管的全部运行流程.对delphi有了解的人可以通过对这个管理系统的学习进一步得到提高.

unit xiugaimima;

interface

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

type
  Txiugaiform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBEdit3: TDBEdit;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DBGrid1: TDBGrid;
    Edit2: TEdit;
    DBEdit1: TDBEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xiugaiform: Txiugaiform;

implementation

{$R *.dfm}

procedure Txiugaiform.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Txiugaiform.BitBtn1Click(Sender: TObject);
var i:integer;
begin
adotable1.Open;
adotable1.First;
for i:=1 to adotable1.RecordCount do
    begin
    if (adotable1.FieldbyName('xingming').AsString=dbedit1.Text) and (adotable1.FieldbyName('mima').AsString=edit2.Text)  then
        begin
        dbedit1.SetFocus;
        adotable1.Edit;
        dbedit1.Text:='';
        edit2.Text:='';
        dbedit3.Text:='';
        break;
        showmessage('密码修改成功');
        end

    else
       adotable1.next;
                 
       if i=adotable1.RecordCount then showmessage('用户不合法');
       break;
end;


adotable1.close;
           

end;


procedure Txiugaiform.FormShow(Sender: TObject);
begin
 dbedit1.Text:='';
        edit2.Text:='';
        dbedit3.Text:='';
end;

end.