| Код |
CREATE TABLE USERS (
ID INTEGER NOT NULL,
LOGIN VARCHAR(30),
PASS VARCHAR(30),
RID INTEGER NOT NULL
);
|
SQL запрос создающий таблицу. Скопировал кусок из проекта, для твоей задачи поле RID, думаю не обязательно.
Дальше на приложении клиенте две поля - для логина и пароля. И кнопочку коннект. Обработчик события OnClick этой кнопки может выглядеть например так :
| Код |
void __fastcall TLogin::bttnConnectClick(TObject *Sender)
{
int rcount;
AnsiString pw_text, login_text, SQL_str, role_str, dept_name;
if (edit_login->Text.Length() != 0 )
{
if (edit_pw->Text.Length() !=0 )
{
Main->IBDatabase1->Params->Append("user_name=ESTAB");
Main->IBDatabase1->Params->Append("password=estab");
Main->IBDatabase1->Params->Append("sql_role_name="+ROLE);
Main->IBDatabase1->Params->Append("lc_ctype=WIN1251");
Main->IBDatabase1->Connected = true;
Main->IBLogin->SelectSQL->Clear();
SQL_str = "SELECT count (*) AS rcount FROM USERS WHERE (LOGIN='";
pw_text = edit_pw->Text;
login_text = edit_login->Text;
SQL_str = SQL_str + login_text + "') AND (PASS = '" + pw_text + "')";
Main->IBLogin->SelectSQL->Add(SQL_str);
Main->IBLogin->Open();
rcount = Main->IBLogin->FieldByName("rcount")->AsInteger;
if (rcount == 0)
{
ShowMessage("Error, user not found");
Main->IBDatabase1->Connected = false;
}
else
{
// запуск некоторой формы для пользователя, успешно прошедшего проверку.
}
|
Код C++ Builder \ InterBase \ InterBase Express
Я ответил на вопрос ? |
обычно когда говорят алгоритм, просят привести пример кода. Ты наоборот.