----------------------------------- Homer_simpson Wed May 28, 2003 9:45 pm simple data base.... ----------------------------------- this is a simple (not completed) data base took me short time to make it but here it is... type rec : record id : int name : string position : string points : int rebounds : int jersey : int age : int end record var list : array 1 .. 1000 of rec for i : 1 .. 1000 list (i).id := -1 end for var pid := 1 procedure getrecord (id : int) list (pid).id := pid put "name : " .. get list (pid).name put "position : " .. get list (pid).position put "points : " .. get list (pid).points put "rebounds : " .. get list (pid).rebounds put "jersy : " .. get list (pid).jersey put pid pid += 1 end getrecord procedure deleterecord (id : int) list (id).id := -1 end deleterecord procedure listdata (id : int) cls var y := 4 if id = 0 then for i : 1 .. 1000 if list (i).id not= -1 then locate (1, 1) put i if y >= 24 then put "press any key to continue..." loop exit when hasch end loop cls y := 4 end if locate (y, 5) put list (i).name locate (y, 17) put list (i).position locate (y, 37) put list (i).points locate (y, 41) put list (i).rebounds locate (y, 48) put list (i).jersey locate (y, 53) put list (i).id y += 1 end if end for else locate (y, 5) put list (id).name locate (y, 17) put list (id).position locate (y, 37) put list (id).points locate (y, 41) put list (id).rebounds locate (y, 48) put list (id).jersey locate (y, 53) put list (id).id y += 1 end if end listdata function finddata (id : int, name : string, position : string, points : int, rebounds : int, jersey : int, age : int) : int %returns id for i : 1 .. 1000 if id not= 0 then result id end if if name not= "" then if Str.index (list (pid).name, name) not= 1 then result i end if end if end for end finddata var id:=0 loop put "menu :" put "1. add record" put "2. list records" put "3. find records" put "4. delete records" case getchar of label "1" : getrecord (pid) label "2" : listdata (0) label "3" : put "Enter id# : " get id deleterecord (id) label : end case end loop ----------------------------------- Tony Wed May 28, 2003 11:08 pm ----------------------------------- i dont like that static 1..1000 array :? slows down the program and will crash when I go over the limit. (database for my ISP will contain... up to 25,000 records spread over 50 tables... thats why I'm using MS Access 8) ) ----------------------------------- Mazer Thu May 29, 2003 6:36 am ----------------------------------- couldn't you just use a flexible array instead of 1..1000? ----------------------------------- Homer_simpson Thu May 29, 2003 2:10 pm ----------------------------------- arrays are not the proper way to do data base... as i said b4 u haveto use pointers but since i'm not good at pointers in turing i used arrays =/ ----------------------------------- rizzix Fri May 30, 2003 4:40 pm ----------------------------------- i dont like that static 1..1000 array :? slows down the program and will crash when I go over the limit. (database for my ISP will contain... up to 25,000 records spread over 50 tables... thats why I'm using MS Access 8) ) ??? not Turing of course... VB? ----------------------------------- krishon Fri May 30, 2003 5:01 pm ----------------------------------- wut, u dunno wut MS access is? IF u dun't, its a database program. fairly ez to use ----------------------------------- Tony Fri May 30, 2003 7:57 pm ----------------------------------- rizzix knows what Access is... and he's right, I'm using VB to program my ISP 8) VB is the way to go for fast app development with some sweet GUI. ----------------------------------- krishon Fri May 30, 2003 9:02 pm ----------------------------------- oh, lol, mbmb ----------------------------------- rizzix Sat May 31, 2003 8:57 am ----------------------------------- arrays are not the proper way to do data base... as i said b4 u haveto use pointers but since i'm not good at pointers in turing i used arrays =/ i'm comming out with a easy-to-use solution for Turing. Just need to wait till my ISP is due, heh!