|
-
Dec 19th, 2006, 01:49 AM
#1
Thread Starter
Fanatic Member
[RESOLVED] Which to learn, Access, Sql, etc.
I've made a program that opens up "Text Files" and I use them as my Database/Saved information.
The program is a Video/DVD rental program.
It keeps track of Customers, Accounts, Actors, DVD's, Fees, etc.
Right now each movie saved to the text file is about 1.2k (550k total)
I expect to have 200-700 Accounts with double to tripple the customers.
I expect to have 700-1500 DVDs total.
I know little about Access, little about Sql. Nothing about any other Database.
Some of the information that is stored for Movies is following:
VB Code:
Type movieinfo
moviename As String 'example ---Main Hoon Na
Character1 As String 'example ---Shah Ruk Khan
Character2 As String 'example ---
releasedate As String 'example --- 01/01/2004 (sometimes you just know the year)
RunningTime As Integer 'example --- 180 as mins
AgeGroup As Byte 'example --- 0=All Audiances,1=adults,2=teens+,3=kids+
Subtitles As Boolean 'example --- 0 = False, if it was true. -1 = True
NewMovie As Boolean 'example --- -1 = true , 0=false
Description As String 'example --- Maj. Ramprasad Sharma(Shah Ruk Khan) is going back to school...
Type As Byte 'example --- 0-10 (0=comedy, 1=drama, 2=action/suspence, 3=scary/horror, 4=family,5=Science Fiction)
quantity As Byte 'example --- 2 in stock
Avail As Byte 'example --- 1 avil, meaning that 1 is checked out
movienumber As Integer 'example --- 75, but -75 if it is deleted
Deleted As Boolean
RentedNew As Integer
RentedOld As Long
AccountsRentedTo As String
BarCode As String
PicPath As String 'Hard Drive Path to the Picture to display.
TotalQInfo As Long
QInfo() As QuantityInformation
End Type
Type QuantityInformation
CopyLetter As String 'A,B,C,D,E....AA,BB,CC......AAA,BBB....
Rented As Boolean 'self explanitory
Account As Long '5 - know who rented it out to.
PurchaseDate As String '07/16/2006
PurchaseAmount As Currency '17.99
SoldDate As String '07/17/2006
SoldAmount As Currency ' 5.99 (Add in cost of renting it out 17, total from movie 22.99 that is $5 profit)
SoldTo As Long ' Customer Array Number
RentedNew As Integer '5 (so 3*5=15)
RentedOld As Integer '1 (so 2*1=2)
RentedNewProfit As Currency
RentedOldProfit As Currency
LateNew As Integer 'tracks how many times a movie has been returned late as new
LateOld As Integer 'tracks how many times a movie has been returned late as old
LateNewProfit As Currency
LateOldProfit As Currency
Status As Byte '0=Available/Owned still, 1=Sold, 2=LostByCustomer,3=Damaged, 4=stolen, etc.
NewWhenRented As Boolean
End Type
I just copied and pasted my current User Defined Type.
I am going to first learn about a specific database format/system. Then Re-program my DVD Rental program with it.
Thank you for your input.
Last edited by rack; Dec 22nd, 2006 at 02:10 AM.
Please RATE posts, click the RATE button to the left under the Users Name.
Once your thread has been answered, Please use the Thread Tools and select RESOLVED so everyone knows your question has been answered.
"As I look past the light, I see the world I wished tonight, never the less, sleep has come, and death shall soon follow..." © 1998 Jeremy J Swartwood
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|