Great DB With Table Full size windows APP

Discussion in 'Share Your Creations' started by scott93727, May 2, 2007.

  1. scott93727

    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 !!!!!!!
     

    Attached Files:

  2. johnpc

    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.
     

    Attached Files:

  3. agraham

    agraham Expert Licensed User

    Uncheck Tools -> Check for unassigned/unused variables
     
  4. scott93727

    scott93727 Member Licensed User

    Corrected file

    See corrected file.
     

    Attached Files:

  5. scott93727

    scott93727 Member Licensed User

    DB Error

    See corected file below
     
  6. ffflll

    ffflll New Member

    great:sign0087:
     
  7. derez

    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:
    Code:
    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:
    Code:
    Sub Button17_Click 'rev
    Cmbtype.SelectedIndex = typ - 1
    typ = typ + 
    1
    End Sub
     
Loading...