Delphi

Автор AmonRa, 01:41, 22 августа, 2003

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

Art

Цитата: AmonRa от 23:40, 02 декабря, 2003
а без компонентов можно?? Или где его достать?

www.torry.net
- правда на 7-ю Delphi пока только Trial версия ... на 5-6 -ю уже есть вполне рабочие - хацкеры не дремлют ))
..............
или давай болванку - нарисуем
Враг всегда стреляет точнее, ... точнее врага стреляют только свои в спину !

AmonRa

Люди, помогите, естьтакая штука: в базе данные поле "password" и поле "user" мне надо сделать так, чтобы проверялся пароль (edit) и в label отображался пользователь как сделать? Как проверить пароль я знаю, а вот с пользователем проблемка!

Vad

Цитата: AmonRa от 01:41, 07 декабря, 2003
Люди, помогите, естьтакая штука: в базе данные поле "password" и поле "user" мне надо сделать так, чтобы проверялся пароль (edit) и в label отображался пользователь как сделать? Как проверить пароль я знаю, а вот с пользователем проблемка!

Зачем тебе пользователь в Label ?
Пользователя тоже вводят (обычно). А в caption не пробовал писать?  ;)
Удача терпелива...


AmonRa

Цитата: Vad от 02:02, 07 декабря, 2003
Зачем тебе пользователь в Label ?
Пользователя тоже вводят (обычно). А в caption не пробовал писать?  ;)
Мне именно в label'e надо, а с caption пробовал, не получается.! Есть идеи?

AmonRa

Блин, люди, как менять обои в win xp!!! В win 2000 ЗНАЮ, если кому надо могу написать, а вот с xp проблемка, подскажите пожалуйста!


Vad

Цитата: AmonRa от 00:11, 10 декабря, 2003

Мне именно в label'e надо, а с caption пробовал, не получается.! Есть идеи?

Блин, люди, как менять обои в win xp!!! В win 2000 ЗНАЮ, если кому надо могу написать, а вот с xp проблемка, подскажите пожалуйста!


Можна я одну весчь скажу, только ты не обижайся. :)
Может для начала подучиться или книжку умную прочитать?
Ну или в крайнем случае:
http://delphi.mastak.ru/cgi-bin/forum.pl?n=0
Удача терпелива...

AmonRa

#31
Цитата: Vad от 11:42, 10 декабря, 2003
Можна я одну весчь скажу, только ты не обижайся. :)
Может для начала подучиться или книжку умную прочитать?
Ну или в крайнем случае:
http://delphi.mastak.ru/cgi-bin/forum.pl?n=0


Да я вообще то не обижаюсь.
В общем пишу такую штуку:
var strField:string;
begin
edit2.SetFocus;TABLE1.Active:=TRUE;strField:='PASSWORD';
if Table1.Locate(strField, Edit2.Text, [loCaseInsensitive, loPartialKey])
then begin
table1.Active:=false; panel2.Visible:=true; PANEL3.Visible:=FALSE;
// а здесь должно быть что-то типа
User:=Table1.FieldByName('User').asString;
Form1.Caption:='Пользователь  '+User;
end else
label4.caption:= ' Пароль неверный ';
end;
Но при компиляции мне говорят что такого поля нет! Что делать?
И еще! Не знаю что такое но сообщения у меня не хотят обрабатываться, при компиляции пишет:"Mising operator or semicolon" во как что это?

Vad

Цитата: AmonRa от 23:53, 11 декабря, 2003

Да я вообще то не обижаюсь.
В общем пишу такую штуку:
var strField:string;
begin
edit2.SetFocus;TABLE1.Active:=TRUE;strField:='PASSWORD';
if Table1.Locate(strField, Edit2.Text, [loCaseInsensitive, loPartialKey])
then begin
table1.Active:=false; panel2.Visible:=true; PANEL3.Visible:=FALSE;
// а здесь должно быть что-то типа
User:=Table1.FieldByName('User').asString;
Form1.Caption:='Пользователь  '+User;
end else
label4.caption:= ' Пароль неверный ';
end;
Но при компиляции мне говорят что такого поля нет! Что делать?
И еще! Не знаю что такое но сообщения у меня не хотят обрабатываться, при компиляции пишет:"Mising operator or semicolon" во как что это?


