Visual Basic Front End Information - JMU
Visual Basic Front End Information
The front end to the database was implemented using Visual Basic, a working model version, which allowed most of the options of a full version of Visual Basic, without some of the options like compilation, and the report designer, required if the source code was ever to be transported to other computers. Seven different windows are built into the front end implementation, one window allowing access to the various forms, queries, and reports written for the database, and six windows representing the different forms required by the client to write to the database. As of right now, any of the reports and the queries written for the client has not been linked to this “options form”. The following is screenshots for the front end of the database NSQL designed:
Table 1: Options Menu: Reports and Queries are not implemented.
[pic]
Table 2: Document Types
[pic]
Table 3: Experts Information
[pic]
Table 4: List of Issues
[pic]
Table 5: Types of Objections
[pic]
Table 6: List of Request Types
[pic]
Table 7: Main Form-Documents Tab
[pic]
Table 8: Main Form-Issues Tab
[pic]
Table 9: Main Form-Expert Tab
[pic]
Table 10: Main Form-Discovery Tab
[pic]
Table 11: Main Form-Exhibits Tab
[pic]
Table 12: Main Form-Duplicate Docs Tab
[pic]
Table 13: Main Form-Comments Tab
[pic]
The development environment provided in Visual Basic creates most of the coding for the user, but some modification of code was needed to customize the front end portion of the database. The following is a list of code that was written by the group:
Dim DocumentID As String
Private Sub adoDupDocs_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If chkDupOrg.Value = 1 Then
lblOrgDoc2.Caption = txtDupDoc.Text
lblOrgTitle2.Caption = txtDupTitle.Text
lblOrgDate2.Caption = txtDupDate.Text
lblOrgFrom2.Caption = txtDupFrom.Text
End If
End Sub
Private Sub adoMainDocs_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
SetRecordNumber
End Sub
Private Sub SetRecordNumber()
'Display the record number
Dim intRecordCount As Integer
Dim intCurrentRecord As Integer
With adoMainDocs.Recordset
intRecordCount = .RecordCount
intCurrentRecord = .AbsolutePosition
If .EOF Then
adoMainDocs.Caption = "End"
Else
adoMainDocs.Caption = "Record " & intCurrentRecord & _
" of " & intRecordCount
End If
End With
End Sub
Private Sub chkNoBatesNumber_Click()
If chkNoBatesNumber.Value = 1 Then
txtBatesId.Text = "GEN"
Else
txtBatesId.Text = ""
End If
End Sub
Private Sub cmdDeleteIssue_Click()
With adoMainDocs.Recordset
.Delete
.MoveNext
If .EOF Then
.MovePrevious
End If
End With
End Sub
Private Sub txtDateUpdated_GotFocus()
txtDateUpdated.Text = Now
End Sub
Private Sub Form_Load()
chkDupOrg.Value = 0
End Sub
Private Sub txtBatesId_LostFocus()
txtBatesIDFK.Text = txtBatesId.Text
End Sub
Private Sub txtBatesStart_LostFocus()
txtBatesStartFK.Text = txtBatesStart.Text
DocumentID = txtBatesId.Text
DocumentID = DocumentID & txtBatesStart.Text
lblDocumentID.Caption = DocumentID
End Sub
Private Sub txtDateCreated_GotFocus()
txtDateCreated.Text = Now
End Sub
*Note: Comments have not been included in the code.
................
................
In order to avoid copyright disputes, this page is only a partial summary.
To fulfill the demand for quickly locating and searching documents.
It is intelligent file search solution for home and business.
Related searches
- visual basic codes for excel
- visual basic for excel examples
- visual basic for beginners excel
- excel visual basic programming examples
- visual basic examples for beginners
- microsoft visual basic for excel
- excel visual basic tutorial pdf
- visual basic for beginners pdf
- microsoft visual basic tutorial pdf
- visual basic programs with codes
- visual basic book pdf download
- visual basic programming for beginners