umodify.pas

一个简单CUDR例子

unit UModify;

interface

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

type
  TFModify = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Edit4: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FModify: TFModify;

implementation
uses UDataMDL;

{$R *.dfm}

procedure TFModify.Button2Click(Sender: TObject);
begin
close;
end;

procedure TFModify.Button1Click(Sender: TObject);
 var
    rsql,sSQL:string;

begin
   if edit1.Text='' then
    begin
     application.MessageBox('用户名不能为空','提示信息',MB_ok);
     edit1.SetFocus;
     exit;
     end;
   if edit2.Text=''  then
     begin
     application.MessageBox('密码不能为空','提示',MB_OK);
     edit2.SetFocus;
     exit;
     end;
   if edit3.Text<>edit2.Text then
     begin
     Application.MessageBox('原密码与确认密码不同','提示',MB_OK);
     exit;
     end;
   sSQL:='update users set username='''+edit1.Text+''',password='''+edit2.Text+
        ''' where id='''+edit4.Text+'''';
     with DataMDL.ADOQuery do
       begin
           close;
           sql.Clear;
           sql.Add(sSQL);
           ExecSQL;
       end;
   Application.MessageBox('修改成功','提示',MB_ok);

   rsql:='select * from users';
   DataMDL.ADOQuery.Close;
   DataMDL.ADOQuery.SQL.Clear;
   DataMDL.ADOQuery.SQL.Add(rsql);
   DataMDL.ADOQuery.Open;
end;

procedure TFModify.DBGrid1CellClick(Column: TColumn);
begin
 edit1.Text:= Dbgrid1.Fields[1].AsString;
 edit2.Text:=Dbgrid1.Fields[2].AsString;
 edit4.Text:=dbgrid1.Fields[0].AsString;
end;

procedure TFModify.FormShow(Sender: TObject);
 var
  sql:string;
begin
   sql:='select * from users';
   DataMDL.ADOQuery.Close;
   DataMDL.ADOQuery.SQL.Clear;
   DataMDL.ADOQuery.SQL.Add(sql);
   DataMDL.ADOQuery.Open;
   DataMDL.ADOQuery.Active:=true;
end;

procedure TFModify.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree;
end;

end.