Ты закрываешь таблицу, а потом обращаешься к полю.
И потом поле  User, оно у тебя точно есть?
И ты где-то не поставил точку с запятой.
Удача терпелива...


AmonRa

Цитата: Vad от 00:01, 13 декабря, 2003
Ты закрываешь таблицу, а потом обращаешься к полю.
И потом поле  User, оно у тебя точно есть?
И ты где-то не поставил точку с запятой.
ДА, вот это протупил, но ничего, уже все исправил, работает, а как на счет showmessage??? Уж больно нужно!

Vad

Цитата: AmonRa от 23:32, 16 декабря, 2003
ДА, вот это протупил, но ничего, уже все исправил, работает, а как на счет showmessage??? Уж больно нужно!

Чего showmessage???  ???
:nope
Удача терпелива...


AmonRa

Цитата: Vad от 00:56, 17 декабря, 2003
Чего showmessage???  ???
:nope
И еще! Не знаю что такое но сообщения у меня не хотят обрабатываться, при компиляции пишет:"Mising operator or semicolon" во как что это? А когда делаешь обработчик нажатия кнопки, то вообще: Undeclared identifier:'showmessage'!!! Во как! В чем дело?

Vad

#36
Цитата: AmonRa от 23:11, 17 декабря, 2003
И еще! Не знаю что такое но сообщения у меня не хотят обрабатываться, при компиляции пишет:"Mising operator or semicolon" во как что это? А когда делаешь обработчик нажатия кнопки, то вообще: Undeclared identifier:'showmessage'!!! Во как! В чем дело?

Дословный перевод:
"Потерян оператор или точка с запятой." При этой ошибке программа
должна остановится на строке, которая ей не нравится.

С showmessage...
Эта процедура объявленна в модуле Dialogs. Проверь есть ли он  у
тебя в Uses. И правильно ли написанно "showmessage".
И читай, читай книжки побольше...
:)
Удача терпелива...

AmonRa

А почему такая бяка, вроде Delphi сама всегда добавляет такие модули в Uses! Странно все это, вот добавил, заработало, почему так произошло?


Люди, кто-нибудь знает как менять обои
под Win XP???

ASS304

Цитата: AmonRa от 23:38, 19 декабря, 2003

Люди, кто-нибудь знает как менять обои
под Win XP???

Обыкновенно... :nope

AmonRa

По крайней мере вот это не работает:
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Control Panel\Desktop',true);
reg.WriteString('Wallpaper',FileListBox1.Filename);
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil,SPIF_SENDwinIniCHANGE);
reg.CloseKey;
reg.free;
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop; ActiveDesktop.SetWallpaper('c:\windows\forest.bmp',0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);

Vad

#40
Цитата: AmonRa от 00:24, 22 декабря, 2003
По крайней мере вот это не работает:
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Control Panel\Desktop',true);
reg.WriteString('Wallpaper',FileListBox1.Filename);
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil,SPIF_SENDwinIniCHANGE);
reg.CloseKey;
reg.free;
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop; ActiveDesktop.SetWallpaper('c:\windows\forest.bmp',0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);


Чет ты опять накрутил....
Нету под рукой XP проверить, но для остальных этого куска хватает:

reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Control Panel\Desktop',true);
reg.WriteString('Wallpaper',SavePictureDialog1.FileName);
reg.CloseKey;
reg.free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil,SPIF_SENDwinIniCHANGE);

==============
Проверил энто на ХР, все пашет.
;D
Удача терпелива...

AmonRa

