Добавление записи в DBGrid c помощью кода

[Droid]

У меня добавляет запись, но очень уж криво Можете посоветовать как лучше можно сделать

procedure TFD_PAC.BitBtn1Click(Sender: TObject);
begin
DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Text:='INSERT INTO pacient (familiya) VALUES (:e1);';
DM.ADOQ_PAC.Parameters.ParamByName('e1').Value:=Edit1.Text;
DM.ADOQ_PAC.Parameters[0].Value:=Edit1.Text;
DM.ADOQ_PAC.ExecSQL;

DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Add('SELECT familiya,imya,otchestvo,data_rogdeniya,pol,adres,telefon,kollichestvo_detey,semeynoe_pologenie,opekun,gitel,obrazovanie FROM pacient');
DM.ADOQ_PAC.Open;
FormActivate(Self);
end;

Еще вопрос у меня есть поле "pol" в таблице pacient оно у меня bit(1)-типа, при внесении оно у меня ставится только 0 или 1 а как мне сделать так, чтобы вводилось не 0 или 1, а "муж" или "жен" ?
Может там нужно тип поменять, если да то на какой ?

[ОДИНОЧЕСТВО В СЕТИ]

'SELECT familiya,imya,otchestvo,data_rogdeniya,pol,adres,telefon,kollichestvo_detey,semeynoe_pologenie,opekun,gitel,obrazovanie FROM pacient'

а не проще

'Select * from pacient'

[Droid]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

а не проще

'Select * from pacient'

нет не лучше у меня идентификатор не учавствует я его опустил.

Подскажите как мне добавить дату в ячейку DBGrid ? Пробовал так

DM.ADOQ_PAC.Parameters.ParamByName('d').Value:=datetostr(datetimepicker1.DateTime);

и так пробовал

DM.ADOQ_PAC.Parameters.ParamByName('d').Value:=datetimepicker1.Date;

неполучилось

выдает это:56.jpg


Но у меня, тако впечатление, что он мне с форматом чет потуает, потому что в MySQL Front записывается дата как 1985-12-05 а в Delphi он преобразует в 05.12.1985 и как сделать нормально не знаю:
весь код:

DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Text:='INSERT INTO pacient (familiya, imya,otchestvo,data_rogdeniya,telefon,kollichestvo_detey,semeynoe_pologenie,adres,gitel,obrazovanie) VALUES (:e1,:e2,:e3,:d,:e4,:e5,:e6,:e7,:e8,:m1);';
DM.ADOQ_PAC.Parameters.ParamByName('e1').Value:=Edit1.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e2').Value:=Edit2.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e3').Value:=Edit3.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e4').Value:=Edit4.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e5').Value:=strtoint(Edit5.Text);
DM.ADOQ_PAC.Parameters.ParamByName('e6').Value:=Edit6.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e7').Value:=Edit7.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e8').Value:=Edit7.Text;
DM.ADOQ_PAC.Parameters.ParamByName('m1').Value:=memo1.Text;
datetimepicker1.DateFormat:='yyyy-mm-dd'; // тут как писать не знаю ( 
DM.ADOQ_PAC.Parameters.ParamByName('d').Value:=datetimepicker1.Date;// тут тоже наверное не правильно (
//DM.ADOQ_PAC.Parameters[0].Value:=Edit1.Text;
DM.ADOQ_PAC.ExecSQL;

[Evgeniy26]

DM.ADOQ_PAC.Parameters.ParamByName( 'd').asString := FormatDateTime('dd-mm-yyyy', datetimepicker1.Date);

[Droid]

Сообщение от Evgeniy26

DM.ADOQ_PAC.Parameters.ParamByName( 'd').asString := FormatDateTime('dd-mm-yyyy', datetimepicker1.Date);

во благодар
Что можно сделать с этим:
Еще вопрос у меня есть поле "pol" в таблице pacient оно у меня bit(1)-типа, при внесении оно у меня ставится только 0 или 1 а как мне сделать так, чтобы вводилось не 0 или 1, а "муж" или "жен" ?
Может там нужно тип поменять, если да то на какой ?

[Evgeniy26]

1)Можно при создании базы создать поле:
pol ENUM('муж', 'жен') NOT NULL DEFAULT 'муж' - и вводить муж или жен.

2)Создай таблицу, занеси туда муж и жен с индексом 1 и 2. Потом в ADOQuery добавь поле Lookup.(Key Fields - Pol, DateSet - таблицы где муж и жен, Lookup Keys - индекс муж и жен, Result Fields - поле где муж и жен)

[Droid]

pol ENUM('муж', 'жен') NOT NULL DEFAULT 'муж' - и вводить муж или жен. -
ENUM - это тип его задать в MySQL - поменять тип столбца или написать как запрос ?

[Evgeniy26]

Вот пример http://dev.mysql.com/doc/refman/5.1/en/enum.html. Т.к у тебя бд создана используй ALTER.

[Droid]

Сообщение от Evgeniy26

Вот пример http://dev.mysql.com/doc/refman/5.1/en/enum.html. Т.к у тебя бд создана используй ALTER.

Все я создал короче ENUM, с помощью какого компонента им можно управлять и как ?

[Droid]

Сообщение от Evgeniy26

Вот пример http://dev.mysql.com/doc/refman/5.1/en/enum.html. Т.к у тебя бд создана используй ALTER.

Все я создал короче ENUM, с помощью какого компонента им можно управлять и как ?

ППц это надо во фронте создать еще 1 таблицу ? потом ее надо с главной как то соеденить ? или как ?