unit7.pas

来自「利用Acess数据库」· PAS 代码 · 共 71 行

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Db, DBTables;

type
  Tchange = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Table1: TTable;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  change: Tchange;

implementation

uses Unit1;

{$R *.DFM}

procedure Tchange.BitBtn1Click(Sender: TObject);
begin
  if edit1.Text=edit2.Text then
   begin
     Table1.Open;
     table1.First;
     table1.Edit;
       while not table1.Eof do
       begin
         if table1.Fields[0].AsString=login.logname then
            table1.fields[1].asstring:=edit1.Text;
         table1.Next;
       end;
      table1.edit; 
      table1.post;
      table1.Refresh;
     end;
     
     table1.Close;
     
end;

procedure Tchange.BitBtn3Click(Sender: TObject);
begin
 close;
end;

procedure Tchange.FormCreate(Sender: TObject);
begin
  table1.Open;
end;

end.