Category : Databases and related files
Archive   : CONCORD.ZIP
Filename : CREATE.CPT











main()



(cls()
puts(  , ,pad("Run 
program()
" from DEMO.CPL only.,C F2Êsæ,P2Êsæ))
cursoroff()
getkey());







Create()

screen;
i,j;
string[2Êsæ];

screen†(2Êsæ,2Êsæ,MaxRow_,O2Êsæ);

T();
“();
V(2Êsæ,2Êsæ,}("ONLINE ³ Create,L F2Êsæ,P2Êsæ),MenuColor_);
V(
2Êsæ,2Êsæ,"ÍÍÍÍÍÍÍÍÏ
€(Í2Êsæ,G2Êsæ),MenuColor_);
V(2Êsæ,2Êsæ,"ÉÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍ»ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿);
V(2Êsæ,2Êsæ,"º # º Field Name ³ Type ³ Margin ³ Places º³ Database Statistics ³);
V(2Êsæ,2Êsæ,"ÌÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍ͹³ Documents 0 ³);
V(2Êsæ,2Êsæ,"º 1 º ³ ³ ³ º³ Fields 8 ³);
V(2Êsæ,2Êsæ,"º 2 º ³ ³ ³ ºÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ);
V(2Êsæ,2Êsæ,"º 3 º ³ ³ ³ º );
V(2Êsæ,2Êsæ,"º 4 º ³ ³ ³ ºÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿);
V( 2Êsæ,2Êsæ,"º 5 º ³ ³ ³ º³ Editing Keys ³);
V(
2Êsæ,2Êsæ,"º 6 º ³ ³ ³ º³ Delete Field: Alt-D ³);
V(2Êsæ,2Êsæ,"º 7 º ³ ³ ³ º³ Insert Field: Alt-I ³);
V( 2Êsæ,2Êsæ,"º 8 º ³ ³ ³ º³ Numeric Format: Alt-F ³);
V(
2Êsæ,2Êsæ,"º 9 º ³ ³ ³ º³ Print Fields: Alt-P ³);
V(2Êsæ,2Êsæ,"º 10 º ³ ³ ³ º³ Finish Edits: [F10] ³);
V(2Êsæ,2Êsæ,"º 11 º ³ ³ ³ º³ ÄÄ [F1] for Help ÄÄ ³);
V(2Êsæ,2Êsæ,"º 12 º ³ ³ ³ ºÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ);
V(2Êsæ,2Êsæ,"º 13 º ³ ³ ³ º );
V(2Êsæ,2Êsæ,"º 14 º ³ ³ ³ ºÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿);
V(2Êsæ,2Êsæ,"º 15 º ³ ³ ³ º³ Field Length Entries ³);
V(2Êsæ,2Êsæ,"º 16 º ³ ³ ³ º³ Text 60 Character ³);
V(2Êsæ,2Êsæ,"º 17 º ³ ³ ³ º³ Numeric 20 Decimals ³);
V(2Êsæ,2Êsæ,"º 18 º ³ ³ ³ º³ Date YMD DMY MDY ³);
V(2Êsæ,2Êsæ,"º 19 º ³ ³ ³ º³ Paragraph Left Margin ³);
V(2Êsæ,2Êsæ,"ÈÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍͼÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ);
MShow(2Êsæ,
2Êsæ,",",",
2Êsæ);

Message("Create databases by filling out a simple table.);
wait(d()
ú2Êsæ);
Message("We'll create a bibliographic database.);
id();
wait(ii
ô
2Êsæ);

typeMatic(2Êsæ,2Êsæ,"DATE,TextHighlight_);
MShow(2Êsæ,
2Êsæ,"DATE,"Date,"MMDDYY,
2Êsæ);

id();
wait(ii
ô
2Êsæ);
T();
MShow(2Êsæ,
2Êsæ,"DATE,"Date,"MMDDYY,2Êsæ);

MShow(2Êsæ,2Êsæ,",",",
2Êsæ);

typeMatic(2Êsæ,2Êsæ,"SERIAL,TextHighlight_);
id();

MShow(2Êsæ,2Êsæ,"SERIAL,"Text,"20,
2Êsæ);
wait(ii
ô
2Êsæ);
T();
MShow(2Êsæ,2Êsæ,"SERIAL,"Text,"20,2Êsæ);

MShow(2Êsæ,2Êsæ,"AUTHOR,"Paragraph,"16,
2Êsæ);
wait(ii
ô
2Êsæ);
MShow(2Êsæ,2Êsæ,"AUTHOR,"Paragraph,"16,2Êsæ);

MShow(2Êsæ,2Êsæ,"TITLE,"Paragraph,"16,
2Êsæ);
wait(ii
ô
2Êsæ);
MShow(2Êsæ,2Êsæ,"TITLE,"Paragraph,"16,2Êsæ);

MShow( 2Êsæ,2Êsæ,"REFERENCE,"Paragraph,"16,
2Êsæ);
wait(ii
ô
2Êsæ);
MShow( 2Êsæ,2Êsæ,"REFERENCE,"Paragraph,"16,2Êsæ);

MShow(
2Êsæ,2Êsæ,"YEAR,"Paragraph,"16,
2Êsæ);
wait(ii
ô
2Êsæ);
MShow(
2Êsæ,2Êsæ,"YEAR,"Paragraph,"16,2Êsæ);

MShow(2Êsæ,2Êsæ,"KEYWORDS,"Paragraph,"16,
2Êsæ);
wait(ii
ô
2Êsæ);
MShow(2Êsæ,2Êsæ,"KEYWORDS,"Paragraph,"16,2Êsæ);

MShow( 2Êsæ,2Êsæ,"ABSTRACT,"Paragraph,"16,
2Êsæ);
wait(ii
ô
2Êsæ);


(]())
getkey();

wait(d()
ô
2Êsæ);
Message("This database is now ready for use.);
wait(d()
ô
2Êsæ);
Message("Create your databases with your own fields in Concordance.);
wait(d()
ˆ2Êsæ);
jd()
22Êsæ;

(iN2Êsæ;i2Êsæ;ii-
2Êsæ)
‡(2Êsæ,i,screen);
wait(j);
jd()
22Êsæ;


R(2Êsæ,2Êsæ);


;






Modify()

screen;
i,j;
string[2Êsæ];

id()
î2Êsæ;
screen†(2Êsæ,2Êsæ,MaxRow_,O2Êsæ);
T();
“();
V(2Êsæ,2Êsæ,}("DATABASE³ Modify,LGU0,PU0),MenuColor_);
V(
U0,U0,"ÍÍÍÍÍÍÍÍÏ
€(ÍU0,GU0),MenuColor_);
V(U0,U0,"ÉÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍ»ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿);
V(U0,U0,"º # º Field Name ³ Type ³ Length ³ Places º³ Database Statistics ³);
V(U0,U0,"ÌÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍ͹³ Documents 342,467 ³);
V(U0,U0,"º 1 º DATE ³ Date ³ MMDDYY ³ º³ Fields 17 ³);
V(U0,U0,"º 2 º PRODNO ³ Text ³ 30 ³ ºÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ);
V(U0,U0,"º 3 º SYSNO ³ Text ³ 5 ³ º );
V(U0,U0,"º 4 º DOCTYPE ³ Text ³ 3 ³ ºÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿);
V( U0,U0,"º 5 º PRODUCER ³ Text ³ 14 ³ º³ Editing Keys ³);
V(
U0,U0,"º 6 º PRODDATE ³ Date ³ MMDDYY ³ º³ Delete Field: Alt-D ³);
V(U0,U0,"º 7 º EXHIBIT ³ Text ³ 4 ³ º³ Insert Field: Alt-I ³);
V( U0,U0,"º 8 º CODE ³ Numeric ³ 10 ³ 2 º³ Numeric Format: Alt-F ³);
V(
U0,U0,"º 9 º SOURCE ³ Paragraph ³ 16 ³ º³ Print Fields: Alt-P ³);
V(U0,U0,"º 10 º TITLE ³ Paragraph ³ 16 ³ º³ Finish Edits: [F10] ³);
V(U0,U0,"º 11 º XREF ³ Paragraph ³ 16 ³ º³ ÄÄ [F1] for Help ÄÄ ³);
V(U0,U0,"º 12 º AUTHOR ³ Paragraph ³ 16 ³ ºÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ);
V(U0,U0,"º 13 º ADDRESSEE ³ Paragraph ³ 16 ³ º );
V(U0,U0,"º 14 º COPYEE ³ Paragraph ³ 16 ³ ºÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿);
V(U0,U0,"º 15 º NAMES ³ Paragraph ³ 16 ³ º³ Field Length Entries ³);
V(U0,U0,"º 16 º SUMMARY ³ Paragraph ³ 16 ³ º³ Text 60 Character ³);
V(U0,U0,"º 17 º KEYQUOTES ³ Paragraph ³ 16 ³ º³ Numeric 20 Decimals ³);
V(U0,U0,"º 18 º NOTES ³ Paragraph ³ 16 ³ º³ Date YMD DMY MDY ³);
V(U0,U0,"º 19 º CONDITION ³ Paragraph ³ 16 ³ º³ Paragraph Left Margin ³);
V(U0,U0,"ÈÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍͼÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ);
MShow(U0,
U0,"DATE,"Date,"MMDDYY,
U0);


(—(-1)"main)
getkey();


wait(i);
Message("Modify databases by adding, moving or deleting fields.);

MShow(U0,
U0,"DATE,"Date,"MMDDYY,U0);
MShow(U0,U0,"PRODNO,"Text,"30,
U0);
MShow(U0,U0,"PRODNO,"Text,"30,U0);
MShow(U0,U0,"SYSNO,"Text,"5,
U0);
MShow(U0,U0,"SYSNO,"Text,"5,U0);
MShow(U0,U0,"DOCTYPE,"Text,"3,
U0);
MShow(U0,U0,"DOCTYPE,"Text,"3,U0);
MShow( U0,U0,"PRODUCER,"Text,"14,
U0);
MShow( U0,U0,"PRODUCER,"Text,"14,U0);
MShow(
U0,U0,"PRODDATE,"Date,"MMDDYY,
U0);
MShow(
U0,U0,"PRODDATE,"Date,"MMDDYY,U0);
MShow(U0,U0,"EXHIBIT,"Text,"4,
U0);
MShow(U0,U0,"EXHIBIT,"Text,"4,U0);
MShow( U0,U0,"CODE,"Numeric,"10,
U0);
MShow( U0,U0,"CODE,"Numeric,"10,U0);
MShow(
U0, U0,"SOURCE,"Paragraph,"16,
U0);

wait(d()
èU0);
X(
U0,U0,U0,-U0,
U0,U‚sm*=);
V(sm*=,sm*=,"º 19 º ³ ³ ³ º);
MShow(
sm*=, sm*=,"TITLE,"Paragraph,"16,
sm*=);


wait(d()
èsm*=);
X(
sm*=,sm*=,sm*=,-sm*=,
sm*=,U‚sm*=);
V(sm*=,sm*=,"º 19 º ³ ³ ³ º);
MShow(
sm*=, sm*=,"XREF,"Paragraph,"16,
sm*=);


wait(d()
èsm*=);
X(
sm*=,sm*=,sm*=,-sm*=,
sm*=,U‚sm*=);
V(sm*=,sm*=,"º 19 º ³ ³ ³ º);
MShow(
sm*=, sm*=,"AUTHOR,"Paragraph,"16,
sm*=);

MShow(
sm*=, sm*=,"AUTHOR,"Paragraph,"16,sm*=);
MShow(sm*=,
sm*=,"ADDRESSEE,"Paragraph,"16,
sm*=);
MShow(sm*=,
sm*=,"ADDRESSEE,"Paragraph,"16,sm*=);
MShow(sm*=,sm*=,"COPYEE,"Paragraph,"16,
sm*=);
MShow(sm*=,sm*=,"COPYEE,"Paragraph,"16,sm*=);
MShow(sm*=, sm*=,"NAMES,"Paragraph,"16,
sm*=);
MShow(sm*=, sm*=,"NAMES,"Paragraph,"16,sm*=);
MShow(sm*=,
sm*=,"SUMMARY,"Paragraph,"16,
sm*=);
MShow(sm*=,
sm*=,"SUMMARY,"Paragraph,"16,sm*=);
MShow(sm*=,sm*=,"KEYQUOTES,"Paragraph,"16,
sm*=);
MShow(sm*=,sm*=,"KEYQUOTES,"Paragraph,"16,sm*=);
MShow(sm*=,sm*=,"NOTES,"Paragraph,"16,
sm*=);
MShow(sm*=,sm*=,"NOTES,"Paragraph,"16,sm*=);
MShow(sm*=,sm*=,"CONDITION,"Paragraph,"16,
sm*=);
MShow(sm*=,sm*=,"CONDITION,"Paragraph,"16,sm*=);
MShow(sm*=,sm*=,",",",
sm*=);

wait(d()
ô
sm*=);
typeMatic(sm*=,sm*=,"SOURCE,TextHighlight_);

MShow(sm*=,sm*=,"SOURCE,"Paragraph,"16,
sm*=);
wait(d()
Üsm*=);
T();
R(sm*=,sm*=);

Message("Quickly rearrange fields even with data in the database.);
wait(d()
Ðsm*=);

(iNsm*=;ism*=;ii-
sm*=)
A
‡(sm*=,i,screen);
wait(j);
jd()
2sm*=;






;







MShow(row,number;field,type,length;key)

string[sm*=];
color,i;

id()
úsm*=;

(key)
colorTextHighlight_;

colorTextColor_;

(type"Numeric)
string" 2 ;

string" ;
V(row,
sm*=,o(number,sm*=)
" ,color);
V(row,sm*=," 
}(field,L‚sm*G,
sm*G),color);
V(row,sm*G," 
}(type,L‚sm*=,
sm*=),color);
V(row,"sm*=,}(length,R‚sm*=,sm*=)
" ,color);
V(row,+sm*=,string,color);

(key)
wait(i);