Приложение в Delphi для SQLserver

Категория: ---
Просмотров: 7

Подскажите пожалуйста. Пишу диплом. На практике поставили задачу создать приложение для SQLserver2005. Нужно создать базу и к ней приложение, клиент-сервер. С чего начать? Какую литература полистать!!!!!

Программисты, выручайте. Графика Delphi - создание заставки

Категория: ---
Просмотров: 5

Очень нужна помощь!
Написать программу для формирования на экране динамической заставки. В квадрат вписывается 5-6 лучевая окрашенная звезда, а затем внутри квадрата случайным образом выбираются точки, и если они не попадают на звезду, то окрашиваются случайным цветом. Точки, попавшие на звезду, не визуализируются. Количество точек выводится на экран рядом с квадратом.
Алгоритм примерно знаю, мало понимаю в принципах реализации. Очень жду спасения)

Помогите плиз найти ошибку(( зы: сори, что снова обращюсь!

Категория: ---
Просмотров: 7

Вобщем дан типизированный файл типа запись с полями : английское слово, реревод на русский. Вобщем все английские слова читаются в лист бокс, а русский перевод в мемо. Теперь необходимо, чтобы при выборе пункта в листбоксе, и нажатии кноки удалить удалялся текущий термин из файла), т.е текущая выбранная строка, английское название и русский перевод

Вот как я делаю:
procedure TForm2.Button5Click(Sender: TObject);
Var m,n:longint;
a:enru;
begin
if MessageDlg('Вы действительно хотите удалить этот термин?', mtWarning,
[mbOk, mbCancel], 0) = mrOk then
begin
if listbox2.Selected[listbox2.ItemIndex]=true then
begin
i:=1;
reset (z);
m:=filesize(z)-listbox2.ItemIndex;
seek (z,listbox2.ItemIndex);
while not eof(z) do
begin
read (z,a);
i:=i+1;
end;
closefile(z);
reset(z);
seek (z,listbox2.ItemIndex);
truncate (z);
closefile(z);
end;
end;
end;

Проблема заключается в следующем: то что когда я выбираю пункт из листбокса и нажимаю кнопку удалить,то он удаляет этот термин и предыдущие заним((

Помогите плиз!!! Заранее спасибо!!!

Вопрос по интерфейсу

Категория: ---
Просмотров: 7

Народ, помогите пожалуйста реализовать такой элемент интерфейса:
http://s003.radikal.ru/i203/1005/62/5f8bb6a4859d.jpg
(тот что обведен рамкой).
Я пытался для прокрутки использовать ScrollBox, но меня не устраивает его полоса прокрутки - она справа и непомерно большая. А мне бы хотелось, чтобы прокрутка осуществлялась не его полосой, а небольшой кнопкой, которую я сам бы сделал.
И как сделать такие "закладки" как на скрине - всмысе "Видео", "Аудио" ,Фото"?

Помогите по Opengl в Delphi

Категория: ---
Просмотров: 6

Кто работал с графикой Opengl в delphi?

Модули для работы с FAT32

Категория: ---
Просмотров: 6

Собственно вопрос в сабже - где-то точно видел модули для работы непосредственно с файловой системой fat16/32, но вот где?
Подскажите plz, мне нужно только переименовать файл или папку - не больше.

Обработчик события для двух и более одновременно зажатых клавиш

Категория: ---
Просмотров: 6

Ребята привет. Нужна помощь. Пишу пианинонужно использовать не onkeydown, onkeyup, а что-то ещё наподобе function GetKeyState(VirtKey: Integer): Integer; так вот не могли бы меня просвятить на этот счёт, как её правильно заюзать.)

Выезжающая форма из формы

Категория: ---
Просмотров: 6

Народ помогите сделать так, чтобы по нажатию кнопки из главной формы выезжала вторая, как прикрепить вторую форму к первой? А то она у меня выезжать выезжает, но не там откуда надо.

Indy, InterBase, Передача сообщений(данных)

Категория: ---
Просмотров: 7

Здравствуйте, такая трабла.

Использую idTCPClient/Server.

Нужно по нажатию кнопки передать 14 данных и Сервер соответственно должен их принять.. но ошибка в том, что передаются только скажем 1,5 землякопа :) .

Помогите пожалуйста

Код отправки клиента

ClientConnect.writeln(lVideoName.Caption);
ClientConnect.writeln(p2);
ClientConnect.writeln(CDDVD.caption);
ClientConnect.write(lHDDModel.Caption);
ClientConnect.writeln(lLanAdapter.Caption);
ClientConnect.write(lOZuModel.Caption);
ClientConnect.write(lCPUModel.Caption);
ClientConnect.write(lModem.Caption);
ClientConnect.write(lUserInfo.Caption);
ClientConnect.write(lNameOS.Caption);
ClientConnect.write(lVersionOffice.Caption);
ClientConnect.write(lIPadress.Caption);
ClientConnect.write(p1);
ClientConnect.write(lnumcab.Caption);

Код приёма и записи на сервере

station.Open;
station.Insert;
station.FieldByName('NNUMPC').AsString:='23';
station.FieldByName('NVIDEOCARD').AsString:=ATHread.Connection.Readln;
station.FieldByName('NMOTHERCARD').AsString:=ATHread.Connection.Readln;
station.FieldByName('NCDDVD').AsString:=ATHread.Connection.Readln;
station.FieldByName('NHDD').AsString:=ATHread.Connection.Readln;
station.FieldByName('NNETWORKPLAT').AsString:=ATHread.Connection.Readln;
station.FieldByName('NPHYSMEMORY').AsString:=ATHread.Connection.Readln;
station.FieldByName('NPROCESSOR').AsString:=ATHread.Connection.Readln;
station.FieldByName('NMODEM').AsString:=ATHread.Connection.Readln;
station.FieldByName('NACCOUNT').AsString:=ATHread.Connection.Readln;
station.FieldByName('NVERWINDOWS').AsString:=ATHread.Connection.Readln;
station.FieldByName('NVERMSOFFICE').AsString:=ATHread.Connection.Readln;
station.FieldByName('NIPUSER').AsString:=ATHread.Connection.Readln;
station.FieldByName('NUSERNAME').AsString:=ATHread.Connection.Readln;
station.FieldByName('NCAB').AsString:=ATHread.Connection.Readln;
station.post;
station.close;
station.open;
station.refresh;

Фильтрация ADOTable

Категория: ---
Просмотров: 7

Здравствуйте ! Помогите разобраться.
Нужно сделать фильтрацию таблицы по фамилиям, вводишь В и таблица показывает всех на В, вводишь Во, всех ва Во и т.д.
Пробовал писать по примерам из библии Делфи
Фильтрует не корректно, а при правильном вводе записи показывает пустую таблицу (
Использую DBGrid,MSAccess,Delphi7
Вот текст события
procedure TForm1.FindEditChange(Sender: TObject);
begin
if Length(FindEdit.Text)>0 then
DataModuleUnit.AllInf.Filtered:=true
else
DataModuleUnit.AllInf.Filtered:=false;

DataModuleUnit.AllInf.Filter:='Индификатор>'#39+FindEdit.Text+#39;

End;

Опросы

Оцените работу движка

Geek informed