VPF::Проблема с DBCheckBox - Форум программистов

xoslv

Дата 7.12.2009, 20:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: нет

Доброго времени суток!
Помогите справиться с проблемкой...
Есть форма, на ней DBGrid, DBedit, DBCheckBox
Связяв всё это дело, и эдиты и чекбокс работают нормально для изменения данных. Но как только я хочу создать возможность добавления записи и в запросе хочу использовать значение чекбокса, начинаются проблемы...
Вот мой код:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, MemDS, DBAccess, MyAccess, StdCtrls, Mask,
  DBCtrls, CRGrid;

type
  TForm1 = class(TForm)
    MyConnection1: TMyConnection;
    MyQuery1: TMyQuery;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    MyUpdateSQL1: TMyUpdateSQL;
    MyTable1: TMyTable;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
var ip: string;
mac: string;
name: string;
stock: Integer;
manager: Integer;
status: Integer;
begin
name:= DBEdit1.Text;
ip:= DBEdit2.Text;
mac:= DBEdit3.Text;
DBCheckBox1.ValueUnchecked:='0';
DBCheckbox1.ValueChecked:='1';
DBCheckBox2.ValueUnchecked:='0';
DBCheckbox2.ValueChecked:='1';
DBCheckBox3.ValueUnchecked:='0';
DBCheckbox3.ValueChecked:='1';
manager:= DBCheckBox1.Handle;
stock:= DBCheckBox2.Handle;
status:= DBCheckBox3.Handle;
MyUpdateSQL1.ExecSQL('INSERT INTO `mac` VALUES(NULL,"'+name+'","'+ip+'","'+mac+'","'+manager+'","'+stock+'","'+status+'");');
DBGrid1.Refresh;
end;

end.

Программа стопорится на этом месте: '+manager+'.
В чём может быть причина? Подскажите люди добрые! Я в делфях 0, но возникла резкая необходимость...

--------------------

Не всё то маздай, что синее!

Keeper89

Дата 7.12.2009, 22:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 1
Всего: 58

Что, в базе хранятся хендлы компонентов?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Данкинг

Дата 7.12.2009, 23:11 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Так у тебя переменные manager, stock, status - числовые, а ты их пихаешь в строку. smile

--------------------

There's nothing left but silent epitaphs.

xoslv

Дата 8.12.2009, 10:22 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: нет

А как тогда их всталять?
Я поставил в БД manager, stock и status как BOOL. И получилось tinyint(1).
Как всётаки вставлять значение чекбокса и как присвоить значение в отмеченном варианте 1 и в неотмеченном 0 ?

--------------------

Не всё то маздай, что синее!

Данкинг

Дата 8.12.2009, 11:23 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(xoslv @ 8.12.2009, 10:22

)

А как тогда их всталять?

IntoTostr() smile

--------------------

There's nothing left but silent epitaphs.

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