1,676 Reply by sibprogsistem

(2 replies, posted in Russian)

Спасибо, оказывается все на много проще чем я думал

Go to forum: Russian

1,677 Topic by sibprogsistem

(2 replies, posted in Russian)

таблицы users и userStatus
в  users логин пароль
в  userStatus  значения администратор, мастер, сервис

мне нужно, что бы логин и пароль проверялись  на соответствие userStatus и в зависимости от этого значения открывалась соответствующая форма..

на сколько я понимаю мне нужно проверять на соответсвие с id_userStatus в таблице users

типа

s := SQLExecute('SELECT count(id) FROM users WHERE (id = ''' + IntToStr(Log.ComboBox1.dbItemID) + ''') AND (login = ''' + Log.Edit1.Text + ''') AND (password = ''' + Log.Edit2.Text + ''');');

если совпадает  то нужно показать форму в соответствии с Log.ComboBox1

типа

if SQLExecute ('SELECT admin FROM users WHERE id = '+IntToStr(Log.ComboBox1.dbItemID)) = '1' then admin.Show;

Go to forum: Russian

1,678 Reply by sibprogsistem

(4 replies, posted in Russian)

Большущее спасибо!

Go to forum: Russian

1,679 Reply by sibprogsistem

(4 replies, posted in Russian)

у меня запись в разные таблицы через скрипт, потому программа на  галочку "Обязательное" не реагирует, по тому и написал проверку заполнения полей.   Если делать через кнопки типа;

form1.dtn1.click
form1.dtn2.click

то получается глюк..

вот по тому и интересуюсь можно как-то вернуть именно всплывающее сообщение? но если нет, то ладно буду по старинке делать ))

Go to forum: Russian

1,680 Topic by sibprogsistem

(4 replies, posted in Russian)

есть такая проверка поля 

if (newApplication.Edit_firstNameClient.Text='') then showmessage('Вы не указали фамилию клиента')else

имеется ли возможность в место showmessage('Вы не указали фамилию клиента')  использовать  всплывающее сообщение  (данное поле обязательное для заполнения)

Go to forum: Russian

1,681 Reply by sibprogsistem

(2 replies, posted in Russian)

procedure ReceivinOgEquipment_ButtonOk_OnClick (Sender: TObject; var Cancel: boolean;);
 var sType : string = IntToStr(ReceivinOgEquipment.ComboBox_nameTypeOfEquipment.DbItemID);
     sManuf : string = IntToStr(ReceivinOgEquipment.ComboBox_nameManufacturer.DbItemID);
     sDate : string = FormatDateTime('dd-mm-yyyy',ReceivinOgEquipment.DateTime_dateInServise.Date);
    begin
    if (sType='-1') then
    showmessage('gcigvo')else
     begin
    SQLExecute('INSERT INTO client (firstNameClient, twoNameClient, lastNameClient, adresClient, passportNamberClient, passportSeriesClient, telephonClient) VALUES ("'+ReceivinOgEquipment.Edit_firstNameClient.Text+'", "'+ReceivinOgEquipment.Edit_twoNameClient.Text+'", "'+ReceivinOgEquipment.Edit_lastNameClient.Text + '", "'+ ReceivinOgEquipment.Edit_adresClient.Text + '", "'+ ReceivinOgEquipment.Edit_passportSeriesClient.Text + '", "'+ ReceivinOgEquipment.Edit_passportNamberClient.Text + '", "'+ ReceivinOgEquipment.Edit_telephonClient.Text + '")');
    SQLExecute('INSERT INTO servise (id_TypeOfEquipment, id_manufacturer, model, serialNamber, equipment, descriptionATCsWords, externalStatus, dateInServise) VALUES ("'+sType+'", "'+sManuf+'", "'+ ReceivinOgEquipment.Edit_model.Text + '", "'+ ReceivinOgEquipment.Edit_serialNamber.Text + '", "'+ ReceivinOgEquipment.Edit_equipment.Text + '", "'+ ReceivinOgEquipment.Memo_descriptionATCsWords.Text + '", "'+ ReceivinOgEquipment.Memo_externalStatus.Text + '", "'+sDate+'")');
    ReceivinOgEquipment.Close;
     end;
end;

проблема с вылетающей ошибкой то же решена, было ошибка в синтаксисе

Go to forum: Russian

1,682 Reply by sibprogsistem

(2 replies, posted in Russian)

procedure ReceivinOgEquipment_ButtonOk_OnClick (Sender: TObject; var Cancel: boolean;);
 var sType : string = IntToStr(ReceivinOgEquipment.ComboBox_nameTypeOfEquipment.DbItemID);
     sManuf : string = IntToStr(ReceivinOgEquipment.ComboBox_nameManufacturer.DbItemID);
     sDate : string = FormatDateTime('dd-mm-yyyy',ReceivinOgEquipment.DateTime_dateInServise.Date);
    begin
    if (sType='-1') then
    begin
    showmessage('gcigvo');
    end;
    SQLExecute('INSERT INTO client (firstNameClient, twoNameClient, lastNameClient, adresClient, passportNamberClient, passportSeriesClient, telephonClient) VALUES ("'+ReceivinOgEquipment.Edit_firstNameClient.Text+'", "'+ReceivinOgEquipment.Edit_twoNameClient.Text+'", "'+ReceivinOgEquipment.Edit_lastNameClient.Text + '", "'+ ReceivinOgEquipment.Edit_adresClient.Text + '", "'+ ReceivinOgEquipment.Edit_passportSeriesClient.Text + '", "'+ ReceivinOgEquipment.Edit_passportNamberClient.Text + '", "'+ ReceivinOgEquipment.Edit_telephonClient.Text + '")');
    SQLExecute('INSERT INTO servise (id_TypeOfEquipment, id_manufacturer, model, serialNamber, equipment, descriptionATCsWords, externalStatus, dateInServise) VALUES ("'+sType+'", "'+sManuf+'", "'+ ReceivinOgEquipment.Edit_model.Text + '", "'+ ReceivinOgEquipment.Edit_serialNamber.Text + '", "'+ ReceivinOgEquipment.Edit_equipment.Text + '", "'+ ReceivinOgEquipment.Memo_descriptionATCsWords.Text + '", "'+ ReceivinOgEquipment.Memo_externalStatus.Text + '", "'+sDate+'")');
    ReceivinOgEquipment.Close;
end;

Все проблема решена
if (sType='-1') then

Go to forum: Russian

1,683 Topic by sibprogsistem

(2 replies, posted in Russian)

procedure ReceivinOgEquipment_ButtonOk_OnClick (Sender: TObject; var Cancel: boolean;);
 var sType : string = IntToStr(ReceivinOgEquipment.ComboBox_nameTypeOfEquipment.DbItemID);
     sManuf : string = IntToStr(ReceivinOgEquipment.ComboBox_nameManufacturer.DbItemID);
     sDate : string = FormatDateTime('dd-mm-yyyy',ReceivinOgEquipment.DateTime_dateInServise.Date);
 begin
    SQLExecute('INSERT INTO client (firstNameClient, twoNameClient, lastNameClient, adresClient, passportNamberClient, passportSeriesClient, telephonClient) VALUES ("'+ReceivinOgEquipment.Edit_firstNameClient.Text+'", "'+ReceivinOgEquipment.Edit_twoNameClient.Text+'", "'+ReceivinOgEquipment.Edit_lastNameClient.Text + '", "'+ ReceivinOgEquipment.Edit_adresClient.Text + '", "'+ ReceivinOgEquipment.Edit_passportSeriesClient.Text + '", "'+ ReceivinOgEquipment.Edit_passportNamberClient.Text + '", "'+ ReceivinOgEquipment.Edit_telephonClient.Text + '")');
    SQLExecute('INSERT INTO servise (id_TypeOfEquipment, id_manufacturer, model, serialNamber, equipment, descriptionATCsWords, externalStatus, dateInServise) VALUES ("'+sType+'", "'+sManuf+'", "'+ ReceivinOgEquipment.Edit_model.Text + '", "'+ ReceivinOgEquipment.Edit_serialNamber.Text + '", "'+ ReceivinOgEquipment.Edit_equipment.Text + '", "'+ ReceivinOgEquipment.Memo_descriptionATCsWords.Text + '", "'+ ReceivinOgEquipment.Memo_externalStatus.Text + '", "'+sDate+'")');
    ReceivinOgEquipment.Close;
 end;

проблема такая:
если при сохранении использую ComboBox_nameTypeOfEquipment и ComboBox_nameManufacturer, то записи сохраняются, но если эти значения не выбирать , то получаю ошибку "constraint failed".
я хочу сделать проверку заполнения но немогу понять как проверить  "'+sType+'", "'+sManuf+'
может что-то вроди if ('+sType+'='-1')

Go to forum: Russian

1,684 Reply by sibprogsistem

(2 replies, posted in Russian)

спасибо!

Go to forum: Russian

1,685 Topic by sibprogsistem

(2 replies, posted in Russian)

KomboBox отображает записи 2-х столбцов, ИМЯ и СУММА

нужно что бы при выборе знечения в KomboBox
в edit1 отображалось имя а в edit2 сумма

Go to forum: Russian

1,686 Reply by sibprogsistem

(10 replies, posted in Russian)

да решино..

Go to forum: Russian

1,687 Reply by sibprogsistem

(10 replies, posted in Russian)

Все наконец-то сделал

Form1.Edit2.Text := Form1.ComboBox1.Text;

Go to forum: Russian

1,688 Reply by sibprogsistem

(10 replies, posted in Russian)

Да, не пойму как

Go to forum: Russian

1,689 Reply by sibprogsistem

(10 replies, posted in Russian)

в моем случае хотелось бы выбрать из equipment.nameEquipment и записать в servise.equipment не пребигая к favoritEquipment

Go to forum: Russian

1,690 Reply by sibprogsistem

(10 replies, posted in Russian)

в моем сёлучае хотелось бы выбрать из equipment.nameEquipment и переместить в servise.equipment не пребигая к favoritEquipment

Go to forum: Russian

1,691 Topic by sibprogsistem

(10 replies, posted in Russian)

порылся на форуме, нашел вариант с сохранением,  нитересный по работает только с id.... а меня все таки интересует возможность сохранить выбронные данные в стороннюю ячейки..

Может если возможно, то все таки реализовать что, то вроди этого..
https://ibb.co/bxEMxS

Go to forum: Russian

1,692 Reply by sibprogsistem

(3 replies, posted in Russian)

прошу прощения!! все ок, правельно, там же null... спасибо решено

Go to forum: Russian

1,693 Reply by sibprogsistem

(3 replies, posted in Russian)

DriveSoft wrote:

попробуйте с помощью такого вычисляемого поля

IFNULL(A, '') || IFNULL(B, '')

нет, не то, мне нужно что бы каждая запись была в своей ячейки

Go to forum: Russian

1,694 Topic by sibprogsistem

(3 replies, posted in Russian)

есть такая запись:

      A               B
    ------          ------
      1              null
     null             2
      3              null

нужно получить:
         
         C
       ------
          1
          2
          3

Go to forum: Russian