Page 1
Page 2
Page 3
Page 4
Page 5
Page 6
You will notice that at this point only View
Grid button is available. This is mainly due to the fact that
unless you want to parse the SELECT string and read in the field
names, there is no easy way to extract that information, especially
if you are using more then one table. Note that simply giving
users the ability to type in a SELECT statement is not the most
user-friendly method. But I put this option for the more sophisticated
out there. Giving them the complete control over what information
they wish to collect. Plus as a developer it helps me to run some
test scripts when on the go, which I can latter apply to my PC
applications.
One last thing, you may notice the little
"X" in the red square by all the buttons (REFER TO ANY
OF THE PREVIOUS FIGURES). This is a button that I have used to
go back to a previous selection. What ever the buttons currently
showing , pressing the "X" button gets you to the buttons
before. Pressing when the Select Database button is displayed
closes down the application.
Private Sub cmdReturn_Click()
'Check to see which set of buttons is currently visible
'hide them and make the set before visible
If Me.cmdPrev.Visible = True Then
'If navigation buttons are visible then
' display the View Selection Buttons
BtnShow ("000110000")
Grid1.Visible = False
txtBox.Visible = False
Me.lblDispMsg.Caption = "Select View Type"
Exit Sub
End If
If Me.cmdViewGrid.Visible = True Then
'If the View Grid/Records button are visible
'then display the Select Table vs. SQL buttons
BtnShow ("011000000")
Grid1.Visible = False
txtBox.Visible = False
Me.lblDispMsg.Caption = "Select Table or SQL Retreival"
Me.cmdViewGrid.Width = 1572
Me.cmdViewGrid.Enabled = True
Exit Sub
End If
If Me.cmdGetTable.Visible = True Then
'If the view table buttons is visible then display
'the Get Database button
BtnShow ("100000000")
List1.Visible = False
txtBox.Visible = False
Exit Sub
lblDispMsg.Caption = "Press the button above to Start"
End If
If Me.cmdGetDataBase.Visible = True Then
'If the Get Database button is visibl then
'quit Applicatin
App.End
End If
End Sub
CODE 19 (Form)
Well that's it for now, as I said before
this is my first stab at PocketPC programming. Later on I hope
to add the ability to change information in tables, view and modify
tables structures, automate synchronization with the PC's, end
even put in the ability to transmit selected information via the
infrareds from one PalmTop to another. With any luck I won't be
to swamped with other work, or adoring millions to quickly add
these new features to my program.
Previous Page