| Вопрос: Телефонный справочник | Добавлено: 23.05.04 12:18 |
Автор вопроса:  Улий
|
|
Здравствуйте, все не могу разобраться с написанием данной программы. Главная задача- создание формы в VB где можно вводить в строку поиска номер абонента и жать кнопку поиск, в отмеску программа должна выдавать и отбразить в форме VB ФИО и ФОТО абонета. Данные ФИО и ФОТО должны браться их Аццесса. Дело в том что мой преподаватель, давший эту работу сам не погимает как её сделать. Для упрощения вот полуготовыя работа, там ищется только и сопостовляется только ФИО. Заранее огромное спасибо. |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа: Улий Вопросов: 2 Ответов: 6 |
Профиль | | #1 | Добавлено: 25.05.04 11:37 |
|
У меня появился еще вопрос, может на него ответите.
Если брать картинки из фапапки, а не из аццесса, то тогда выполняем следующую процедуру в моей проге 1. Создаем папку photos в папке нашего проекта. 2. В эту папку пихаем файлы с именами вида телефон пробел тире пробел имя_как_в_базе.jpg т.е. например для тов. Ivanov с телефоном 1234567 его фотка будет называться так: 1234567 - Ivanov.jpg 3. В событии клика на списке пишем такое: picPhoto.Picture = LoadPicture(App.Path & "\" & RS.PHONE_ & " - " & RS.NAME_) У меня при открытии файла вылетает ошибка Run-time error 53, Потом пишется : File not found(при этом файл находится в этой папке) Помогите PLZ |
||
|
Номер ответа: 2 Автор ответа: Fallout Вопросов: 10 Ответов: 387 |
Web-сайт: Профиль | | #2 | Добавлено: 25.05.04 12:22 |
|
picPhoto.Picture = LoadPicture(App.Path & "\" & RS.PHONE_ & " - " & RS.NAME_)
ну если файл уважаемого Иваново ... выгледит так 1234567 - Ivanov.jpg а PHONE и NAME содержут правильное значение... picPhoto.Picture = LoadPicture(App.Path & "\" & RS.PHONE & " - " & RS.NAME & ".jpg" 
|
||
|
Номер ответа: 3 Автор ответа:  УлийВопросов: 2 Ответов: 6 |
Профиль | | #3 | Добавлено: 25.05.04 12:47 |
Всё равно ругается, если можешь, то поправь прогу 
|
||
|
Номер ответа: 4 Автор ответа: FalloutВопросов: 10 Ответов: 387 |
Web-сайт: Профиль | | #4 | Добавлено: 25.05.04 13:16 |
|
Не увидел +) линк... счас поглядим что ты там наворатил
ВБ у меня нет +) так что сам тестить будешь |
||
|
Номер ответа: 5 Автор ответа: FalloutВопросов: 10 Ответов: 387 |
Web-сайт: Профиль | | #5 | Добавлено: 25.05.04 13:18 |
|
Бряк поставь и под отладчиком погляди в момент чтения картинки какие значения у тебя в этих переменных.... я думаю сразу найдёшь ответ |
||
|
Номер ответа: 6 Автор ответа: FalloutВопросов: 10 Ответов: 387 |
Web-сайт: Профиль | | #6 | Добавлено: 25.05.04 14:42 |
| на всякий пожарный кнопка F9 на той линиии кода где хочешь поставить Точку Останова... | ||
|
Номер ответа: 7 Автор ответа: УлийВопросов: 2 Ответов: 6 |
Профиль | | #7 | Добавлено: 26.05.04 21:09 |
|
Спасибо всем, особенено Virus"у
Прога полностью готова, появилась возможность печати 
И вот ещё что - как наиболее точно описать словами функции, кторорые выполняют следующие командыPhone = Replace(Trim(txtPhone), "-", ""
If lstNames.ListIndex < 0 Then Exit Sub Set RS = DB.OpenRecordset("SELECT NAME_,PHONE_,№_,ADRESS_ FROM PHONEBOOK_ WHERE PHONE_='" & Phone & "' AND NAME_='" & lstNames.List(lstNames.ListIndex) & "'"
Вот линк на прогу, малоли в хозяйстве пригодится http://www.allfor3650.nm.ru/VB.rar |
||
Страница: 1 |