VPF::Как работать с MSFlexGrid - Форум программистов

Гость_Oleg

Дата 29.9.2004, 13:20 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет Программисты!
Хочу попросить Вас передать мне немного Вашего опыта.
Как работать с MSFlexGrid уже второй день на одном месте, как вставить новую колонку и присвоить имя колонке?
Моя проблема сделать MSFlexGrid зеркалом таблицы базы данных.
Вообще может есть какой ни будь хелп. Буду благодарен.
Спасибо

valex13

Дата 30.9.2004, 05:56 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 29.1.2003
Где: Иркук. область, г . Иркутск

Репутация: 1
Всего: 1

Есть возможность. В Referens укажи MSFlexGrid.
Высылаю пример, без проверки. Это какой-то мой исходник по работе с клиентской базой.

Код



Private Sub Form_Load()
ListGrid.Cols = 8
ListGrid.Row = 0
ListGrid.Col = 0
ListGrid.ColWidth(0) = 400   'ID
ListGrid.ColWidth(1) = 3400  'ФИО
ListGrid.ColWidth(2) = 800   'Код
ListGrid.ColWidth(3) = 800   'Серия
ListGrid.ColWidth(4) = 800   'Номер
ListGrid.ColWidth(5) = 2800  'Где выдан
ListGrid.ColWidth(6) = 800   'Дата выдачи
ListGrid.ColWidth(7) = 2800  'Место проживания

ListGrid.Row = 0
ListGrid.Col = 0
ListGrid.Text = "Код"
ListGrid.Col = 1
ListGrid.Text = "ФИО"
ListGrid.Col = 2
ListGrid.Text = "ТипД"
ListGrid.Col = 3
ListGrid.Text = "Серия"
ListGrid.Col = 4
ListGrid.Text = "Номер"
ListGrid.Col = 5
ListGrid.Text = "Где выдан"
ListGrid.Col = 6
ListGrid.Text = "Дата регистрации"
ListGrid.Col = 7
ListGrid.Text = "Место проживания"
'Caption = Caption & " - [Без названия]"
End Sub

'*******************************
'* Обработка щелчка - Изменить *
'*******************************

Private Sub ListGrid_DblClick()
'...
'Изменяю запись в ListGrid взятую из Диалога
ListGrid.TextMatrix(inum, 2) = iType
ListGrid.TextMatrix(inum, 3) = ChangeRecDlg.sSerial.Text
ListGrid.TextMatrix(inum, 4) = ChangeRecDlg.iNumb.Text
ListGrid.TextMatrix(inum, 5) = ChangeRecDlg.sWho.Text
ListGrid.TextMatrix(inum, 6) = ChangeRecDlg.sData.Text
ListGrid.TextMatrix(inum, 7) = ChangeRecDlg.sPlast.Text

End Sub

'******************* Добавляю запись ***********
Private Sub Add()
ListGrid.AddItem Rd.iID.Text & vbTab & Rd.sFio.Text & vbTab & iType & vbTab & _
Rd.sSerial.Text & vbTab & Rd.iNumb.Text & vbTab & Rd.sWho.Text & vbTab & _
Rd.sData.Text & vbTab & Rd.sPlast.Text  '& vbTab & Rd.sGr.Text & vbTab & Rd.sPlast.Text
End Sub


'*********************
'* Удалить клиента   *
'*********************

Private Sub DelClient()
 Call Del
End Sub

Public Sub Del()
On Error GoTo ErHand
 ListGrid.Col = 0
 Dim inum, isel As Integer
 If ListGrid.Text = "" Then Exit Sub
 
    If MsgBox("Вы уверены, что хотите удалить клиента?", vbQuestion + vbYesNo, "Информация") = vbYes Then
 inum = ListGrid.Row
 For I = inum To iSelRow
    ListGrid.RemoveItem (I)
 Next
 iClients = iCliens - 1
 
 ListGrid.Col = 0
 'Показываем песочные часы
 Dim hcursor As Long, ret_val As Long
 hcursor = LoadCursor(0, IDC_WAIT)
 ret_val = SetCursor(hcursor)
 'Пересчитать ID
 For I = 2 To ListGrid.Rows - 1
  ListGrid.Row = I
  ListGrid.Text = I - 1
 Next
 hcursor = LoadCursor(0, IDC_ARROW)
 ret_val = SetSystemCursor(hcursor, OCR_NORMAL)
 iClients.Caption = ListGrid.Rows - 2
 Exit Sub
Else
 Exit Sub
End If
ErHand:
 MsgBox "Невозможно удалить запись.", vbCritical + vbOKOnly, "Ошибка"
End Sub

Guest

Дата 30.9.2004, 11:25 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Спасибо огромное помог.
Наконец сдвинулся хоть немного с места.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »