procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  if Edit1.Text=DataModule11.ADOTable1.FieldByName('pass').AsString then
begin
Screen.Cursor := crHourGlass;
Form3.Label10.Caption:=DataModule11.ADOTable1.FieldByName('type_polz').AsString;
Form3.Label11.Caption:=DataModule11.ADOTable1.FieldByName('login').AsString;
Form3.Label12.Caption:=DataModule11.ADOTable1.FieldByName('group').AsString;
Form1.Hide;
form3.Show;
Screen.Cursor := crDefault;
end
else
if  Edit1.Text='' then
MessageBox(Handle, 'Введите пароль!', 'Ошибка',MB_ICONINFORMATION)
else
if Edit1.Text<>DataModule11.ADOTable1.FieldByName('pass').AsString then
MessageBox(Handle, 'Введеный пароль неверен!', 'Ошибка',MB_ICONINFORMATION);
end;

В с++ не юзаю, плохо понимаю
необходимо переписать на язык с++

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.06.2016, 16:56

Ответы с готовыми решениями:

Переписать код с Делфи на C#
Помогите мне переделать программу с Делфи на C# unit Unit1; interface uses Windows,...

Переписать код с делфи на Java
Доброе время суток, переведите, пожалуйста код с делфи на Java. С меня плюшки(если интересно какие...

Переписать код из делфи в C++ Builder
Код синтаксического анализатора Код синтаксического анализатора unit Unit2; interface uses ...

нужно код паскаля переписать на делфи
program z4; var a:array of real; i,m1,p:integer; m:string; begin ...

	15.06.2016, 16:56

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.06.2016, 16:56

Помогаю со студенческими работами здесь

Нужно код делфи переписать на паскаль
Дан двухмерный массив размером nxn, заполненный целыми числами а) все его отрицательные элементы...

Нужно переписать с Паскаля на Делфи код, находящий максимальный элемент матрицы
var a:array of integer; i,j,amax,n,k,c:integer; begin WriteLn('Введите размеры...

Как в Делфи выполнить код, написанный на Делфи, например в поле ввода?
Есть способ в Делфи выполнить код, написанный на Делфи, например в поле ввода?

переписать с Делфи
есть небольшая программка, в которой работа со строками, помогите пожалуйста переписать её на с++...

Переписать в делфи
народ, мне не нана делать их все, нада тока одну оформить в делфи, та которую проще будет..... ...

Переписать с СИшарп на Делфи
Помогите пожалуйста, кто знает, прога маленькая. суть проги тут using System; using...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх