Simple database: Difference between revisions
m
Minor code improvement.
m (Minor code improvement.) |
|||
| (12 intermediate revisions by 7 users not shown) | |||
Line 41:
{{trans|Kotlin}}
<syntaxhighlight lang="11l">T Item((String name, String date, String category))
F String()
R .name‘, ’(.date)‘, ’(.category)
Line 62 ⟶ 55:
F store(item)
File(:db_filename,
F printUsage()
Line 123 ⟶ 116:
{{out}}
The same as in Kotlin.
=={{header|BASIC}}==
==={{header|Applesoft BASIC}}===
This program relies on DOS 3.3 to read and write the simple database as a text file on disk. Running the program with no options displays help on how to run the program with the various options.
<syntaxhighlight lang="gwbasic"> 10 FOR I = 0 TO 255:C = PEEK (512 + I):EOL = C = 0 OR C = 141: IF NOT EOL THEN C$ = C$ + CHR$ (C): NEXT I: STOP
20 DOS = (C = 141) * 128:AC = 0: FOR C = I - 1 TO 0 STEP - 1: IF PEEK (512 + C) = ASC (",") + DOS THEN AC = AC + 1: NEXT C
30 D$ = CHR$ (4):M$ = CHR$ (13): READ P$,C$(1),C$(2),C$(3),C$(4):F$ = P$ + ".TXT": ON AC GOTO 100,40,40,40: GOTO 500USAGE
40 C = 0: PRINT D$"OPEN "F$: PRINT D$"READ "F$
50 ONERR GOTO 80
60 INPUT "";NA$,GE$,DA$
70 C = C + 1: GOTO 60
80 POKE 216,0: IF PEEK (222) = 5 THEN PRINT D$"CLOSE "F$: ON AC GOTO 100,200,300,400
90 RESUME
REM ADD
100 PRINT M$C$(AC)M$
110 INPUT " NAME: ";NAME$
120 INPUT " GENRE: ";GENRE$
130 INPUT "DATE YYYY-MM-DD: ";DA$
140 PRINT D$"OPEN "F$: PRINT D$"APPEND "F$: PRINT D$"WRITE "F$: PRINT NAME$","GENRE$","DA$: PRINT D$"CLOSE "F$
150 GOTO 600"DONE
REM LATEST
200 PRINT M$C$(AC)M$M$" NAME: "NA$M$"GENRE: "GE$M$" DATE: "DA$;
210 GOTO 600"DONE
REM LATEST OF EACH GENRE
300 DIM NA$(C),GE$(C),DA$(C):GC = 0: PRINT D$"OPEN "F$: PRINT D$"READ "F$: FOR I = 1 TO C: GOSUB 350:NA$(J) = NA$:GE$(J) = GE$:DA$(J) = DA$: NEXT I: PRINT D$"CLOSE "F$
310 PRINT M$C$(AC)M$: FOR I = 1 TO GC: PRINT M$NA$(I)","GE$(I)","DA$(I);: NEXT I
320 GOTO 600"DONE
350 INPUT "";NA$,GE$,DA$: FOR J = 1 TO GC: IF GE$ = GE$(J) THEN RETURN
360 NEXT J:GC = GC + 1:J = GC: RETURN
REM ALL SORTED BY DATE
400 DIM NA$(C),GE$(C),DA$(C),DA(C):DC = 0: PRINT D$"OPEN "F$: PRINT D$"READ "F$: FOR I = 1 TO C: GOSUB 450:NA$(DC) = NA$:GE$(DC) = GE$:DA$(DC) = DA$:DA(DC) = DA(DP):DA(DP) = DC: NEXT I: PRINT D$"CLOSE "F$
410 PRINT M$C$(AC)M$:DA = DA(0): FOR I = 1 TO DC: PRINT M$NA$(DA)","GE$(DA)","DA$(DA);:DA = DA(DA): NEXT I
420 GOTO 600"DONE
450 DP = 0: INPUT "";NA$,GE$,DA$: IF NOT DC THEN DC = 1: RETURN
460 FOR J = 1 TO DC:DA = DA(DP): IF DA$ > DA$(DA) THEN DP = DA:DA = DA(DA): NEXT J:DA = DP
470 DC = DC + 1: RETURN
REM USAGE
500 DATA "SIMPLE DATABASE"
510 DATA " RUN: , ADD A NEW ENTRY"
520 DATA " RUN: ,, PRINT THE LATEST ENTRY"
530 DATA " RUN: ,,, LATEST OF EACH GENRE"
540 DATA " RUN: ,,,, ALL SORTED BY DATE"
550 IF NOT DOS THEN C$ = "RUN " + P$
560 PRINT "USAGE:"M$" "C$" ,..."M$" OR";: FOR I = 1 TO 4: PRINT M$C$(I);: NEXT I
REM DONE
600 END</syntaxhighlight>
==={{header|Run BASIC}}===
<syntaxhighlight lang="runbasic">sqliteconnect #sql, "f:\client.db" ' Connect to the DB
' -------------------------------
' show user options
' -------------------------------
[sho]
cls ' clear screen
button #acd, "Add a new entry", [add]
button #acd, "Print the latest entry", [last]
button #acd, "Print the latest entry for each category", [lastCat]
button #acd, "Print all entries sorted by a date", [date]
button #ex, "Exit", [exit]
wait
' ------------------------------------
' add a new entry (user input screen)
' ------------------------------------
[add]
cls ' clear the screen
html "<TABLE BORDER=1 CELLPADDING=0 CELLSPACING=0 bgcolor=wheat>"
html "<TR align=center BGCOLOR=tan><TD colspan=2>Client Maintenance</TD></TR><TR>"
html "<TD bgcolor=tan align=right>Client Num</TD><TD>"
textbox #clientNum,clientNum$,5
html "</TD></TR><TR><TD bgcolor=tan align=right>Name</TD><TD>"
textbox #name,name$,30
html "</TD></TR><TR><TD bgcolor=tan align=right>Client Date</TD><TD>"
textbox #clientDate,clientDate$,19
html "</TD></TR><TR><TD bgcolor=tan align=right>Category</TD><TD>"
textbox #category,category$,10
html "</TD></TR><TR><TR bgcolor=tan><TD colspan=2 ALIGN=CENTER>"
button #acd, "Add", [addIt]
button #ex, "Exit", [sho]
html "</TD></TR></TABLE>"
wait
' ---------------------------------------------
' Get data from the screen
' ---------------------------------------------
[addIt]
clientNum = #clientNum contents$()
name$ = trim$(#name contents$())
clientDate$ = trim$(#clientDate contents$())
category$ = trim$(#category contents$())
dbVals$ = clientNum;",'";name$;"','";clientDate$;"','";category$;"'"
sql$ = "INSERT into client VALUES ("; dbVals$ ; ")"
#sql execute(sql$)
goto [sho]
' ------------------------------------
' Select last entry
' ------------------------------------
[last]
sql$ = "SELECT *,client.rowid as rowid FROM client ORDER BY rowid desc LIMIT 1"
what$ = "---- Last Entry ----"
goto [shoQuery]
' ------------------------------------
' Select by category (Last date only)
' ------------------------------------
[lastCat]
sql$ = "SELECT * FROM client
WHERE client.clientDate = (SELECT max(c.clientDate)
FROM client as c WHERE c.category = client.category)
ORDER BY category"
what$ = "---- Last Category Sequence ----"
goto [shoQuery]
' ------------------------------------
' Select by date
' ------------------------------------
[date]
sql$ = "SELECT * FROM client ORDER BY clientDate"
what$ = "---- By Date ----"
[shoQuery]
cls
print what$
html "<TABLE BORDER=1 CELLPADDING=0 CELLSPACING=0>"
html "<TR align=center bgcolor=wheat><TD>Client<br>Num</TD><TD>Name</TD><TD>Client<br>Date</TD><TD>Category</TD></TR>" ' heading
#sql execute(sql$)
WHILE #sql hasanswer()
#row = #sql #nextrow()
clientNum = #row clientNum()
name$ = #row name$()
clientDate$ = #row clientDate$()
category$ = #row category$()
html "<TR><TD align=right>";clientNum;"</TD><TD>";name$;"</TD><TD>";clientDate$;"</TD><TD>";category$;"</TD></TR>"
WEND
html "</TABLE>"
button #c, "Continue", [sho]
wait
' ------ the end -------
[exit]
end</syntaxhighlight>
Output:
---- User Input ----<br />
<TABLE BORDER=1 CELLPADDING=0 CELLSPACING=0 bgcolor=wheat>
<TR align=center BGCOLOR=tan><TD colspan=2>Client Maintenance</TD></TR>
<TR><TD bgcolor=tan align=right>Client Num</TD><TD>5</TD></TR>
<TR><TD bgcolor=tan align=right>Name</TD><TD>Dawnridge Winery</TD></TR>
<TR><TD bgcolor=tan align=right>Client Date</TD><TD>2008-06-18 22:16</TD></TR>
<TR><TD bgcolor=tan align=right>Category</TD><TD>wine</TD></TR>
<TR><TR bgcolor=tan><TD colspan=2 ALIGN=CENTER>[Add] [Exit]</TD></TR></TABLE>
---- Last Entry ----<br />
<TABLE BORDER=1 CELLPADDING=0 CELLSPACING=0>
<TR align=center bgcolor=wheat><TD>Client<br>Num</TD><TD>Name</TD><TD>Client<br>Date</TD><TD>Category</TD></TR>
<TR><TD align=right>5</TD><TD>Dawnridge Winery</TD><TD>2008-06-18 22:16</TD><TD>wine</TD></TR></TABLE>
---- Last category Sequence ----<br />
<TABLE BORDER=1 CELLPADDING=0 CELLSPACING=0>
<TR align=center bgcolor=wheat><TD>Client<br>Num</TD><TD>Name</TD><TD>Client<br>Date</TD><TD>Category</TD></TR>
<TR><TD align=right>1</TD><TD>Home Sales</TD><TD>2012-01-01 10;20</TD><TD>broker</TD></TR>
<TR><TD align=right>4</TD><TD>Back 40 Equipment</TD><TD>2009-09-18 20:18</TD><TD>farm</TD></TR>
<TR><TD align=right>3</TD><TD>Floral Designs</TD><TD>2010-10-14 09:16</TD><TD>flowers</TD></TR>
<TR><TD align=right>2</TD><TD>Best Foods</TD><TD>2011-02-02 12:33</TD><TD>food</TD></TR>
<TR><TD align=right>5</TD><TD>Dawnridge Winery</TD><TD>2008-06-18 22:16</TD><TD>wine</TD></TR></TABLE>
---- Date Sequence ----<br />
<TABLE BORDER=1 CELLPADDING=0 CELLSPACING=0>
<TR align=center bgcolor=wheat><TD>Client<br>Num</TD><TD>Name</TD><TD>Client<br>Date</TD><TD>Category</TD></TR>
<TR><TD align=right>5</TD><TD>Dawnridge Winery</TD><TD>2008-06-18 22;16</TD><TD>wine</TD></TR>
<TR><TD align=right>4</TD><TD>Back 40 Equipment</TD><TD>2009-09-18 20:18</TD><TD>farm</TD></TR>
<TR><TD align=right>3</TD><TD>Floral Designs</TD><TD>2010-10-14 09:16</TD><TD>flowers</TD></TR>
<TR><TD align=right>2</TD><TD>Best Foods</TD><TD>2011-02-02 12:33</TD><TD>food</TD></TR>
<TR><TD align=right>1</TD><TD>Home Sales</TD><TD>2012-01-01 10:20</TD><TD>broker</TD></TR></TABLE>
=={{header|Bracmat}}==
Line 810 ⟶ 989:
[28.3.2018 15:06:18][cd][Horor][Movie name]
[28.3.2018 15:06:18][dvd][Horor][Movie name][Fiction][Movie name]
</pre>
=={{header|C++}}==
<syntaxhighlight lang="c++">
#include <algorithm>
#include <cstdint>
#include <fstream>
#include <iostream>
#include <limits>
#include <string>
#include <vector>
const std::string filename = "Contacts.dat";
class Contact {
public:
Contact(const std::string& aName, const std::string& aBirth_Date, const std::string& aState,
const std::string& aRelation, const std::string& aEmail)
: name(aName), birth_date(aBirth_Date), state(aState), relation(aRelation), email(aEmail) { }
std::string get_relation() const {
return relation;
}
std::string to_string() const {
return name + ", " + birth_date + ", " + state + ", " + relation + ", " + email;
}
bool operator<(const Contact& other) const {
return birth_date > other.birth_date;
}
private:
std::string name, birth_date, state, relation, email;
};
std::vector<Contact> contacts = { };
Contact parse(std::string entry) {
std::vector<std::string> parts;
uint64_t position = 0;
while ( ( position = entry.find(", ") ) != std::string::npos ) {
parts.emplace_back(entry.substr(0, position));
entry.erase(0, position + 2);
}
return Contact(parts[0], parts[1], parts[2], parts[3], entry);
}
void write_file(const std::string& new_entry) {
std::fstream database(filename, std::ios::out | std::ios::app);
if ( database.is_open() ) {
database << new_entry;
database.close();
} else {
std::cerr << "Unable to open database '" << filename << "' for writing" << std::endl;
}
}
// Open the file if it exists, otherwise create a new empty file.
void read_file() {
std::fstream database(filename, std::ios::in | std::ios::app);
if ( database.is_open() ) {
std::string entry;
while ( std::getline(database, entry) ) {
contacts.emplace_back(parse(entry));
}
database.close();
} else {
std::cerr << "Unable to open database '" << filename << "' for reading" << std::endl;
}
}
void add_new_entry() {
std::cout << "Type the new entry, without inverted commas, in the format:" << std::endl;
std::cout << "Name, Birth_Date, State, Relation, Email" << std::endl;
std::string new_entry;
std::cin.ignore(std::numeric_limits<std::streamsize>::max(), '\n'); // Clear the keyboard buffer
std::getline(std::cin, new_entry);
Contact contact(parse(new_entry));
contacts.emplace_back(contact);
write_file(new_entry);
std::cout << "The contact \"" << new_entry << "\" has been added to the database" << std::endl;
}
void show_latest_entry() {
if ( ! contacts.empty() ) {
std::cout << "The latest entry is: " + contacts.back().to_string() << std::endl;
} else {
std::cout << "There are currently no entries in the database" << std::endl;
}
}
void show_latest_special_entry(const std::string& search) {
int32_t index = contacts.size() - 1;
while ( index >= 0 && contacts[index].get_relation() != search ) {
index--;
}
if ( index >= 0 ) {
std::cout << "The latest " << search << " entry is " + contacts[index].to_string() << std::endl;
} else {
std::cout << "There are currently no " << search << " entries" << std::endl;
}
}
void show_latest_friend_entry() {
show_latest_special_entry("Friend");
}
void show_latest_family_entry() {
show_latest_special_entry("Family");
}
void list_all_entries_by_age() {
if ( ! contacts.empty() ) {
std::vector<Contact> copy_contacts = contacts;
std::sort(copy_contacts.begin(), copy_contacts.end());
for ( const Contact& contact : copy_contacts ) {
std::cout << contact.to_string() << std::endl;
}
} else {
std::cout << "There are currently no entries in the database" << std::endl;
}
}
int main() {
read_file();
uint32_t choice = 0;
while ( choice != 6 ) {
std::cout << std::endl;
std::cout << " Menu " << std::endl;
std::cout << " 1: Add a new entry" << std::endl;
std::cout << " 2: Show latest entry" << std::endl;
std::cout << " 3: Show latest Friend entry" << std::endl;
std::cout << " 4: Show latest Family entry" << std::endl;
std::cout << " 5: List all entries by age" << std::endl;
std::cout << " 6: Close the program" << std::endl;
std::cout << std::endl;
std::cin >> choice;
switch ( choice ) {
case 1 : add_new_entry(); break;
case 2 : show_latest_entry(); break;
case 3 : show_latest_friend_entry(); break;
case 4 : show_latest_family_entry(); break;
case 5 : list_all_entries_by_age(); break;
case 6 : std::cout << "Program closed" << std::endl; break;
default : std::cout << "Please enter a number in the range 1..6" << std::endl; break;
}
}
}
</syntaxhighlight>
{{ out }}
<pre>
Menu
1: Add a new entry
2: Show latest entry
3: Show latest Friend entry
4: Show latest Family entry
5: List all entries by age
6: Close the program
1
Type the new entry, without inverted commas, in the format:
Name, Birth_Date, State, Relation, Email
Sally Whittaker, 1988-12-05, Illinios, Friend, sally@mail.com
The contact "Sally Whittaker, 1988-12-05, Illinios, Friend, sally@mail.com" has been added to the database
Menu
1: Add a new entry
2: Show latest entry
3: Show latest Friend entry
4: Show latest Family entry
5: List all entries by age
6: Close the program
1
Type the new entry, without inverted commas, in the format:
Name, Birth_Date, State, Relation, Email
Sandy Allen, 2002-0-09, Colorado, Friend, sandya@mail.com
The contact "Sandy Allen, 2002-0-09, Colorado, Friend, sandya@mail.com" has been added to the database
Menu
1: Add a new entry
2: Show latest entry
3: Show latest Friend entry
4: Show latest Family entry
5: List all entries by age
6: Close the program
5
Sandy Allen, 2002-0-09, Colorado, Friend, sandya@mail.com
Sally Whittaker, 1988-12-05, Illinios, Friend, sally@mail.com
Menu
1: Add a new entry
2: Show latest entry
3: Show latest Friend entry
4: Show latest Family entry
5: List all entries by age
6: Close the program
6
Program closed
</pre>
Line 1,417 ⟶ 1,800:
item6,2014-06-04T16:01:55,cat4
item7,2014-06-04T16:02:01,cat4</pre>
=={{header|Emacs Lisp}}==
<syntaxhighlight lang="lisp">
(defun dbe-next-id ()
(unless (boundp '**dbe-current-id**) (setq **dbe-current-id** 1))
(let ((id **dbe-current-id**))
(cl-incf **dbe-current-id**)
id ) )
(defun dbe-rows (fn-handle-row &rest params)
(let ((has-more 't) current-line linum1 linum2
(fn-continue (plist-get params :continue)))
(save-window-excursion
(switch-to-buffer "**content**")
(beginning-of-buffer)
(if fn-continue (setq has-more (funcall fn-continue)))
(while has-more
(setq current-line
(buffer-substring (line-beginning-position)
(line-end-position)))
(unless (string= current-line "")
(funcall fn-handle-row (read current-line)))
(if fn-continue (setq has-more (funcall fn-continue)))
(setq linum1 (line-number-at-pos (point)))
(forward-line)
(setq linum2 (line-number-at-pos (point)))
(if (= linum1 linum2) (setq has-more nil))
)
)
)
)
(defun dbe-insert (row)
(interactive "xPlease enter the row data in plist format: ")
(save-window-excursion
(switch-to-buffer "**content**")
(end-of-buffer)
(let (row-data)
(setq row-data (append (list 'id (dbe-next-id)) (ensure-list row)))
(insert (format "%s\n" row-data))
(message ">> Row added: %s" row-data) ) ) )
(defun dbe-find-by-id (row-id)
(interactive "nPlease enter row id: ")
(let (row-found)
(dbe-rows (lambda (row)
(when (equal (plist-get row 'id) row-id)
(setq row-found row)) )
:continue (lambda () (null row-found)))
(message ">> Row found: %s" row-found)
)
)
</syntaxhighlight>
{{out}}
<pre>
M-x dbe-insert
Please enter the row data in plist format: (name "book1" author "author1")
>> Row added: (id 1 name book1 author author1)
M-x dbe-insert
Please enter the row data in plist format: (name "book2" author "author2")
>> Row added: (id 2 name book2 author author2)
M-x dbe-find-by-id
Please enter row id: 2
>> Row found: (id 2 name book2 author author2)
</pre>
=={{header|Erlang}}==
Line 2,768 ⟶ 3,221:
The format of file is xml, Utf8 with a BOM.
The M2000
Line 2,977 ⟶ 3,430:
>tool add name "GEORGE" date "2022.11.29.16:55"
This is the last print from last tool
<?xml version="1.0" encoding="utf-8-sig"?>
<MyFile>
Line 4,553 ⟶ 5,006:
{"fields":["event_title","start_time","stop_time","location","event_description"],"items":{"6dd02195-1efe-40d1-b43e-c2efd852cd1d":{"event_title":"Wife's Birthday","start_time":"2011-11-01","stop_time":"2011-11-01","location":"","event_description":"happy 39th"},"0190b835-401d-42da-9ed3-1d335d27b83c":{"event_title":"Parent-Teacher Conference","start_time":"2011-11-03 19:30","stop_time":"2011-11-03 20:00","location":"school","event_description":"desc"},"4023e6f1-bcc1-49e5-a59f-138157b413f4":{"event_title":"Buy gift for wife","start_time":"2011-10-31 16:00","stop_time":"2011-10-31 16:30","location":"the mall","event_description":"hmm, maybe jewelery?"}},"history":[[1320349951.000625,"6dd02195-1efe-40d1-b43e-c2efd852cd1d"],[1320350045.4736252,"0190b835-401d-42da-9ed3-1d335d27b83c"],[1320350102.9486248,"4023e6f1-bcc1-49e5-a59f-138157b413f4"]],"tags":{"birthday":["6dd02195-1efe-40d1-b43e-c2efd852cd1d"],"family":["6dd02195-1efe-40d1-b43e-c2efd852cd1d","0190b835-401d-42da-9ed3-1d335d27b83c","4023e6f1-bcc1-49e5-a59f-138157b413f4"],"school":["0190b835-401d-42da-9ed3-1d335d27b83c"],"last-minute":["4023e6f1-bcc1-49e5-a59f-138157b413f4"]}}
</pre>
=={{header|Scala}}==
Line 5,187 ⟶ 5,505:
{{libheader|Wren-ioutil}}
{{libheader|Wren-trait}}
{{libheader|Wren-iterate}}
{{libheader|Wren-date}}
{{libheader|Wren-sort}}
{{libheader|Wren-str}}
Note that since Wren CLI currently has no way of determining the current date/time, a date needs to be input for each item to be added.
<syntaxhighlight lang="
import "os" for Process
import "./ioutil" for File, FileFlags, FileUtil
import "./trait" for Comparable
import "./
import "./
import "./
import "./str" for Str
var fileName = "
Date.default = Date.isoDate
Line 5,223 ⟶ 5,543:
System.print("""
Usage:
wren
add add item name and date, followed by optional category
latest print item with latest date, followed by optional category
Line 5,314 ⟶ 5,634:
Sample session:
<pre>
$ wren
$ wren
$ wren
$ wren
$ wren
$ wren
item5, 2021-07-01, cat3
$ wren
item2, 2021-04-01, none
$ wren
There are no items for category 'cat4'.
$ wren
item1, 2021-03-01, none
item2, 2021-04-01, none
Line 5,336 ⟶ 5,656:
{{libheader|Wren-table}}
The above module provides a more generic way to create simple databases and was not available when the first version was written.
<syntaxhighlight lang="
import "./table" for Table, FieldInfo, File
import "./str" for Str
Line 5,343 ⟶ 5,663:
System.print("""
Usage:
wren
add add item name and date, followed by optional category
latest print item with latest date, followed by optional category
Line 5,379 ⟶ 5,699:
// create a new Table object
var tableName = "
var table
if (Table.fileExists(tableName)) {
Line 5,407 ⟶ 5,727:
{{out}}
<pre>
$ wren
$ wren
$ wren
$ wren
$ wren
$ wren
[item5, 2021-07-01, cat3]
$ wren
[item2, 2021-04-01, none]
$ wren
There are no records for category 'cat4'.
$ wren
Records in '
name date category
Line 5,427 ⟶ 5,747:
item3 2021-05-01 cat3
item4 2021-06-01 cat3
item5 2021-07-01 cat3
</pre>
| |||