Поиск:

Ответ в темуСоздание новой темы Создание опроса
> CodeGear 2007 + MyDEAC ошибка в коде моей проги 
V
    Опции темы
xoslv
Дата 25.8.2009, 14:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 195
Регистрация: 12.1.2007

Репутация: нет
Всего: нет
Вот код моей прогрпммы:
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MyAccess, DB, MemDS, DBAccess, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    MyConnection1: TMyConnection;
    MyQuery1: TMyQuery;
    MyTable1: TMyTable;
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  User: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  login: string;
  pass: string;
  replay: integer;
begin
  login := Edit1.Text;
  pass := Edit2.Text;
  MyQuery1.SQL := 'SELECT COUNT(id) FROM users WHERE name='+login+' AND password=MD5('+pass+') LIMIT 1;';
  replay := MyQuery1.SQL;
  if replay<>0 then
  begin
    User = replay;
  end
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if (User=0) then
  begin
    Panel1.Visible := false;
    Panel2.Visible := true;
  end;
if (User<>0) then
  begin
    Panel1.Visible := true;
    Panel2.Visible := false;
  end;

end;

end.

Ругается на строку где я добавляю запрос. Это мой первый опыт в работе с БД поэтому прошу помощи!
Зарание спасибо!
З.Ы. Подскажите правельную конструкцию с IF & ELSE

Это сообщение отредактировал(а) xoslv - 25.8.2009, 14:36
--------------------
Не всё то маздай, что синее!
PM MAIL ICQ   Вверх
Frees
Дата 25.8.2009, 14:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
replay := MyQuery1.SQL; на этоу?

Добавлено через 1 минуту и 52 секунды
Код

  login := Edit1.Text;

  pass := Edit2.Text;
  MyQuery1.SQL := 'SELECT COUNT(id) c_id FROM users WHERE name='+login+' AND password=MD5('+pass+') LIMIT 1;';
  MyQuery1.Open; //или MyQuery1.ExecSql;
  replay := MyQuery1.FieldByName('c_id').asInteger;
  if replay<>0 then




--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
xoslv
Дата 25.8.2009, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 195
Регистрация: 12.1.2007

Репутация: нет
Всего: нет
Ругалось на :
Код

MyQuery1.SQL := 'SELECT COUNT(id) FROM users WHERE name='+login+' AND password=MD5('+pass+') LIMIT 1;';


Сейчас попробую! 
--------------------
Не всё то маздай, что синее!
PM MAIL ICQ   Вверх
Frees
Дата 25.8.2009, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
 MyQuery1.SQL.Text := ....


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
xoslv
Дата 25.8.2009, 14:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 195
Регистрация: 12.1.2007

Репутация: нет
Всего: нет
Всё равно ругается на 
Код

MyQuery1.SQL := 'SELECT COUNT(id) c_id FROM users WHERE name='+login+' AND password=MD5('+pass+') LIMIT 1;';

стфвит курсор перед последней точкой с запятой и пишет:
[DCC Error] Unit1.pas(47): E2010 Incompatible types: 'TStrings' and 'string'

Добавлено через 1 минуту и 48 секунд
Спасибо, заработало! Если ещё возникну траблы с таким кодом, продолжу эту тему!  smile 
--------------------
Не всё то маздай, что синее!
PM MAIL ICQ   Вверх
Frees
Дата 25.8.2009, 14:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
чет ты совсе нулевый(без обид)
http://forum.vingrad.ru/index.php?show_typ...showtopic=40345


Цитата(Frees @  25.8.2009,  17:38 Найти цитируемый пост)
MyQuery1.SQL.Text := ....


Добавлено через 1 минуту и 34 секунды
и еще вот
http://forum.vingrad.ru/index.php?show_typ...howtopic=179930

Добавлено через 2 минуты и 28 секунд
Цитата(xoslv @  25.8.2009,  17:40 Найти цитируемый пост)
 продолжу эту тему! 

лучше смотри примеры сперва


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
xoslv
Дата 25.8.2009, 16:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 195
Регистрация: 12.1.2007

Репутация: нет
Всего: нет
Спасибо за помощ!  smile 
--------------------
Не всё то маздай, что синее!
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0452 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.