Ряд вопросо в по Delphi & DataBaseDesktopКурсовой. Помогите.
#1
Отправлено 28.10.2005, 00:09:57
К делу:
1. Создал Б/Д из 16 полей в databasedesktop, также создал поля типа Graphic хочу туда поместить некоторые изображения, но как это сделать програмным путём не знаю.
2. У меня в проге есть 3 вида просмотра данных: в форме заполнения, в таблице, а также хочу сделать в виде простого листа, типа Word документа. Пытался в Мемо засунуть, но гемороя много, да и сами мемо поля не выводятся, только простые текстовые.
3. Как можно организовать вывод ФИО всех внесённых в виде столбца при этом чтобы они работали типа гиперссылки на всю основную информацию для этого ФИО.
Пример:
Авакумов Петр Нестерович
Иванов Николай Валерьяевич
...
4. Кто может дайте ссылки или скиньте на мыло туториалы по delphi и т.д.
Благодарю за внимание.
#2
Отправлено 28.10.2005, 00:31:09
2. Ни хера не понял что вы хотите. Типа репорт чтоли? Посмотрите по инфу по QuickReport.
3. Тоже плохо понятно. Посмотри на OnDblClick event для TDBGrid.
4. У меня на английском есть пару книг для D6, если надо могу скинуть, они тяжелые правда.
#3
Отправлено 28.10.2005, 01:00:32
1. С DatabaseDesktop никогда не работал, а с нормальными DB с картинками обычно морока, я все время храню где нибудь, а в таблице записываю ссылку на картинку. Типа '\\servername\directory\image.jpg'
2. Ни хера не понял что вы хотите. Типа репорт чтоли? Посмотрите по инфу по QuickReport.
3. Тоже плохо понятно. Посмотри на OnDblClick event для TDBGrid.
2. Поясняю:
Допустим такая вот таблица:
Фам. Имя. Отчес. Дата рож. Место рожден.(мемо) Образование (мемо)
Ким Юрий Иванович 12.01.67 "большой текст" "Большой текст"
А вот что хочу:
Фамилия: Ким
Имя: Юрий
Отчество: Иванович
Дата рождения: 12.01.67
Место рождения: "тут выведится содержимое мемо поля Место рождения"
Образование: "тут выведится содержимое мемо поля Образование "
...
и так с каждым введённым до конца файла.
Надеюсь стало понятний.
3. Хочу чтобы был сформирован список из всех ФИО, причем щелкая на выбранной строке ФИО открывалась вся информация принадлежащая именно ей. Это точно также как и любая ссылка в инете.
Например:
Вот ФОТО, где я на даче. Здесь слово ФОТО содержит URL - адрес, ссылку на картинку, хочу то же самое только ятобы показывало всё про выбранное ФИО.
4. буду рад увидеть в своём ящике электронные книги
#4
Отправлено 28.10.2005, 01:18:27
2. Поищи QuickReport по гуглю. Особенно здесь: http://groups.google.com/
3. Из того что я понял, просто сделай TDBGrid состоящий из списка ФИО, на одной странице компонента TPageControl, а детальную информацию на другой, используй OnDblClick event. Или раздели форму на две панели, сверху детальная инфа, снизу TDBGrid.
4. Адрес ящика бы не помешал. 12 мегабайтов выдержит?
#5
Отправлено 03.11.2005, 16:54:13
Будит полезно и интересно !
http://www.delphimas...in/forum.pl?n=5
http://www.rusdoc.df...programming/pl/
http://megalib.com
#8
Отправлено 07.11.2005, 18:36:27
Приветствую!!
К делу:
1. Создал Б/Д из 16 полей в databasedesktop, также создал поля типа Graphic хочу туда поместить некоторые изображения, но как это сделать програмным путём не знаю.
2. У меня в проге есть 3 вида просмотра данных: в форме заполнения, в таблице, а также хочу сделать в виде простого листа, типа Word документа. Пытался в Мемо засунуть, но гемороя много, да и сами мемо поля не выводятся, только простые текстовые.
3. Как можно организовать вывод ФИО всех внесённых в виде столбца при этом чтобы они работали типа гиперссылки на всю основную информацию для этого ФИО.
Пример:
Авакумов Петр Нестерович
Иванов Николай Валерьяевич
...
4. Кто может дайте ссылки или скиньте на мыло туториалы по delphi и т.д.
Благодарю за внимание.
На первый и третий вопросы накидал пример с использование БД Firebird1.5. Прикрепить файл с исходниками не могу, нет такой функции, так что обращайся в личку с указанием мыла, скину и исходники, и БД.
#9
Отправлено 08.11.2005, 11:02:35
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;
Если что, спрашивай. Удачи!
Количество пользователей, читающих эту тему: 1
пользователей: 0, неизвестных прохожих: 1, скрытых пользователей: 0