/*________________________________________________________________________
Program Title: Database
Filename.ext: Database.t
Description: This program will allow the user to input a list of names
with additional information and output this information
depending on what the user wants to organize it by.
First, the program will load a list of clients and their
related information from a Notepad document.
The program will then give the user the choice of inputing
additional information into the Database, or searching
for specific clients or key terms (first name, last name,
street, car type, VIN, etc). Then the program will
display this information for the user with the option
for editing or printing.
___________________________________________________________________________*/
% Declare the variables to be used in the database
var FileNumber : int
var Name : string
var DidSwap:string
% Assign the variables
var FileName : string := "ClientDataBase.txt"
var NumberOfDataItems : int := 0
var NumberOfClients : int
var Clients : flexible array 1 .. 0, 1 .. 3 of string
var NumberOfFields : int := 5
var BubbleSortWindow :int:=Window.Open("graphics")
var ListLength:int:=5
var FieldToSortBy:int:=1
% Welcome Screen
procedure WelcomeScreen
put "Welcome to the Database"
Input.Pause
put "New Client"
end WelcomeScreen
% Count the number of clients
procedure CountClientsData
open : FileNumber, FileName, get
loop
get : FileNumber, Name
NumberOfDataItems := NumberOfDataItems + 1
exit when eof (FileNumber)
end loop
NumberOfClients := NumberOfDataItems div NumberOfFields
close : FileNumber
end CountClientsData
% Create an array of names
procedure CreateClientsArray
new Clients, NumberOfClients, NumberOfFields
end CreateClientsArray
procedure Swap(FirstElement:int, NextElement:int)
var Temp:string
for col : 1 .. NumberOfFields
Temp:=Clients(FirstElement,col)
Clients(FirstElement,col):=Clients(NextElement,col)
Clients(NextElement,col):=Temp
end for
DidSwap:="Yes"
end Swap
% Sort list of names into alphabetical order
procedure BubbleSortClientsArray
var NextElement:int:=0
loop
DidSwap:="No"
for FirstElement: 1 .. ListLength-1
NextElement:=FirstElement+1
if Clients(NextElement,FieldToSortBy)<Clients(FirstElement,FieldToSortBy) then
Swap(FirstElement,NextElement)
end if
end for
exit when DidSwap = "No"
end loop
end BubbleSortClientsArray
% Fill the array with the names of the clients
procedure FillClientsArray
open : FileNumber, FileName, get
for row : 1 .. NumberOfClients
for col : 1 .. NumberOfFields
get : FileNumber, Clients (row, col)
end for
end for
close : FileNumber
end FillClientsArray
% Display the names in the array
procedure DisplayClientsArray
for row : 1 .. NumberOfClients
for col : 1 .. NumberOfFields
put Clients (row, col) : 13 ..
end for
put ""
end for
end DisplayClientsArray
% Mainline
CountClientsData
CreateClientsArray
FillClientsArray
BubbleSortClientsArray
DisplayClientsArray
% End Mainline
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
