Hi, нужна помощь по Delphi, а именно организовать добавление пользователя в БД Access. Авторизация уже работает, но добавлять надо вручную. Главная проблема в работоспособности SQL запроса.
Код регистрации:
------------------------------------------------------------------------------
Код:
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;
type
TForm4 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button2: TButton;
Button1: TButton;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit5, Unit2;
{$R *.dfm}
procedure TForm4.Button2Click(Sender: TObject);
begin
Form4.Close;
end;
procedure TForm4.Button1Click(Sender: TObject); //??????? ?????? ? ???????
begin
try
if (Trim(Edit1.Text)='') or (Trim(Edit2.Text)='') then showmessage('Заполните поля!');
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('insert into users ([login], [password]);');
DataModule2.ADOQuery1.FieldByName('login').AsString:=Edit1.Text;
DataModule2.ADOQuery1.FieldByName('password').AsString:=(Edit2.Text);
DataModule2.ADOQuery1.Insert;
Edit1.Clear;
Edit2.Clear;
except
on e:Exception do
end;
end;
lmikle: пользуемся тегами!