Открыть карточку работника, чья фамилия выделена на первой форме

@Covert · Регистрация: 23.02.2016

Студворк — интернет-сервис помощи студентам

Доброго времени суток, форумчане!
К сожалению недельный поиск по просторам интернета и этого форума в частности, так и не дал мне ответа на мой животрепещущий вопрос. Изложу суть проблемы. Есть БД SQL server 08 c таблицами: "Работник", "Отдел" и т.д. Есть проект в VB 08 в котором на главной форме в виде таблицы выводятся данные из БД: "Фамилия", "Имя" и т.д. Есть кнопка "Личная карточка работника", которая по замыслу открывает следующую форму с текстбоксами (наполняемыми из тех же таблиц БД) для получения более подробной информации о работнике.
Мне нужно, чтобы по нажатию кнопки открывалась форма с данными того работника, чья фамилия в данный момент выделена в таблице первой формы. Подскажите пожалуйста, как это реализовать?

@Pro_grammer · 22.03.2016, 20:25

Сообщение от Covert

Подскажите пожалуйста, как это реализовать?

Без вашего проекта это сделать затруднительно. Нужно видеть ваш код.

@Covert · 24.03.2016, 18:31 **[ТС]**

Сообщение от Pro_grammer

Нужно видеть ваш код.

Код этой формы:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form6
    Inherits System.Windows.Forms.Form
 
    'Форма переопределяет dispose для очистки списка компонентов.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub
 
    'Является обязательной для конструктора форм Windows Forms
    Private components As System.ComponentModel.IContainer
 
    'Примечание: следующая процедура является обязательной для конструктора форм Windows Forms
    'Для ее изменения используйте конструктор форм Windows Form.  
    'Не изменяйте ее в редакторе исходного кода.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Me.ИнспекторDataSet = New Inspektor_v._1._0.ИнспекторDataSet
        Me.Персонал_Организация_ФотоBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.Персонал_Организация_ФотоTableAdapter = New Inspektor_v._1._0.ИнспекторDataSetTableAdapters.Персонал_Организация_ФотоTableAdapter
        Me.TableAdapterManager = New Inspektor_v._1._0.ИнспекторDataSetTableAdapters.TableAdapterManager
        Me.Персонал_Организация_ФотоDataGridView = New System.Windows.Forms.DataGridView
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn
        Me.Button1 = New System.Windows.Forms.Button
        CType(Me.ИнспекторDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Персонал_Организация_ФотоBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Персонал_Организация_ФотоDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'ИнспекторDataSet
        '
        Me.ИнспекторDataSet.DataSetName = "ИнспекторDataSet"
        Me.ИнспекторDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        '
        'Персонал_Организация_ФотоBindingSource
        '
        Me.Персонал_Организация_ФотоBindingSource.DataMember = "Персонал+Организация+Фото"
        Me.Персонал_Организация_ФотоBindingSource.DataSource = Me.ИнспекторDataSet
        '
        'Персонал_Организация_ФотоTableAdapter
        '
        Me.Персонал_Организация_ФотоTableAdapter.ClearBeforeFill = True
        '
        'TableAdapterManager
        '
        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
        Me.TableAdapterManager.Connection = Nothing
        Me.TableAdapterManager.UpdateOrder = Inspektor_v._1._0.ИнспекторDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
        Me.TableAdapterManager.ОрганизацияTableAdapter = Nothing
        Me.TableAdapterManager.ПерсоналTableAdapter = Nothing
        Me.TableAdapterManager.ФотоTableAdapter = Nothing
        '
        'Персонал_Организация_ФотоDataGridView
        '
        Me.Персонал_Организация_ФотоDataGridView.AutoGenerateColumns = False
        Me.Персонал_Организация_ФотоDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.Персонал_Организация_ФотоDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn9})
        Me.Персонал_Организация_ФотоDataGridView.DataSource = Me.Персонал_Организация_ФотоBindingSource
        Me.Персонал_Организация_ФотоDataGridView.Location = New System.Drawing.Point(-4, 12)
        Me.Персонал_Организация_ФотоDataGridView.Name = "Персонал_Организация_ФотоDataGridView"
        Me.Персонал_Организация_ФотоDataGridView.Size = New System.Drawing.Size(445, 490)
        Me.Персонал_Организация_ФотоDataGridView.TabIndex = 1
        '
        'DataGridViewTextBoxColumn2
        '
        Me.DataGridViewTextBoxColumn2.DataPropertyName = "ФИО"
        Me.DataGridViewTextBoxColumn2.HeaderText = "ФИО"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
        'DataGridViewTextBoxColumn3
        '
        Me.DataGridViewTextBoxColumn3.DataPropertyName = "Должность"
        Me.DataGridViewTextBoxColumn3.HeaderText = "Должность"
        Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
        '
        'DataGridViewTextBoxColumn4
        '
        Me.DataGridViewTextBoxColumn4.DataPropertyName = "Дата приема на работу"
        Me.DataGridViewTextBoxColumn4.HeaderText = "Дата приема на работу"
        Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
        '
        'DataGridViewTextBoxColumn9
        '
        Me.DataGridViewTextBoxColumn9.DataPropertyName = "Название организации"
        Me.DataGridViewTextBoxColumn9.HeaderText = "Название организации"
        Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(27, 509)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(367, 23)
        Me.Button1.TabIndex = 2
        Me.Button1.Text = "Личная карточка работника"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'Form6
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(442, 576)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.Персонал_Организация_ФотоDataGridView)
        Me.Name = "Form6"
        Me.Text = "Form6"
        CType(Me.ИнспекторDataSet, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Персонал_Организация_ФотоBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Персонал_Организация_ФотоDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
 
    End Sub
    Friend WithEvents ИнспекторDataSet As Inspektor_v._1._0.ИнспекторDataSet
    Friend WithEvents Персонал_Организация_ФотоBindingSource As System.Windows.Forms.BindingSource
    Friend WithEvents Персонал_Организация_ФотоTableAdapter As Inspektor_v._1._0.ИнспекторDataSetTableAdapters.Персонал_Организация_ФотоTableAdapter
    Friend WithEvents TableAdapterManager As Inspektor_v._1._0.ИнспекторDataSetTableAdapters.TableAdapterManager
    Friend WithEvents Персонал_Организация_ФотоDataGridView As System.Windows.Forms.DataGridView
    Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents Button1 As System.Windows.Forms.Button
End Class

Добавлено через 23 часа 22 минуты
УРААААА!!! Решил!
Если кому будет интересно, позже выложу!

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@Covert 0 / 0 / 0 Регистрация: 23.02.2016 Сообщений: 2

	Открыть карточку работника, чья фамилия выделена на первой форме 22.03.2016, 15:46. Показов 665. Ответов 2 Метки нет (Все метки) Доброго времени суток, форумчане! К сожалению недельный поиск по просторам интернета и этого форума в частности, так и не дал мне ответа на мой животрепещущий вопрос. Изложу суть проблемы. Есть БД SQL server 08 c таблицами: "Работник", "Отдел" и т.д. Есть проект в VB 08 в котором на главной форме в виде таблицы выводятся данные из БД: "Фамилия", "Имя" и т.д. Есть кнопка "Личная карточка работника", которая по замыслу открывает следующую форму с текстбоксами (наполняемыми из тех же таблиц БД) для получения более подробной информации о работнике. Мне нужно, чтобы по нажатию кнопки открывалась форма с данными того работника, чья фамилия в данный момент выделена в таблице первой формы. Подскажите пожалуйста, как это реализовать? 0