Source Code to design an invoice using Visual basic 6.0

[Kola42]

Pls i need the source code & forms any one with ideas should please post. Thanks

[BC_Programmer]

 

[Big]

Well, BC_Programmer, that was a very useful post.

Here is the image of an invoice, so we can base ourselves on that:
invoice

Now let's sum up the fields and entities, with Windows Forms and UML notation::

- company label : Label

Company : Entity (class)
- Company name : String
- Street address : String
- City, State, Zip code : String
- Phone number, web address, e-mail : String

- Date : Date
- Invoice # : int (or auto-int or whatever)

Bill To : Label, TextArea

- CompanyID : int
- Company name : String
- Street address : String
- City, State, Zip code : String
- Country : String

Ship To: : Label, TextArea

- Company name : String
- Street address : String
- City, State, Zip code : String

- P.O.# : GridView.Header/ListBox.Header
- Sales Rep. Name : GridView.Header/ListBox.Header
- Ship Date : GridView.Header/ListBox.Header
- Ship Via : GridView.Header/ListBox.Header
- Terms : GridView.Header/ListBox.Header
- Due date : GridView.Header/ListBox.Header

Product : (Entity, class)

- Product ID : GridView.Header/ListBox.Header
- Description : GridView.Header/ListBox.Header
- Quantity : GridView.Header/ListBox.Header
- Unit price : GridView.Header/ListBox.Header
- Line Total (calc field) : Label
- Subtotal (calc field) : Label
- price PST% : Label
- price GST% : Label
- Shipping & handling : Label
- Total : Label
- Paid : Label
- Due (calc field) : Label

- Notes : Label, TextArea
- endlabel : Label

Now that we have these things, we can conclude a few things, OO related:

Requirements Elicitation:

classes

- Product
  - fields
     - Product ID
     - Description
     - Quantity
     - Unit price

- Company
  - fields
     - Company name
     - Street address
     - City, State, Zip code
     - Phone number
     - web address
     - e-mail

- Receiver
  - fields
     - Name
     - Address
     - City
     - State
     - CityState = (concatenated String)
     - Country

Then there is the bill to company. Maybe with some overloads.

Now let's see if anyone else cares to answer.
Give some comments if you want, so we can help this person further.

[BC_Programmer]

Now let's sum up the fields and entities, with Windows Forms and UML notation::

neither Windows Forms or UML are used by Visual Basic 6.

Then there is the bill to company. Maybe with some overloads.

neither are Overloads.


The data entry would need to be designed especially for the input of whatever the invoice is for- additionally, they make no mention of wether any information is being pulled from a database via ID values.

Also, creating a printed invoice from the data requires custom code working with the graphics methods of the printer object. Given the relatively large amount of effort involved and the terseness and loose definition of the request it's no surprise that I'm not exactly enthusiastic at the prospect of wasting an afternoon on this problem guessing and making assumptions about their invoice requirements, at least until the Original Poster actually puts forth some more details.

[Big]

VB6 has no OO?

[BC_Programmer]

VB6 has no OO?

It supports Interface Inheritance but not Implementation Inheritance... you can "emulate" implementation inheritance using interface inheritance and an aggregate class, but such a venture is usually not worth the effort.

Also, I forgot what UML was and confused it with XAML. The only missing piece then is that you simply cannot have derived classes.


the CProduct would probaby be something like this:

Code: [Select]

Private mProductID as Long
Private mDescription as String
Private mQuantity as Long
Private mUnitPrice as Currency

Friend Property Let ProductID(Byval Vdata as Long)
mProductID = Vdata
End Property
Public Property Get ProductID() as Long
ProductID = mProductID
End Property

Public Property Let Description(ByVal Vdata as String)
mDescription = Vdata
End Property
Public Property Get Description() as String
Description = MDescription
End Property

Public Property Let Quantity(Byval Vdata as Long)
mQuantity = Vdata
End Property
Public Property Get Quantity() as Long
Quantity = mQuantity
End Property


Public Property Let UnitPrice(Byval Vdata as Currency)
mUnitPrice = Vdata
End Property
Public Property Get UnitPrice() as Currency
UnitPrice = mUnitPrice
End Property

and of course, similar code for the other classes. Usually, these would be present in a back-end layer, usually a ActiveX DLL, which is used to access the database or however else the invoice data is stored; and then the UI program manages the User interface part of the invoicing, including the printing requirements and so forth.

I still think the OP needs to provide quite a bit more information before we can really help them, after all, we're operating on quite a number of assumptions of what they need.

[Big]

Yeah. I spent 20 minutes writing that stuff.

[Kola42]

thanks very much

[Salmon Trout]

Some IT services procurement methods:

1. Identify a requirement, place it out to tender, award contract, roll out application.
2. Ask on Computerhope.

[Salmon Trout]

Yeah. I spent 20 minutes writing that stuff.

You should bill the OP.

[Big]

Excuse me? I'm a benevolent person.
Also this is a forum, not a freelance bureau.

*censored*......

[Salmon Trout]

Excuse me? I'm a benevolent person.
Also this is a forum, not a freelance bureau.

*censored*......

I was being "facetious". Look it up.