Hey i tried the del procedure and i failed. the file_studenttype thing is messing me up. so i was wondering if you could just put it in my program just like how u did the scroll thing.
A problem was found when i viewed the members in the groups other than DDC..like when i am viewing members in dpi and DSGO databases they give me people who are in the ddc database. i overlooked my codes but there seemed to be no error. so i was also wondering if you could check that out for me too.
Um, is it possible to add variables or have a variable that adds it's content..like for the ticket_payment..it would be irrelevant to have a writeln for this as someone could add varying amounts of prices and the writeln part might not match it when they go to view it in the Grand totals procedure..so if you can help out in this part then i would appreciate it alot.
I tried alot to fix the viewing problem.
im going to send my updated program and you can add a person in add_memberddc then you can do the same for the other add procedures in the ADD procedure, then go to view on the main menu
click "2" to view dpi members if you see members from ddc then that's the problem...so this is a major setback to making my program unique..so please help me.
the edit procedure would be great to but fixing the viewing problem + the adding of the tickets are more important..
so please help me
thanks......
HERE'S THE UPDATED ONE..PLEASE DON'T THINK OF ME AS A LAZY PERSON..BUT AS YOU ARE AN EXPERT IN TURBO PASCAL I JUST GOT HOOKED ON YOUR ADVISE
AND AGAIN THANKS...A MILLION
Program schoolSBA;
{This program was written by Michael Jarvis, a student of the Saint Mary's Academy.}
uses crt, dos,graph;
Type
MemberDatabaseDDC = record {declaration of record}
Member_ID : string[10];
Member_Name:String[30];
Member_TicketPayment:integer;
Advert:string;
end;
MemberDatabaseDPI=record
Member_IDdpi : string[10];
Member_Namedpi:String[30];
Member_TicketPaymentdpi:integer;
end;
MemberDatabaseDSGO = record
Member_IDdsgo : string[10];
Member_Namedsgo:String[30];
Member_TicketPaymentdsgo:integer;
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;
Databasename : String;
Var Gd, Gm,
Radius, Grow, IncP, IncQ : Integer;
DecrP, DecrQ : Boolean;
Procedure Mainmenu; Forward;
{*************************************************
*This Procedure is used to display the Main Menu *
*of the program. *
**************************************************}
Procedure Viewmenu;
{Procedure to display intro}
Begin
clrscr;
TextColor(white);
Textbackground(Black);
Clrscr;
GotoXY (1,4);
WriteLn( 'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
WriteLn('º ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» º');
WriteLn('º º º º');
WriteLn('º º º º');
WriteLn('º º º º');
WriteLn('º º º º');
WriteLn('º º º º');
WriteLn('º º º º');
WriteLn('º º º º');
WriteLn('º º º º');
WriteLn('º ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ º');
WriteLn('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
GoToXY(23,23);
GotoXY (16,6);
Writeln('* Welcome to the Member database program.*');
TextColor(Green);
GotoXY(17,8);
Writeln('This program was written by Michael L. Jarvis');
GotoXY (17,10);
writeln('a student of the Saint Mary`s Academy.');
GotoXY(17,12);
Writeln('Press "ENTER" to access the main menu.');
readln;
end;
Function File_exist:integer;
Begin
clrscr;
Assign(DDCdatabasefile,'Memberdatabase.dat');
{$I-}
Reset (DDCDatabasefile);
{$I+}
If IOResult<>0 then
Rewrite(DDCDatabasefile);
{$I+}
File_Exist := IOResult;
Close(DDCDatabasefile);
end;
{***************************************************************************}
function nextrec(curr, n : longint) : longint ;
{This function pertains to the view procedures for DDC, DPI and DSGO}
CONST
NUL = chr(0) ;
UP = chr(72) ; { UP arrow }
DOWN = chr(80) ; { DOWN arrow }
PGUP = chr(73) ;
PGDN = chr(81) ;
QUIT = chr(79) ; { "END" key }
KEYSET = [UP, DOWN, PGUP, PGDN, QUIT] ;
PGVAL = 10 ;
var
key : char ;
begin
while TRUE do begin { infinite loop }
key := readkey ;
if key = NUL then begin
key := readkey ;
case key of
UP : begin
if curr < n then
curr := curr + 1 ;
nextrec := curr ;
exit
end ;
DOWN : begin
if curr > -1 then
curr := curr - 1 ;
nextrec := curr ;
exit
end ;
PGUP : begin
if curr + PGVAL <= n then
curr := curr + PGVAL ;
nextrec := curr ;
exit
end ;
PGDN : begin
if curr - PGVAL >= -1 then
curr := curr - PGVAL ;
nextrec := curr ;
exit
end ;
QUIT : begin
nextrec := -100 ;
exit
end
end { case }
end
end
end ;
procedure advert;
{************************************************************************
*This Procedure Provides a list of the bands which will be performing *
*at the 16th annual World Creole Music Festival. *
************************************************************************}
var
ans:integer;
Begin
Gd := Detect;
InitGraph(Gd, Gm, 'c:\tp\bgi');
if GraphResult <> grOk then
Halt(1);
Randomize;
SetColor(White);
OutTextXY(20,20,'On October 29th we have bands like Krosfyah, Beenie Man, Maxi Priest,');
OutTextXY(20,30,'Third World, Kassav, and Midnight Groovers!');
OutTextXY(25,60,'On October 30th Come see bands like Carimi, Beris Hammond,UB40');
OutTextXY(25,70,'Red Hot Flames, Grammacks and WCK.');
OutTextXY(30,85,'On October 31st Come see Tabou Combo, Swinging Starz, Triple K');
OutTextXY(30,95,'Nasio Fontaine, Sean Paul and Jah Cure.');
OutTextXY(40,210,'Press "Enter" to continue.');
Readln;
CloseGraph;
Mainmenu;
end;
{*********************************************************************}
Procedure Add_MemberDDC;
{*********************************************************************
*This Procedure is used to add members into the DDA database*
*********************************************************************}
BEGIN
clrscr;
Assign(DDCDatabasefile,'MemberDatabase.datDDC');
{$I-}
Reset(DDCDatabasefile);
{$I+}
If IOResult <>0 then
Rewrite(DDCDatabasefile);
{$I+}
Repeat
Textcolor(Black);
Textbackground(White);
GotoXY(23,8);
Writeln('------------------------------------------------');
GotoXY(23,9);
Writeln('------------------------------------------------');
GotoXY(32,10);
Writeln(' Welcome to the DDC database. ');
GOTOXY(23,11);
Writeln(' ');
GOTOXY(23,11);
Writeln('----------------------------------------------- ');
Gotoxy(23,12);
Writeln('----------------------------------------------- ');
Writeln;
Writeln('Enter the Member ID.');
readln(DatabaseRecDDC.Member_ID);
Writeln;
writeln('Enter the Member full name.');
Readln(DatabaseRecDDC.Member_Name);
Writeln;
Writeln('Enter the Member Ticket Price');
Readln(DatabaseRecDDC.Member_TicketPayment);
Writeln;
{I-}
Until IOResult = 0;
seek(DDCDatabasefile,filesize(DDCDatabasefile));
Write(DDCDatabasefile,DatabaseRecDDC);
Write('Now there are ',FileSize(DDCdatabasefile),' records in the DDC Database ');
ReadLn;
Close(DDCDatabasefile);
Mainmenu;
end;
{*********************************************************************}
Procedure Add_MemberDPI;
{*********************************************************************
*This Procedure is used to add members into the DDA database*
*********************************************************************}
BEGIN
clrscr;
Assign(DPIDatabasefile,'MemberDatabase.datDPI');
{$I-}
Reset(DPIDatabasefile);
{$I+}
If IOResult <>0 then
Rewrite(DPIDatabasefile);
{$I+}
Repeat
Textcolor(Black);
Textbackground(White);
GotoXY(23,8);
Writeln('------------------------------------------------');
GotoXY(23,9);
Writeln('------------------------------------------------');
GotoXY(32,10);
Writeln(' Welcome to the DPI database. ');
GOTOXY(23,11);
Writeln(' ');
GOTOXY(23,11);
Writeln('----------------------------------------------- ');
Gotoxy(23,12);
Writeln('----------------------------------------------- ');
Writeln;
Writeln('Enter the Member ID.');
readln(DatabaseRecDPI.Member_IDDPI);
Writeln;
Writeln('Enter the Member full name.');
Readln(DatabaseRecDPI.Member_NameDPI);
Writeln;
Writeln('Enter the Member Ticket Price');
Readln(DatabaseRecDPI.Member_TicketPaymentDPI);
Writeln;
{I-}
Until IOResult = 0;
seek(DPIDatabasefile,filesize(DPIDatabasefile));
Write(DPIDatabasefile,DatabaseRecDPI);
Write('Now there are ',FileSize(DPIdatabasefile),' records in the DPI Database ');
ReadLn;
Close(DPIDatabasefile);
Mainmenu;
end;
{*********************************************************************}
Procedure Add_MemberDSGO;
{*********************************************************************
*This Procedure is used to add members into the DDA database*
*********************************************************************}
BEGIN
clrscr;
Assign(DSGODatabasefile,'MemberDatabase.datDSGO');
{$I-}
Reset(DSGODatabasefile);
{$I+}
If IOResult <>0 then
Rewrite(DSGODatabasefile);
{$I+}
Repeat
Textcolor(Black);
Textbackground(White);
GotoXY(23,8);
Writeln('------------------------------------------------');
GotoXY(23,9);
Writeln('------------------------------------------------');
GotoXY(32,10);
Writeln(' Welcome to the DSGO database. ');
GOTOXY(23,11);
Writeln(' ');
GOTOXY(23,11);
Writeln('----------------------------------------------- ');
Gotoxy(23,12);
Writeln('----------------------------------------------- ');
Writeln;
Writeln('Enter the Member ID.');
readln(DatabaseRecDSGO.Member_IDDSGO);
Writeln;
Writeln('Enter the Member full name.');
Readln(DatabaseRecDSGO.Member_NameDSGO);
Writeln;
Writeln('Enter the Member Ticket Price');
Readln(DatabaseRecDSGO.Member_TicketPaymentDSGO);
Writeln;
{I-}
Until IOResult = 0;
seek(DSGODatabasefile,filesize(DSGODatabasefile));
Write(DSGODatabasefile,DatabaseRecDSGO);
Write('Now there are ',FileSize(DSGOdatabasefile),' records in the DSGO Database ');
ReadLn;
Close(DSGODatabasefile);
Mainmenu;
end;
{***********************************************************************}
Procedure GrandTotals;
{************************************************************************
*This Procedure is used to identify the totals that each group pays and *
*the total of all three groups. *
************************************************************************}
var
Ans:Char;
Begin
begin
clrscr;
Textcolor(Black);
Textbackground(White);
GotoXY(8,2);
Writeln ('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
Gotoxy(8,3);
Writeln ('º º');
Gotoxy(8,4);
Writeln ('º Welcome to the Grand totals option on the database. º');
Gotoxy(8,5);
Writeln ('º Here you can view the members grand totals. º');
Gotoxy(8,6);
Writeln ('º Enjoy! º');
Gotoxy(8,7);
Writeln ('º º');
Gotoxy(8,8);
Writeln ('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
Writeln(' The Total cost for DDC MEMBERS IS $3900.00 ');
Writeln(' The total cost for DPI Members is $2620.00');
Writeln(' The total cost for DSGO Members is $1260');
Writeln(' The total cost for all the groups are $7780.00');
Writeln;
Writeln(' Press "s" to stay.');
Readln(Ans);
If ans = 's' then
Begin
GrandTotals;
end
Else
Mainmenu;
end;
end;
{************************************************************************}
Procedure Add;
{*************************************************************************
* This Procedure is used to ask the user which database he would like to *
* use to add records to the respective groups. *
*************************************************************************}
var
Ans : char;
choice:integer;
begin
clrscr;
Textcolor(Black);
Textbackground(White);
GotoXY(8,2);
Writeln ('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
Gotoxy(8,3);
Writeln ('º º');
Gotoxy(8,4);
Writeln ('º Welcome to the Add option of this database. º');
Gotoxy(8,5);
Writeln ('º Here you can add members in different groups . º');
Gotoxy(8,6);
Writeln ('º Enjoy! º');
Gotoxy(8,7);
Writeln ('º º');
Gotoxy(8,8);
Writeln ('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
WRITELN;
Writeln('Here you will choose which database you want to add someone to.');
Writeln;
Writeln('1-Add person to DDC database.');
Writeln('2-Add person to DPI database.');
Writeln('3-Add person to DSGO database.');
Writeln('Press any number more than "3" to go to main menu');
Writeln;
Writeln('Press the respective number then press Enter to continue.');
Readln(choice);
case choice of
1:Add_MemberDDC;
2:Add_MemberDPI;
3:Add_MemberDSGO;
END;
Readln;
Mainmenu;
end;
{**************************************************************************}
Procedure View_RecordsDDC;
{***************************************************
* This Procedure is used to view the information *
* about the members in the DDC Database. *
***************************************************}
CONST
SIZE = 1 ; { max number or records to be displayed }
Var
Ans : INTEGER;
count, { loop counter }
n, { index of last record in database file }
curr : longint ; { index of current record in database file }
Begin
Assign(DDCDatabasefile,'MemberDatabase.dat');
{$I-}
Reset(DDCDatabasefile);
{$I+}
n := filesize(DDCDatabasefile) - 1 ;
curr := 1 ; { default value }
repeat
clrscr ;
For count := curr - (SIZE - 1) to curr do Begin
if (count < 0) or (count > n) then
continue ; { no record has index < 0 or > n }
Seek(DDCDatabasefile,count);
Read(DDCDatabasefile,DatabaseRecDDC);
writeln;
Textcolor(Black);
Textbackground(White);
With DatabaseRecDDC do begin
Writeln;
writeln('Member Identification#:', Member_ID);
writeln;
writeln('name of Member: ', Member_Name);
Writeln;
Writeln;
Writeln('Ticket Payment of member:', Member_TicketPayment);
Textcolor(Black + blink);
Writeln('Press Up arrow to go up, Down arrow to go down and End to exit.');
Writeln(' ***********');
end
end;
curr := nextrec(curr, n)
until curr < -99 ;
close(DDCDatabasefile);
end;
{**********************************************************************}
{***********************************************************************}
Procedure View_RecordsDPI;
{***************************************************
* This Procedure is used to view the information *
* about the members in the DDC Database. *
***************************************************}
CONST
SIZE = 1; { max number or records to be displayed }
Var
Ans : INTEGER;
count, { loop counter }
n, { index of last record in database file }
curr : longint ; { index of current record in database file }
Begin
Assign(DPIDatabasefile,'MemberDatabase.dat');
{$I-}
Reset(DPIDatabasefile);
{$I+}
n := filesize(DPIDatabasefile) - 1 ;
curr := 1 ; { default value }
repeat
clrscr ;
For count := curr - (SIZE - 1) to curr do Begin
if (count < 0) or (count > n) then
continue ; { no record has index < 0 or > n }
Seek(DPIDatabasefile,count);
Read(DPIDatabasefile,DatabaseRecDPI);
writeln;
Textcolor(Black);
Textbackground(White);
with DatabaseRecDPI do begin
Writeln;
writeln('Member Identification#:', Member_IDdpi);
writeln;
writeln('name of Member: ', Member_Namedpi);
Writeln;
Writeln('Ticket Payment of member:', Member_TicketPaymentdpi);
Writeln;
Textcolor(Black + blink);
Writeln('Press Up arrow to go up, Down arrow to go down and End to exit.');
Writeln('********************');
end
end;
curr := nextrec(curr, n)
until curr < -99 ;
close(DPIDatabasefile);
end;
{***********************************************************************}
Procedure View_RecordsDSGO;
{***************************************************
* This Procedure is used to view the information *
* about the members in the DDC Database. *
***************************************************}
CONST
SIZE = 1; { max number or records to be displayed }
Var
Ans : INTEGER;
count, { loop counter }
n, { index of last record in database file }
curr : longint ; { index of current record in database file }
Begin
Assign(DSGODatabasefile,'MemberDatabase.dat');
{$I-}
Reset(DSGODatabasefile);
{$I+}
n := filesize(DSGODatabasefile) - 1 ;
curr := 1 ; { default value }
repeat
clrscr ;
For count := curr - (SIZE - 1) to curr do Begin
if (count < 0) or (count > n) then
continue ; { no record has index < 0 or > n }
Seek(DSGODatabasefile,count);
Read(DSGODatabasefile,DatabaseRecDSGO);
writeln;
Textcolor(White);
Textbackground(White);
With DatabaseRecDSGO do begin
Writeln;
writeln('Member Identification#:', Member_IDdsgo);
writeln;
writeln('name of Member: ', Member_Namedsgo);
Writeln;
Writeln('Ticket Payment of member:', Member_TicketPaymentdsgo);
Writeln;
Textcolor(Black + blink);
Writeln('Press Up arrow to go up, Down arrow to go down and End to exit.');
end
end;
curr := nextrec(curr, n)
until curr < -99 ;
close(DSGODatabasefile);
end;
{***********************************************************************}
{*************************************************************************}
Procedure Viewing;
{*************************************************************************
*This procedure is used to view the members in the different groups. *
*************************************************************************}
Var
Ans : char;
choice:Integer;
Begin
clrscr;
GotoXY(8,2);
Writeln ('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
Gotoxy(8,3);
Writeln ('º º');
Gotoxy(8,4);
Writeln ('º Welcome to the a Viewing option on this database. º');
Gotoxy(8,5);
Writeln ('º Here you can select which group to add members. º');
Gotoxy(8,6);
Writeln ('º Enjoy! º');
Gotoxy(8,7);
Writeln ('º º');
Gotoxy(8,8);
Writeln ('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
Writeln;
Writeln('Welcome to the View option of this program');
Writeln('Here you have to select a number to view members in their group.');
Writeln;
Writeln('1-View DDC members.');
Writeln('2-View DPI members.');
Writeln('3-View DSGO members.');
Writeln('Press any number bigger than "3" to go to main menu.');
Writeln;
Writeln('Press the respective number then press Enter.');
Readln(choice);
Case choice of
1:View_RecordsDDC;
2:View_RecordsDPI;
3:View_RecordsDSGO;
end;
mainmenu;
end;
Procedure AboutWCMF;
{************************************************************************
*This Procedure is used to give a brief synopsis about the WCMF *
************************************************************************}
Var
Ans:char;
Begin
Clrscr;
Assign(DDCDatabasefile,'MemberDatabase.dat');
{$I-}
Reset(DDCDatabasefile);
{$I+}
Begin
Seek(DDCDatabasefile,count);
Read(DDCDatabasefile,DatabaseRecDDC);
Writeln;
TextBackground(White);
Textcolor(black);
GotoXY(8,2);
Writeln ('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
Gotoxy(8,3);
Writeln ('º º');
Gotoxy(8,4);
Writeln ('º Welcome to the brief synopsis about the WCMF. º');
Gotoxy(8,5);
Writeln ('º Here you can view a brief history of the WCMF. º');
Gotoxy(8,6);
Writeln ('º Enjoy! º');
Gotoxy(8,7);
Writeln ('º º');
Gotoxy(8,8);
Writeln ('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
Writeln;
Gotoxy(9,10);
Writeln('The World Creole Music Festival also known as WCMF was');
GOTOXY(9,11);
Writeln('established in 1997 by the Dominica Festival Commision');
GOTOXY(9,12);
Writeln('during the Independence celebrations. Its main aim was');
GOTOXY(9,12);
Writeln('to increase the country revenue from stay over visitors');
GOTOXY(9,13);
Writeln('coming to the island for the celebration and also to ');
GOTOXY(9,14);
Writeln('further broaden Dominica tourism products and to promote');
GOTOXY(9,15);
Writeln('the islands creole music. The WCMF has been a great and ');
GOTOXY(9,16);
Writeln('never disappointing show since it has been established');
GOTOXY(9,17);
Writeln('15 years ago, and it is highly improbable for anything');
GOTOXY(9,18);
Writeln('to make it unsuccessful!');
end;
Close(DDCDatabasefile);
Writeln;
Textcolor(black);
GOTOXY(1,24);
Writeln('Press any letter except "g" to go back to the main menu');
Readln(Ans);
If Ans = 'g' then
Begin
AboutWCMF;
end
else
Mainmenu;
end;
{************************************************************************}
{************************************************************************}
Procedure exit;
{*************************************************************************
*This Procedure is used merely to exit! *
*************************************************************************}
Begin
end;
{************************************************************************}
{************************************************************************}
Procedure Mainmenu;
{***************************************************************************
*This Procedure is used to view and select the variety of options available*
***************************************************************************}
Begin
clrscr;
Textcolor(black);
Textbackground(White);
GotoXY(8,2);
Writeln ('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
Gotoxy(8,3);
Writeln ('º º');
Gotoxy(8,4);
Writeln ('º Welcome to the Member database. It Provides features for º');
Gotoxy(8,5);
Writeln ('º people attending the festival from the diaspora. º');
Gotoxy(8,6);
Writeln ('º º');
Gotoxy(8,7);
Writeln ('º Enjoy! º');
Gotoxy(8,8);
Writeln ('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
GotoXY(24,11);
Writeln('1.Enter new Member into a database.');
GotoXY(24,13);
writeln('2.View members in their different groups.');
GotoXY(24,15);
Writeln('3.View the advertisement.');
GotoXY(24,17);
Writeln('4. View Grand totals.');
GotoXY(24,19);
Writeln('5.A brief history of WCMF. ');
GotoXY(24,21);
Writeln('6.Exit.');
Textcolor(black);
GotoXY(32,60);
Textcolor(black + blink);
Writeln('Press the number of your choice , then press "Enter".');
GotoXY(70,25);
Readln(Choice);
Textcolor(blue);
Case choice of
1:ADD;
2:Viewing;
3:Advert;
4:GrandTotals;
5:AboutWCMF;
6:Exit;
end;
end;
Begin{Main program}
clrscr;
Viewmenu;
Mainmenu;
end.{End of program}
