Help(Project crisis) - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Help(Project crisis)

pampazpampaz Posts: 10Member
hey guys a new programmer here..well i'm still in high school and we're using turbo pascal and i have this Major project doing and i am currently making a database in a program .. using "assigns" "rewrite" and the famous I/O Results. These parts are going fine but when i viewed my program object code( the people and their information) i can only see the last two people and their information ..my teacher said to get codes to scroll up and down O_O ( like you're supposed to give them to me). any ways this project is real important and i was wandering if you guys know some codes to scroll up and down. please send me the link(s) . Plus i'm using turbo pascal 7.0 16 bit. or i can upload my program and you can just input the codes for viewing the information.

thanks...
oh and can any one tell me how to make a box using alt

the scrolling codes have to go in view_member(dda,dpi and dsgo)


Program schoolSBA;

uses crt, dos;

Type
MemberDatabaseDDC = record {declaration of record}

Member_ID : string[10];
Member_Name:String[30];
Member_Address :String[50];
Member_Phone : String[14];
Member_Age:string[3];
Member_TicketPayment:Real;

Advert:string;
end;

MemberDatabaseDPI=record
Member_ID : string[10];
Member_Name:String[30];
Member_Address :String[50];
Member_Phone : String[14];
Member_Age:string[3];
Member_TicketPayment:Real;
end;

MemberDatabaseDSGO = record
Member_ID : string[10];
Member_Name:String[30];
Member_Address :String[50];
Member_Phone : String[14];
Member_Age:string[3];
Member_TicketPayment:Real;
end;

var
DDCDatabasefile : file of MemberDatabaseDDC;
DatabaseRecDDC: MemberDatabaseDDC; {variable for DDC record}

DPIDatabasefile: file of MemberDatabaseDPI;
DatabaseRecDPI: MemberDatabaseDPI;{variable for DPI record}

DSGODatabasefile : file of MemberDatabaseDSGO;
DatabaseRecDSGO :MemberDatabaseDSGO; {variable for DSGO record}

Choice, count,i: integer;
Opened : Boolean;
Databasename : String;


Procedure Mainmenu; Forward;

{*************************************************
*This Procedure is used to display the Main Menu *
*of the program. *
**************************************************}

Procedure Viewmenu;
{Procedure to display intro}
Begin
clrscr;


TextColor(red+black);
Textbackground(black);
Clrscr;
GotoXY (1,4);
WriteLn( '
Sign In or Register to comment.