DATEC IN DATE
, PLCODE IN NUMBER
) AS into «Copy» («cNumber», ISBN, «plCode», «cCost», «cDate», «cLost») (0, ISBN_, PLCODE, PRICE, DATEC, 0); PROCEDURE_INS_COPY; OR REPLACE PROCEDURE PROCEDURE_ADD_SECTION
(_ IN CHAR
, SECTION IN NUMBER
) AS into «saved» («SCode», ISBN) (SECTION, ISBN_); PROCEDURE_ADD_SECTION; OR REPLACE PROCEDURE PROCEDURE_EDIT_COPY
(_ IN CHAR
, PRICE IN NUMBER
, CDATE IN DATE
, SECTION IN VARCHAR2
, RACK IN NUMBER
, SHELF IN NUMBER
, SECTOR IN VARCHAR2
) AS number (38,0); P. «plCode» into num from «Place» PP. «PlSection» =SECTION AND P. «plRack» =RACK AND P. «plShelf» =SHELF AND P. «plSector» =SECTOR; (num IS NOT NULL) then «Copy» SET «plCode» =Num, «cCost» =PRICE, «cDate» =CDATEisbn=ISBN_;; into «Place» («plCode», «plSection», «plRack», «plShelf», «plSector») (0, SECTION, RACK, SHELF, SECTOR); « ; Copy » SET «plCode» =(Select max («plCode») from «Place»), «cCost» =PRICE, «cDate» =CDATE isbn=ISBN_;; end if; PROCEDURE_EDIT_COPY; OR REPLACE PROCEDURE PROCEDURE_EDIT_BOOK
(_ IN CHAR
, BNAME IN VARCHAR2
, AUTHOR IN VARCHAR2
, PLACE IN VARCHAR2
, PUBLISH IN VARCHAR2
, BYEAR IN NUMBER
, PAGES IN NUMBER
) AS «Book» SET «bName» =BNAME, «bAuthor» =AUTHOR, «bPlace» =PLACE, «bPublish» =PUBLISH, «bYear» =BYEAR, «bPages» =PAGESisbn=isbn_; PROCEDURE_EDIT_BOOK; OR REPLACE PROCEDURE PROCEDURE_EDIT_READER
(IN NUMBER
, RNAME IN VARCHAR2
, ADDRESS IN VARCHAR2
, PHONE IN NUMBER
, BDATE IN DATE
) AS «Reader» SET «rFullName» =RNAME, «rAddress» =ADDRESS, «rPhone» =PHONE, «rData» =BDATE «rNumber» =Rid; PROCEDURE_EDIT_READER;
Додаток 3
Тексти основних модулів програми
Клас ProgramSystem;System.Collections.Generic;System.Linq;System.Threading.Tasks;System.Windows.Forms;System.Data.OracleClient;DBLibrary
{class Program
{
/ / /
/ / / Головна точка входу для програми.
/ / /
[STAThread] void Main ()
{. EnableVisualStyles ();. SetCompatibleTextRenderingDefault (false); OC=new OracleConnection ();. ConnectionString=«Data source=XE; User id=system; Password=2310823 »;
{. Open ();
} (Exception ex)
{. Show («Failed!» + ex.Message); final;
}
{(true)
{SM=new SelectMode ();. ShowDialog (); (SM.DialogResult == DialogResult.Yes). Run (new AReader (OC)); if (SM.DialogResult == DialogResult. No). Run (new Librarian (OC)); if (SM.DialogResult == DialogResult.Ignore). Run (new Administration (OC));;
}
