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...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice