uadd.~pas

一个简单CUDR例子

unit UAdd;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  md5,UDataMDL;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  sql:string;
  mpwd:string;
begin
     if edit1.Text='' then
        begin

        application.MessageBox('用户名不能为空','提示',MB_OK);
         exit;
        end;
      if edit2.Text='' then
        begin
        application.MessageBox('密码不能为空','提示',MB_OK);
         exit;
        end;
       mpwd:=md5.MD5Print(md5.MD5String(edit2.Text));
        sql:='insert into  users(username,password) values('''+edit1.Text+''','''+mpwd+''')';
       DataMDL.ADOQuery.Close;
       DataMDL.ADOQuery.SQL.Clear;
       DataMDL.ADOQuery.SQL.Add(sql);
        DataMDL.ADOQuery.ExecSQL;
       // if DataMDL.ADOQuery.RecordCount>0 then
       Application.MessageBox('添加成功','提示',mb_ok);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin
   Close;
end;

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

end.