Pages

Wednesday, February 26, 2014

Form Group Barang

Making these items form a group , I started to make interface design form . Arrangement and design of the interface is very important because of its function in addition to seeing an application is also seen from the appearance of the interface . People would prefer to use an app with a nice interface . I did not make the design of the interface is too complicated and flashy but I prefer to make the design interface is simple and easy to the eye . I combine dark colors and gold color as the background color in this form to create a powerful impression and glamour.
I make lines to create limits on each part to make it look organized and not confuse the user. I usually eliminate the exit button on the form to close the form in general , because the upper right corner there is the X button to close the form . I created this small form but at the time this form will be directly executed the same size as a full size screen and also the components that are on it will enlarge the size of the form follow . This form can also use the function keys on the keyboard to accept commands from the user . Like the save command can be done by pressing F3 , canceled orders and the other with the F5 key .

For the results can be seen as the image below .

Tuesday, February 4, 2014

Form group searching

I made form group searching
this form used to search the group when the data so much
This form can fill the name of group when user create new data of goods
This is design of this form

Form grouping rev 05/02/14

I have made revision at 05/02/14
I change some procedure to optimize this form

this is the code

Thursday, January 30, 2014

Revision Form Grouping

Revision of refreshdata (procedure to get data from database)
This is the code...
You can download or copy it

Friday, January 24, 2014

Form grouping

This is the interface design form grouping

Form grouping

this is the coding of form grouping
'variable declaration
Dim Edit As Boolean
Dim RsGroup As New ADODB.Recordset
Private Sub Command1_Click()
FrmCariGroup.Show 1
MsgBox FrmCariGroup.Kodex
MsgBox FrmCariGroup.Namax
End Sub