Form Grouping ( Part 3 )

This the final part
This is the source code

Dim RsGroup As New ADODB.Recordset Dim Edit As Boolean Private Sub CmdClose_Click() Unload Me End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF2:     KeyCode = 0     Edit = False     TxtCode = KodeAuto     TxtName = ""     TxtName.SetFocus Case vbKeyF3:     KeyCode = 0     saving Case vbKeyF4: RefreshData Case vbKeyF5: Deleting Case vbKeyEscape:     KeyCode = 0     Unload Me End Select End Sub

Design Grouping Form

After completing stage of making the program flow then the next groups is the form display design these items in VB6. We created a simple form design and user friendly. Not suggest to make the display full of pictures and writings are not important, it will make people less comfortable to wear.

Form Grouping Part 2

After that we create the table and field then we proceed to designing a program’s flowchart for this form . This flow chart as our basis in making a program in the form of this goods group.