[em7]我的程序连不上数据库了 请帮我连上吧 我的数据库用Sql 2000
Save Format v3.0(19990112)
@begin Unchecked
@end;
@begin Targets
0 "lib.pbt";
@end;
DefaultTarget "lib.pbt";
DefaultRemoteTarget "lib.pbt";


Save Format v3.0(19990112)
appname "lib";
applib "lib.pbl";
liblist "lib.pbl";
type "pb";

CREATE TABLE HXH.user_Info1
(
    user_ID VARCHAR2 (10) NOT NULL ,
    user_PWD VARCHAR2 (10) NOT NULL ,
    user_Des VARCHAR2 (20),
    CONSTRAINT user_ID_PK1  PRIMARY KEY (User_ID)
)
TABLESPACE "USER_DATA";
1.3.2  创建读者种类信息表格readertype
CREATE TABLE HXH.readertype
(
    typeno VARCHAR2(10) NOT NULL ,
    typename VARCHAR2(10) NOT NULL ,
    booknumber numeric(4, 0) NULL ,
    bookdays numeric(4, 0) NULL ,
    userfullife numeric(5, 0) NULL ,
    memo VARCHAR2(200) NULL,
    CONSTRAINT readertype_typeno_PK  PRIMARY KEY (typeno)
)
TABLESPACE "USER_DATA";
1.3.3  创建读者信息表格readers
CREATE TABLE HXH.readers
(
    readerno VARCHAR2(10) NOT NULL ,
    readername VARCHAR2(20) NULL ,
    readersex VARCHAR2(3) NULL ,
    readertype VARCHAR2(10) NULL ,
    readerdep VARCHAR2(40) NULL ,
    address VARCHAR2(40) NULL ,
    readertel VARCHAR2(20) NULL ,
    email VARCHAR2(20)  NULL ,
    checkdate date NULL ,
    readermemo VARCHAR2(100) NULL,
    CONSTRAINT readers_readerno_PK PRIMARY KEY (readerno)
)
TABLESPACE "USER_DATA";
1.3.4  创建书籍类别信息信息表booktype
CREATE TABLE HXH.booktype
(
    booktypeno VARCHAR2(10)  NOT NULL ,
    typename VARCHAR2(20)  NULL ,
    keyword VARCHAR2(20)  NULL ,
    memo VARCHAR2(200)  NULL ,
    CONSTRAINT booktype_booktypeno_PK PRIMARY KEY (booktypeno)
)
TABLESPACE "USER_DATA";
1.3.5  创建书籍信息表books
CREATE TABLE HXH.books
(
    bookid VARCHAR2(14)  NOT NULL ,
    bookname VARCHAR2(40)  NOT NULL ,
    booktype VARCHAR2(20)   NULL ,
    bookauthor VARCHAR2(20)  NULL ,
    bookpub VARCHAR2(20)  NULL ,
    bookpubdate date NULL ,
    bookpages numeric(5, 0) NULL ,
    bookkeyword VARCHAR2(10)  NULL ,
    bookindate date NULL ,
    putup VARCHAR2(10)  NULL ,
    bookmemo VARCHAR2(200)  NULL,
    CONSTRAINT books_bookid_PK PRIMARY KEY (bookid)
)
TABLESPACE "USER_DATA";
1.3.6  创建借阅信息表borrowinfo
CREATE TABLE HXH.borrowinfo
(
    borrowno VARCHAR2(14)  NOT NULL ,
    readerid VARCHAR2(10)  NULL,
    readername VARCHAR2(20)  NULL ,
    bookid VARCHAR2(14)  NULL ,
    bookname VARCHAR2(40)  NULL ,
    borrowdate date NULL ,
    returndate date NULL ,
    memo VARCHAR2(200)  NULL ,
    CONSTRAINT borrowinfo_borrowno_PK PRIMARY KEY (borrowno)
)
TABLESPACE "USER_DATA";