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

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

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.