|
Исходники
|
|
| Peri4 | Дата: Вторник, 20.03.2007, 22:00 | Сообщение # 1 |
 Admin
Группа: Администраторы
Сообщений: 51
Статус: Offline
| Любые вопросы и непонятности по выложенным исходникам. Если интересует какой-то исходник, которого нет, пишите сюда же.
|
| |
| |
| nat-z | Дата: Вторник, 27.11.2007, 01:51 | Сообщение # 2 |
 Рядовой
Группа: Проверенные
Сообщений: 18
Статус: Offline
| А со своими исходниками можно лезть?
Очень много вопросов у меня по VB6!!
|
| |
| |
| Peri4 | Дата: Вторник, 27.11.2007, 11:15 | Сообщение # 3 |
|
Admin
Группа: Администраторы
Сообщений: 51
Статус: Offline
| Конечно! Кидай сюда, спрашивай...
|
| |
| |
| nat-z | Дата: Вторник, 27.11.2007, 13:01 | Сообщение # 4 |
|
Рядовой
Группа: Проверенные
Сообщений: 18
Статус: 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
Статус: 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
Статус: 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
Статус: Offline
| Если не секрено, может пришлёшь исходник? Ссылку кинь. Я просто с БД не работал, всё больше по графике и алгоритмике и WinApi.
|
| |
| |
| nat-z | Дата: Среда, 28.11.2007, 10:46 | Сообщение # 8 |
|
Рядовой
Группа: Проверенные
Сообщений: 18
Статус: Offline
| OK.
Потому что многие вопросы я не могу даже сформулировать.
Вообще-то я программированием не занималась, я бухгалтер-кассир, но попросили и вот уже несколько лет - "Программист".
А на какой адрес прислать?
|
| |
| |
| Peri4 | Дата: Среда, 28.11.2007, 19:09 | Сообщение # 9 |
|
Admin
Группа: Администраторы
Сообщений: 51
Статус: Offline
| Можешь сюда peri4@rambler.ru
Можешь в асю 495-294-277
|
| |
| |
| nat-z | Дата: Пятница, 30.11.2007, 14:24 | Сообщение # 10 |
|
Рядовой
Группа: Проверенные
Сообщений: 18
Статус: Offline
| OK.
Сейчас начну готовить длинное письмо!Добавлено (30.11.2007, 14:24)
---------------------------------------------
Так мое послание пришло?
|
| |
| |
| Peri4 | Дата: Пятница, 30.11.2007, 16:11 | Сообщение # 11 |
|
Admin
Группа: Администраторы
Сообщений: 51
Статус: Offline
| Да, сейчас разбираюсь
|
| |
| |
| nat-z | Дата: Пятница, 14.12.2007, 02:19 | Сообщение # 12 |
|
Рядовой
Группа: Проверенные
Сообщений: 18
Статус: Offline
| Что, совсем тяжело?
|
| |
| |
| Peri4 | Дата: Пятница, 14.12.2007, 06:57 | Сообщение # 13 |
|
Admin
Группа: Администраторы
Сообщений: 51
Статус: Offline
| Да я sql вообще ни разу не видел и тем более сессия
|
| |
| |
