Форум Понедельник, 20.05.2024, 04:17
Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Peri4  
Форум » Visual Basic » Вопросы » Исходники (Вопросы по ним)
Исходники
Peri4Дата: Вторник, 20.03.2007, 22:00 | Сообщение # 1
Admin
Группа: Администраторы
Сообщений: 51
Репутация: 1
Статус: Offline
Любые вопросы и непонятности по выложенным исходникам. Если интересует какой-то исходник, которого нет, пишите сюда же.
 
nat-zДата: Вторник, 27.11.2007, 01:51 | Сообщение # 2
Рядовой
Группа: Проверенные
Сообщений: 18
Репутация: 0
Замечания: 0%
Статус: Offline
А со своими исходниками можно лезть?
Очень много вопросов у меня по VB6!!
 
Peri4Дата: Вторник, 27.11.2007, 11:15 | Сообщение # 3
Admin
Группа: Администраторы
Сообщений: 51
Репутация: 1
Статус: Offline
Конечно! Кидай сюда, спрашивай...
 
nat-zДата: Вторник, 27.11.2007, 13:01 | Сообщение # 4
Рядовой
Группа: Проверенные
Сообщений: 18
Репутация: 0
Замечания: 0%
Статус: Offline
Вопрос первый.

У меня в файле (список работников) ФИО порознь: отдельные поля Fam, Im, Ot.
В DataGrid мне надо вывести фамилию и инициалы в одной колонке.
Написала функцию:

Code
Public Function Fio(Fam As String, Im As String, Ot As String) As String
Fio = RTrim(Fam) + Space(1) + Mid(Im, 1, 1) + "." + Mid(Ot, 1, 1) + Space(1)
End Function

В загрузке формы, на которой лежит DataGrid, написала:

Code
DataGridlist.Columns(1).Caption = "Фамилия И.О."
DataGridlist.Columns(1).DataField = "fam"  ' а надо бы "fam" плюс инициалы.
DataGridlist.Columns(1).Width = 3000

А на экран в таблице выводится все равно только фамилия!
Как сделать?

Добавлено (27.11.2007, 13:01)
---------------------------------------------
И еще вопрос с того же модуля.

У меня в некоей форме Frmlist в DataGrid рассматривается некий файл открытый как ADOkart (это список работников). В самой DataGrid корректировка запрещена (так надо). Для корректировки текущей записи я открываю новую форму Frmkart1 и в ней в некоем Texbox с именем Text1 собираюсь корректировать некое поле Field1 из файла.
Как это записать типа:

Код:
Private Sub Form_Load()
Text1.DataSource = ??? типа "frmlist.Adodc1"
Text1.DataField = ??? типа "field1"
End Sub
Что-то так?
Я что-то все это не понимаю!

И как потом сделать красиво, чтобы по завершению корректировки в Frmkart1 была возможность выбора – внести изменения в файл или нет и чтобы они (изменения) сразу отобразились в DataGrid в порождающей форме Frmlist????

 
Peri4Дата: Вторник, 27.11.2007, 23:02 | Сообщение # 5
Admin
Группа: Администраторы
Сообщений: 51
Репутация: 1
Статус: Offline
1) При выводе в таблицу юзай свою функцию, не вижу проблемы.
Code
DataGridlist.Columns(1).DataField = Fio("Иванов", "Иван", "Иваныч")

2) При загрузке формы впиши в Text1 значение элемента таблицы. Если хочешь, чтобы изменения сразу отображались в таблице, на событие Text1_Change() напиши обратное присваивание к элементу таблицы значения Text1.Text. Чтобы просто в конце подтвердить изменения делай так:

Code
Dim Res As Integer
Res = MsgBox("Вы хотите внести изменения?", vbQuestion + vbYesNo)
If Res = vbYes Then DataGrid1.Text = Text1.Text
Unload Me
 
nat-zДата: Среда, 28.11.2007, 01:13 | Сообщение # 6
Рядовой
Группа: Проверенные
Сообщений: 18
Репутация: 0
Замечания: 0%
Статус: Offline
Quote (Peri4)
1) При выводе в таблицу юзай свою функцию, не вижу проблемы.
Code
DataGridlist.Columns(1).DataField = Fio("Иванов", "Иван", "Иваныч")


