超市會員管理系統(tǒng)課程設(shè)計實驗報告(編輯修改稿)
2025-01-20 16:28 本頁面
【文章內(nèi)容簡介】 oney, youhui char(5) not null ) （ 3）商品信息表 create table 商品記錄 (barcode varchar(20) not null primary key, unitprice money not null, goodname varchar(20), goodnum int, goodsort varchar(10) ) （ 4）消費記錄表 create table 消費記錄 (expid varchar(10) not null primary key, expprice money, exptime datetime, barcode varchar(20) not null foreign key references 商品記錄 (barcode), expnum int, cardno char(10) not null foreign key references 會員卡(cardno) ) （ 5）會員信息表 create table 會員信息 (vipno char(10) not null primary key, vipname char(10) not null, sex char(6) check(sex=39。男 39。 or sex=39。女 39。), telephone varchar(20) unique, cardno char(10) foreign key references 會員卡 (cardno), idcard char(18) not null ) log on (name=會員管理系統(tǒng) _log, filename=39。f:\數(shù)據(jù)庫 \數(shù)據(jù)庫課程設(shè)計 \會員管理系統(tǒng) \會員管理系統(tǒng)39。, size=500, maxsize=unlimited, filegrowth=5 ) //會員卡索引 create unique index 會員 _卡號 on 會員卡 (cardno) create unique index 會員 _積分 on 會員卡 (jifen asc) //商品記錄索引 create unique index 商品 _名稱 on 商品記錄 (goodname) create unique index 商品 _條形碼 on 商品記錄 (barcode asc) //消費信息索引 create unique index 消費 _編號 on 消費記錄 (expid) //會員信息索引 create unique index 會員 _姓名 on 會員信息 (vipname) create unique index 會員 _電話 on 會員信息 (telephone) 視圖 1： create view 積分查詢 as select 會員信息 .vipno,會員信息 .vipname,會員卡 .cardno ,會員卡 .jifen,消費記錄 .expid,消費記錄 .expprice, 消費記錄 .expnum,消費記錄 .exptime from 會員卡 ,會員信息 ,消費記錄 where 會員卡 .cardno=會 員信息 .cardno and 會員卡 .cardno=消費記錄 .cardno 視圖 2： create view 會員信息視圖 as select 會員信息 .vipno, 會員信息 .vipname, 會員信息 .sex, 會員信息 .telephone,會員信息 .cardno,會員信息 .idcard, 會員卡 .regtime,會員卡 .jifen,會員卡 .gradeid from 會員信息 ,會員卡 where 會員卡 .cardno=會員信息 .cardno 視圖 3： create view 消費記錄視圖 as select 會員卡 .cardno,會員卡 .topprice, 商品記錄 .goodname,商品記錄 .unitprice,消費記錄 .expnum,消費記錄 .expprice,消費記錄 .exptime,消費記錄 .barcode, 商品記錄 .goodnum,商品記錄 .goodsort from 會員卡 ,消費記錄 ,商品記錄 where 會員卡 .cardno=消費記錄 .cardno and 消費記錄 .barcode=商品記錄 .barcode。 登陸界面： 用戶界面 : (1)登陸界面代碼 Private Sub Command1_Click() 39。檢查密碼正確 On Error GoTo err Dim name As String Dim pass As String name = pass = If name = Then MsgBox 您還沒有選擇用戶名！ , , 提示 Exit Sub End If Set = = select vipname from 會員信息 where vipname= + 3
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1