Сообщений в теме: 10

[ariura]

Приветствую!!
К делу:

1. Создал Б/Д из 16 полей в databasedesktop, также создал поля типа Graphic хочу туда поместить некоторые изображения, но как это сделать програмным путём не знаю.

2. У меня в проге есть 3 вида просмотра данных: в форме заполнения, в таблице, а также хочу сделать в виде простого листа, типа Word документа. Пытался в Мемо засунуть, но гемороя много, да и сами мемо поля не выводятся, только простые текстовые.

3. Как можно организовать вывод ФИО всех внесённых в виде столбца при этом чтобы они работали типа гиперссылки на всю основную информацию для этого ФИО.

Пример:

Авакумов Петр Нестерович
Иванов Николай Валерьяевич
...

4. Кто может дайте ссылки или скиньте на мыло туториалы по delphi и т.д.


Благодарю за внимание.

[Pooh]

1. С DatabaseDesktop никогда не работал, а с нормальными DB с картинками обычно морока, я все время храню где нибудь, а в таблице записываю ссылку на картинку. Типа '\\servername\directory\image.jpg'

2. Ни хера не понял что вы хотите. Типа репорт чтоли? Посмотрите по инфу по QuickReport.

3. Тоже плохо понятно. Посмотри на OnDblClick event для TDBGrid.

4. У меня на английском есть пару книг для D6, если надо могу скинуть, они тяжелые правда.

[ariura]

1. С DatabaseDesktop никогда не работал, а с нормальными DB с картинками обычно морока, я все время храню где нибудь, а в таблице записываю ссылку на картинку. Типа '\\servername\directory\image.jpg'

2. Ни хера не понял что вы хотите. Типа репорт чтоли? Посмотрите по инфу по QuickReport.

3. Тоже плохо понятно. Посмотри на OnDblClick event для TDBGrid.

2. Поясняю:

Допустим такая вот таблица:
Фам. Имя. Отчес. Дата рож. Место рожден.(мемо) Образование (мемо)
Ким Юрий Иванович 12.01.67 "большой текст" "Большой текст"

А вот что хочу:

Фамилия: Ким
Имя: Юрий
Отчество: Иванович
Дата рождения: 12.01.67
Место рождения: "тут выведится содержимое мемо поля Место рождения"
Образование: "тут выведится содержимое мемо поля Образование "
...

и так с каждым введённым до конца файла.
Надеюсь стало понятний.

3. Хочу чтобы был сформирован список из всех ФИО, причем щелкая на выбранной строке ФИО открывалась вся информация принадлежащая именно ей. Это точно также как и любая ссылка в инете.

Например:

Вот ФОТО, где я на даче. Здесь слово ФОТО содержит URL - адрес, ссылку на картинку, хочу то же самое только ятобы показывало всё про выбранное ФИО.

4. буду рад увидеть в своём ящике электронные книги

[Pooh]

Ты английский знаешь?

2. Поищи QuickReport по гуглю. Особенно здесь: http://groups.google.com/

3. Из того что я понял, просто сделай TDBGrid состоящий из списка ФИО, на одной странице компонента TPageControl, а детальную информацию на другой, используй OnDblClick event. Или раздели форму на две панели, сверху детальная инфа, снизу TDBGrid.

4. Адрес ящика бы не помешал. 12 мегабайтов выдержит?

[|imp|]

Почитай !
Будит полезно и интересно !

http://www.delphimas...in/forum.pl?n=5
http://www.rusdoc.df...programming/pl/
http://megalib.com

[szb]

Задали написать семестровую работу про Data pump. Но найти достаточно информации так и не смог. Не подскажете где можно найти. Или у кого есть статейки или элект. книги по Delphi. очень поможете

[|imp|]

Смотри выше !
Если не найдешь пиши в личу!

[ZMan]

Приветствую!!
К делу:

1. Создал Б/Д из 16 полей в databasedesktop, также создал поля типа Graphic хочу туда поместить некоторые изображения, но как это сделать програмным путём не знаю.