В загрузке формы стоит как раз:
DataGridlist.Columns(1).DataField = "fio(fam,im,ot)"
Но выводится только фамилия (поле FAM). Это поле прописано в PROPERTIES самой DATAGRID (там просто нельзя указать функцию, доступны только поля).
Но что интересно: когда указываю другое какое поле (например, имя - IM), выводит опять фамилию (FAM), но если задаю сортировку в DataGrid по этой колонке - сортирует как по имени (IM).
т е задавать DataField=… надо в каком другом месте?

Quote (Peri4)

2) При загрузке формы впиши в Text1 значение элемента таблицы. Если хочешь, чтобы изменения сразу отображались в таблице, на событие Text1_Change() напиши обратное присваивание к элементу таблицы значения Text1.Text. Чтобы просто в конце подтвердить изменения делай так:
Code
Dim Res As Integer
Res = MsgBox("Вы хотите внести изменения?", vbQuestion + vbYesNo)
If Res = vbYes Then DataGrid1.Text = Text1.Text
Unload Me

Опять не то!!! КАК мне занести в это поле значение элемента таблицы???
Т е я на дочерней форме завожу кучу TextBox. В самой ФОРМЕ ссылка на ADODC из материнской формы недоступна.
Как это сделать? Дело в том, что в самой таблице куча полей (более 20). В ADODC материнской формы я открываю все (srlrct * from zpkart), но в DATAGRID для просмотра вывожу только штук 6. Когда пользователь вызывает корректировку строки (текущей записи), я открываю новую, дочернюю форму и там мне для корректировки нужны ВСЕ поля из ADODC (т.е. я не могу обратиться к DataGrid).
Можно конечно сделать что-то типа:
Text1.text = ….
Text2.text = … и поприсваивать значения из текущ записи ADODC, а потом по закрытию формы записать (или не записать) при отказе в ADODC и обновить DataGrid материнской формы, но это не есть красиво!
Или опять все нетолково рассказала…

И кстати каким оператором можно присвоить значение какому-то полю текущ.записи, как это пишется (у меня учебников нет) типа adodc.recordset.fields(3) = text3.text ?

Все: ложусь спать! Спокойной ночи!

 
Peri4Дата: Среда, 28.11.2007, 08:05 | Сообщение # 7
Admin
Группа: Администраторы
Сообщений: 51
Репутация: 1
Статус: Offline
Если не секрено, может пришлёшь исходник? Ссылку кинь. Я просто с БД не работал, всё больше по графике и алгоритмике и WinApi.
 
nat-zДата: Среда, 28.11.2007, 10:46 | Сообщение # 8
Рядовой
Группа: Проверенные
Сообщений: 18
Репутация: 0
Замечания: 0%
Статус: Offline
OK.
Потому что многие вопросы я не могу даже сформулировать.
Вообще-то я программированием не занималась, я бухгалтер-кассир, но попросили и вот уже несколько лет - "Программист".
А на какой адрес прислать?
 
Peri4Дата: Среда, 28.11.2007, 19:09 | Сообщение # 9
Admin
Группа: Администраторы
Сообщений: 51
Репутация: 1
Статус: Offline
Можешь сюда peri4@rambler.ru
Можешь в асю 495-294-277
 
nat-zДата: Пятница, 30.11.2007, 14:24 | Сообщение # 10
Рядовой
Группа: Проверенные
Сообщений: 18
Репутация: 0
Замечания: 0%
Статус: Offline
OK.
Сейчас начну готовить длинное письмо!

Добавлено (30.11.2007, 14:24)
---------------------------------------------
Так мое послание пришло?

 
Peri4Дата: Пятница, 30.11.2007, 16:11 | Сообщение # 11
Admin
Группа: Администраторы
Сообщений: 51
Репутация: 1
Статус: Offline
Да, сейчас разбираюсь
 
nat-zДата: Пятница, 14.12.2007, 02:19 | Сообщение # 12
Рядовой
Группа: Проверенные
Сообщений: 18
Репутация: 0
Замечания: 0%
Статус: Offline
Что, совсем тяжело?
 
Peri4Дата: Пятница, 14.12.2007, 06:57 | Сообщение # 13
Admin
Группа: Администраторы
Сообщений: 51
Репутация: 1
Статус: Offline
Да я sql вообще ни разу не видел и тем более сессия
 
Форум » Visual Basic » Вопросы » Исходники (Вопросы по ним)
  • Страница 1 из 1
  • 1
Поиск:

Copyright Peri4 © 2007 Сайт управляется системой uCoz