Добавить, обновить и получить записи пользовательской формы

Взгляните на мой дизайн, потому что мне нужно добавить, обновить и получить информацию о поставщике, такую как название компании, адрес компании, номер контакта и т. Д. И когда я нажимаю кнопку «Добавить». мне действительно нужно связать с другой формой, которая является StudentSubjectForm. Мой вопрос: мне нужно знать, какие коды писать в кнопке обновления и извлечения. Пожалуйста, дайте мне основы.Добавить, обновить и получить записи пользовательской формы

Мой проект состоит из кнопки добавления, обновления и извлечения. с 3 текстовыми полями и 3 ярлыками.

И это мои коды, когда я нажмите кнопку Добавить.

Private Sub AddButton_Click() 

Dim companyName As String 
Dim companyAddress As String 
Dim contactNo As String 

    companyName = CompanyNameTextBox.Text 
    companyAddress = CompanyAddressTextBox.Text 
    contactNo = ContactNumberTextBox.Text 

    'To transfer student details to StudentSubjectForm window 
    StudentSubjectForm.StudentNameDisplayLabel.Caption = studentName 
    StudentSubjectForm.AdmissionNoDisplayLabel.Caption = admissionNo 
    StudentSubjectForm.CourseDisplayLabel.Caption = courseName 
    'To show the student subject form 
    StudentSubjectForm.Show 

End Sub

источник

2016-02-10 1506585G Javier

У вас есть две End Sub линии, что вызовет проблемы. В противном случае, есть ли что-то конкретное, что не работает? Получаете ли вы ошибку или неожиданные результаты? Наверное, я не вижу здесь вопроса ... – sous2817

hmm. нет ошибки, когда я ставлю 2 end sub. мой вопрос заключается в том, что мне нужно ввести название компании, адрес и номер контакта, а затем нажмите «Добавить». Должен ли я также связать его с другой формой. или я просто удаляю все строки из ', чтобы передать детали студента в studentsubjectform.show. Благодарю. –

Вы попробовали и посмотрели, что произойдет? Если форма находится в памяти, она должна работать (я ее не тестировал), но если форма еще не создана, я не знаю, будет ли то, что вы сделали, работать. Честно говоря, попробуйте и посмотрите, что произойдет. Это будет намного быстрее, чем просить на форуме. – sous2817

Почему бы не создать статическую структуру данных для организации данных вашей компании? Независимо от вашего вопроса, это может помочь понять ситуацию.

Type xCompanyData 
    Name As String 
    Address As String 
    Number As String 
End Type

... Тогда для нескольких компаний, создавать его экземпляры CompanyData ...

Dim CompanyData() As xCompanyData 
' # companies? = n 
ReDim CompanyData(1 To n) 

'example 
CompanyData(1).Name = 'userdata form stuff here

источник

2016-02-10 16:07:29

wow большое спасибо. Это действительно отвечает на мой вопрос. но что, если я не хочу связываться с другой формой. все в порядке? –

Тогда я был бы признателен. Да, вам не нужно ссылаться на другую форму. Просто назовите свои переменные соответствующим образом, и тип будет вести себя как ожидалось –

, поэтому тип xcompanydata, я могу просто указать любое имя, которое я хочу? –

Добавить, обновить и получить записи пользовательской формы

ответ

Смежные вопросы