2. У меня в проге есть 3 вида просмотра данных: в форме заполнения, в таблице, а также хочу сделать в виде простого листа, типа Word документа. Пытался в Мемо засунуть, но гемороя много, да и сами мемо поля не выводятся, только простые текстовые.

3. Как можно организовать вывод ФИО всех внесённых в виде столбца при этом чтобы они работали типа гиперссылки на всю основную информацию для этого ФИО.

Пример:

Авакумов Петр Нестерович
Иванов Николай Валерьяевич
...

4. Кто может дайте ссылки или скиньте на мыло туториалы по delphi и т.д.


Благодарю за внимание.

На первый и третий вопросы накидал пример с использование БД Firebird1.5. Прикрепить файл с исходниками не могу, нет такой функции, так что обращайся в личку с указанием мыла, скину и исходники, и БД.

[ZMan]

1. Создал Б/Д из 16 полей в databasedesktop, также создал поля типа Graphic хочу туда поместить некоторые изображения, но как это сделать програмным путём не знаю.

...
Params[n].LoadFromFile(OpenPictureDialog.FileName, ftBlob);
...
ExecSQL;
...

где n - номер параметра по порядку.

3. Как можно организовать вывод ФИО всех внесённых в виде столбца при этом чтобы они работали типа гиперссылки на всю основную информацию для этого ФИО.

Пример:

Авакумов Петр Нестерович
Иванов Николай Валерьяевич
...

Объявляешь класс

TLabelLink = class(TLabel)
   public
     ID: integer;
     constructor Create(AOwner: TComponent); override;
     procedure _Click(Sender: TObject);
   end;

Заполнение панели (TPanel) ссылками на сотрудников

procedure TForm1.btnEmployeeClick(Sender: TObject);
var
  i: integer;
begin
  for i := ComponentCount-1 downto 0 do
   if (Components[i] is TLabelLink) then Components[i].Free;

  i := 16;
  QEmployee.First;
  while not QEmployee.EOF do
   begin
     with TLabelLink.Create(nil) do
      begin
        Parent := pnReport;  //создать объекта ссылки на панели (TPanel)
        Left := 8;
        Top := i;
        Caption := QEmployee.Fields[1].AsString+' '+QEmployee.Fields[2].AsString+' '+QEmployee.Fields[3].AsString;  //ФИО
        ID := QEmployee.Fields[0].AsInteger;  //ID сотрудника
      end;
     QEmployee.Next;
     Inc(i, 16);  //сдвиг топа  
   end;

Создание объекта ссылки и обработчика события OnClick

constructor TLabelLink.Create(AOwner: TComponent);
begin
  inherited;
  OnClick := _Click;
  Cursor := crHandPoint;
  Font.Style := [fsUnderline];
  Font.Size := 9;
end;

procedure TLabelLink._Click(Sender: TObject);
begin
  //отобразить данные сотрудника на отдельной форме
  with Form1.QFind do
   begin
     Active := False;
     Params[0].AsInteger := ID; //параметр юникальный код сотрудника
     Active := True;
     with TForm2.Create(nil) do
      try
        edFamily.Text := Fields[1].AsString;
        edName.Text := Fields[2].AsString;
        edPatronymic.Text := Fields[3].AsString;
        dtBirthday.Date := Fields[4].AsDateTime;
        mAddress.Text := Fields[5].AsString;
        mEducation.Text := Fields[6].AsString;
        TBlobField(Fields[7]).SaveToFile('c:\1.bmp');
        imFoto.Picture.LoadFromFile('c:\1.bmp');
        DeleteFile('c:\1.bmp');

        ShowModal;
      finally
        Free;
      end;
   end;
end;

Если что, спрашивай. Удачи!

[szb]

Сколько рылся в сети, так и не смог найти ничего толкового про Data Pump. Перевел help, но все равно не хватает инфы. У кого есть инфа про этот иструмент. ПЛЗ, если у кого есть, дайте знать. Очень надо.