Great DB With Table Full size windows APP

scott93727

Member
Licensed User
Great DB Full application
Heres a really nice DB application i made with the table control, no DLL needed. Great for you DB creators that need a very nice DB app with just a exe file, for regular windows !!!!!!!
 

Attachments

johnpc

Member
Licensed User
I guess the data table is missing. Could you supply a small sample? Is there
something else wrong? I am getting an error message re: textFamily.
 

Attachments

derez

Expert
Licensed User
Very nice :)

The use of goto should be avoided as much as possible (it is justified in the case of error recovery).
See the modified subs below:
B4X:
Sub cmbType_SelectionChanged (Index, Value)
Select index
   Case 0
      label6.Text="Name"
      label7.Text="Address"
      label8.Text="City State"
      label9.Text="Phone"
      label10.Text="Notes"
      label13.Text="Email"
      label14.Text="WWW"
   Case 1
      label6.Text="Business"
      label7.Text="Address"
      label8.Text="City State"
      label9.Text="hours"
      label10.Text="Stock"
      label13.Text="Shipper"
      label14.Text="WWW"
   'table1.AddCol(cString,"Business",175)
   'table1.AddCol(cString,"Address",175)
   'table1.AddCol(cstring,"City State") 'Account Number must be unique.
   'table1.AddCol(cString,"Email",175)
   'table1.AddCol(cString,"Remarks",175)
   'table1.AddCol(cString,"WWW",175)
   'table1.AddCol(cString,"Work",175)
   'table1.AddCol(cstring,"Type",175)
   Case 2
      label6.Text="Retailer"
      label7.Text="Address"
      label8.Text="City State"
      label9.Text="WWW"
      label10.Text="Sale Items"
      label13.Text="Hours"
      label14.Text="Stock"
   Case 3
      label6.Text="Shipper"
      label7.Text="Address"
      label8.Text="City State"
      label9.Text="Phone"
      label10.Text="Frieght"
      label13.Text="Type"
      label14.Text="Hours"
   Case 4
      label6.Text="URL"
      label7.Text="Website"
      label8.Text="Type"
      label9.Text="Email"
      label10.Text="Remarks"
      label13.Text="Service"
      label14.Text="Active"
   Case 5
      label6.Text="Name"
      label7.Text="Email"
      label8.Text="Phone"
      label9.Text="Data"
      label10.Text="Remarks"
      label13.Text="Sex"
      label14.Text="WWW"
   Case 6
      label6.Text="Order"
      label7.Text="Amount"
      label8.Text="Price"
      label9.Text="Shipped"
      label10.Text="Stock"
      label13.Text="Company"
      label14.Text="Shipper"
   Case 7
      label6.Text="Stock"
      label7.Text="Item"
      label8.Text="Amount"
      label9.Text="Cost"
      label10.Text="Remarks"
      label13.Text="Discount"
      label14.Text="Suplier"
   Case 8
      label6.Text="Name"
      label7.Text="Bank"
      label8.Text="Amount"
      label9.Text="Payment"
      label10.Text="Balance"
      label13.Text="Due"
      label14.Text="Check"
End Select
End Sub
and this:
B4X:
Sub Button17_Click 'rev
Cmbtype.SelectedIndex = typ - 1
typ = typ + 1
End Sub
 
Top