Подскажите пожалуйста где можно скачать RX компоненты для !!!delphi 7!!! А то закачал один, а он не пашет! Говорит что нет файла Gauses или что-то в этом роде, если у кого есть вышлите или скиньте ссылку!

Morilov Andrey

Кpепко жму гоpло, искpенне Ваш, Андрей

AmonRa

Привет народ, подскажите пожалуйста как сделать сетевой ч\з TCP\IP чат. Только основное - компоненты (стандартные желательнее всего) и др. "приятные" примочки. Заранее спасибо

Irwin Skull

AmonRa все зависит от троего уровня ...... на скока хорошо ты в делфи разбираешся.? ЕСли тока  начинаеш то возьми какой нить монуал и поучи обжект паскаль, если в этом уже разбираешся то саветую скачать русофецированый Хелп ( тама пижется что какая функция делает и все такое ) и часто посешать форумы тика  Мастеров Делфи или там Королевство делфи


Еще один шаг на краю в тумане

AmonRa

Цитата: Irwin Skull от 23:44, 22 марта, 2004
AmonRa все зависит от троего уровня ...... на скока хорошо ты в делфи разбираешся.? ЕСли тока  начинаеш то возьми какой нить монуал и поучи обжект паскаль, если в этом уже разбираешся то саветую скачать русофецированый Хелп ( тама пижется что какая функция делает и все такое ) и часто посешать форумы тика  Мастеров Делфи или там Королевство делфи
НЕ, занимаюсь относительно недовно и то только тем, что надо по работе (базами данных, составлением отчетов), а вот недавно в доме киданули сетку и хотелось бы написать самому чат, знаю что надо с Инди клиент-сервер работать, но никогда в глаза не видел даже приблизительных исходников по этой теме, может че-нить есть поглазеть?!

AmonRa

Привет Всем, подскажите пожалуйста как сделать следущее: при нажатии кнопки происходит поиск в базе данных в поле Дата определенной даты (текушей), в этой же базе есть поле ?п\п, которое за это самое число может быть разным, как сделать чтобы отмечалась самое максимальное число в поле за эту дату? Заранее спасибо!

AmonRa

НАРОД, ПОМОГИТЕ!!!! Как сделать СОРТИРОВКУ ПО УБЫВАНИЮ в таблице2, которая связана по номеру с таблицей1 (индекс numer). В таблице 2 есть индекс data который сортирует таблицу в порядке убывания. Если указывать индекс Data, то теряется связь с 1таблицей! Как делать???? Можно любыми способами, но самое главное, что бы при закрытии формы все возвращалось на свои места, т.е. таблица 2 сортировалась по возрастанию!!! ОЧЕНЬ БУДУ БЛАГОДАРЕН!!!!!!!!

Vad

Цитата: AmonRa от 23:50, 11 мая, 2004
НАРОД, ПОМОГИТЕ!!!! Как сделать СОРТИРОВКУ ПО УБЫВАНИЮ в таблице2, которая связана по номеру с таблицей1 (индекс numer). В таблице 2 есть индекс data который сортирует таблицу в порядке убывания. Если указывать индекс Data, то теряется связь с 1таблицей! Как делать???? Можно любыми способами, но самое главное, что бы при закрытии формы все возвращалось на свои места, т.е. таблица 2 сортировалась по возрастанию!!! ОЧЕНЬ БУДУ БЛАГОДАРЕН!!!!!!!!

Ну сделай запрос со связыванием таблиц и с сортировкой по
убыванию, например.
Или тебе нужен редактируемый набор?
Удача терпелива...

AmonRa

Нет, редактируемы набор мне не нужен, а вот с запросом дело сложнее!!! Как его сделать? Через TQuery??? Дело в том, что это нужно для отчета!  А в нем уже содержится один TQuery (из которого берутся данные для отчета),  а связать их вместе у меня никак не получается! Может подскажешь??? Заранее спасибо!!!




Данный форум не является СМИ в соответствии с Законом №2124-1.
Яндекс.Метрика