計(jì)算機(jī)專業(yè)應(yīng)用本學(xué)期的上課安排1~7周，每周4節(jié)。共28個(gè)學(xué)時(shí)。第10周提交系統(tǒng)及說明文檔。上機(jī)內(nèi)容1主要內(nèi)容作業(yè)存在的問題講評(píng)1、數(shù)據(jù)庫中表字段的設(shè)置問題銷售日記表（數(shù)量，單價(jià)，折扣）系統(tǒng)用戶表（權(quán)限）2、數(shù)據(jù)表和自由表問題數(shù)據(jù)表（員工，銷售日記，商品，供應(yīng)商）自由表（訪問登記，系統(tǒng)用戶）3、頂層表單的設(shè)置問題。本學(xué)期的主要內(nèi)容完成系統(tǒng)的后面三部分

1）查詢統(tǒng)計(jì)系統(tǒng)服務(wù)（數(shù)據(jù)備份，數(shù)據(jù)恢復(fù)，數(shù)據(jù)的初始化）添加瀏覽修改查詢統(tǒng)計(jì)系統(tǒng)服務(wù)員工信息瀏覽信息瀏覽修改3名稱查詢員工銷售額文件備份銷售日記查詢修改3日期查詢商品銷售額文件恢復(fù)3商品瀏覽刪除3商品查詢?cè)落N售額修改系統(tǒng)用戶2,3經(jīng)銷商經(jīng)銷商查詢經(jīng)銷商銷售額退出系統(tǒng)系統(tǒng)用戶2,3鈔卡分類查詢鈔卡分類匯總知識(shí)點(diǎn)回顧。1、SQL中select語句的使用。select

目標(biāo)子句from 范圍子句where

條件子句group

by

分組子句having

分組篩選order

by 排序子句into

dbf/cursor(結(jié)果去向）查詢內(nèi)容設(shè)置。1、按名稱查詢

功能要求：出現(xiàn)一個(gè)表單,按員工姓名查詢結(jié)果的清單/匯總,在表格grid顯示查詢結(jié)果n=bo1.valuedo

casecase

thisform.optiongroup1.value=1?thisform.grid1.recordsource="select姓名,銷售日記.*from員工,銷售日記

where員工.員工編號(hào)=銷售日記.員工編號(hào)

and員工.姓名=n

intocursor

d1"case

thisform.optiongroup1.value=2

thisform.grid1.recordsource="select

sum(數(shù)量*單價(jià)*折扣)as總銷售額from員工,銷售日記

where員工.姓名=n

and員工.員工編號(hào)=銷售日記.員工編號(hào) into

cursor

d1"?endcasethisform.refresh查詢按鈕的參考代碼：2、按日期查詢

功能要求：出現(xiàn)一個(gè)表單,按日期(年/月/日)查詢結(jié)果的清單/匯總,在表格grid顯示查詢結(jié)果查詢按鈕的參考代碼：do

casecase

thisform.optiongroup1.value=1????????????????if

thisform.check1.value=1

y=thisform.spinner1.value

if

thisform.check2.value=1m=thisform.spinner2.valueif

thisform.check3.value=1

d=thisform.spinner3.valuethisform.grid1.recordsource="select

*

from銷售日記where

year(銷售日期)=y

and

month(銷售日期)=m

and

day(銷售日期)=d

into

curselsethisform.grid1.recordsource="select

*

from銷售日記where

year(銷售日期)=y

and

month(銷售日期)=m

into

cursor

d1"endifelsethisform.grid1.recordsource="select

*

from銷售日記where

year(銷售日期)=y

into

cursor

d1"endifendifcase

thisform.optiongroup1.value=2??if

thisform.check1.value=1

y=thisform.spinner1.value?????if

thisform.check2.value=1

m=thisform.spinner2.value

if

thisform.check3.value=1

d=thisform.spinner3.valuethisform.grid1.recordsource="select

sum(數(shù)量*單價(jià)*折扣)as總銷售額from銷售日記where

year(銷售日期)=y

and

month(銷售日期)=day(銷售日期)=d

into

cursor

d1"elsethisform.grid1.recordsource="select

sum(數(shù)量*單價(jià)*折扣)as總銷售額from銷售日記where

year(銷售日期)=y

and

month(銷售日期)=mcursor

d1"endifelsethisform.grid1.recordsource="select

sum(數(shù)量*單價(jià)*折扣)as總銷售額from銷售日記where

year(銷售日期)=y

into

cursor

d1"endifendif???????????endcasethisform.refresh3、按商品查詢

功能要求：出現(xiàn)一個(gè)表單,按商品名稱查詢

結(jié)果的清單/匯總,,在表格grid顯示查詢結(jié)果)n=bo1.valueselect編碼

as

n1

from商品

where名稱=n

into

cursor

den1=alltrim(n1)do

casecase

thisform.optiongroup1.value=2??thisform.grid1.recordsource="select

*

from銷售日記

where

alltrim(商品=n1

into

cursor

d1"case

thisform.optiongroup1.value=1

thisform.grid1.recordsource="select

sum(數(shù)量*單價(jià)*折扣)as總銷售額from銷售日記

where商品=n1

into

cursor

d1"?endcasethisform.refresh?4、按經(jīng)銷商查詢

出現(xiàn)一個(gè)表單,按經(jīng)銷商查詢結(jié)果的清單/匯總,在表格grid顯示查詢結(jié)果)5、按鈔卡分類查詢

出現(xiàn)一個(gè)表單,按鈔或卡查詢,在表格grid顯示查詢結(jié)果)查詢按鈕的參考代碼n1=bo1.valuedo

casecase

thisform.optiongroup1.value=1??thisform.grid1.recordsource="select

*

from銷售日記

where鈔卡=n1

into

cursor

d1"case

thisform.optiongroup1.value=2?thisform.grid1.recordsource="select

sum(數(shù)量*單價(jià)*折扣)as總銷售額

from銷售日記

where鈔卡=n1

into

cursor

d1"?endcasethisform.refresh本查詢子系統(tǒng)的設(shè)計(jì)要求1、至少完成題目要求的5個(gè)查詢表單 2、每個(gè)表單的設(shè)計(jì)界面由設(shè)計(jì)者自由決定，只要完成要求的特定功能即可。 3、該子菜單完成后，能夠掛在系統(tǒng)菜單上運(yùn)行。本周完成查詢子菜單的設(shè)計(jì)。統(tǒng)計(jì)子菜單的設(shè)計(jì)添加瀏覽修改查詢統(tǒng)計(jì)系統(tǒng)服務(wù)員工信息瀏覽信息瀏覽修改3名稱查詢員工銷售額文件備份銷售日記查詢修改3日期查詢商品銷售額文件恢復(fù)3商品瀏覽刪除3商品查詢?cè)落N售額修改系統(tǒng)用戶2,3經(jīng)銷商經(jīng)銷商查詢經(jīng)銷商銷售額退出系統(tǒng)系統(tǒng)用戶2,3鈔卡分類查詢知識(shí)點(diǎn)回顧:報(bào)表的設(shè)計(jì)1、報(bào)表的組成：數(shù)據(jù)源和報(bào)表布局?jǐn)?shù)據(jù)源：數(shù)據(jù)的來源查詢結(jié)果產(chǎn)生的表作為報(bào)表的數(shù)據(jù)源員工銷售額統(tǒng)計(jì)功能要求：

出現(xiàn)一個(gè)表單,按員工姓名查詢結(jié)果的清單/匯總,在表格grid顯示查詢結(jié)果，查詢結(jié)果并能用報(bào)表形式打印、預(yù)覽)設(shè)計(jì)的基本思路：1）完成“統(tǒng)計(jì)”按鈕的功能2）根據(jù)查詢結(jié)果所產(chǎn)生的表，建立報(bào)表。

3）根據(jù)所建立的報(bào)表設(shè)計(jì)預(yù)覽按鈕的實(shí)現(xiàn)代碼。Grid1表格控件的設(shè)計(jì)Recordsourcetype=0—表public

jjn=alltrim(bo1.value)

do

casecase

thisform.optiongroup1.value=1select員工編號(hào)

as

nb

from員工

where姓名=n

into

cursor

bjj=nbselect銷售日記locatefor員工編號(hào)=jjif

found()select姓名,銷售日記.*

from員工,銷售日記

where員工.員工編號(hào)=銷售日記.員工編號(hào)

and員工.姓名=n

into

dbf

d1thisform.grid1.recordsource="d1"elsemessagebox("沒有該員工的銷售記錄")endifcase

thisform.optiongroup1.value=2select姓名,sum(數(shù)量*單價(jià)*折扣)as總銷售額

from員工,銷售日記

where員工.員工編號(hào)=銷售日記.員工編號(hào)

and員工.姓名=n

into

dbf

d2thisform.grid1.recordsource="d2"

endcasethisform.refresh統(tǒng)計(jì)按鈕的關(guān)鍵代碼：“預(yù)覽”按鈕代碼設(shè)計(jì)if

thisform.optiongroup1.value=1

（清單)report

form員工銷售額.frx

previewElse

(統(tǒng)計(jì))report

form員工銷售額總計(jì).frx

previewendifreturn報(bào)表的輸出一般格式：report

form1、輸出到打印機(jī)：report

form報(bào)表文件名to

printer

noconsole[noconsole]：在向打印機(jī)輸出時(shí)，不同時(shí)向VFP主窗口輸出。2、預(yù)覽報(bào)表：report

form報(bào)表文件名preview3、輸出報(bào)表到文件中。report

form報(bào)表文件名to

file文件名ASCIInoconsole

nodialog商品銷售額統(tǒng)計(jì)功能要求：

出現(xiàn)一個(gè)表單,按商品名稱查詢結(jié)果的清單/匯總,在表格grid顯示查詢結(jié)果，查詢結(jié)果并能用報(bào)表形式打印)月銷售額統(tǒng)計(jì)出現(xiàn)一個(gè)表單,按銷售的月份查詢結(jié)果的清單/匯總,在表格grid顯示查詢結(jié)果，查詢結(jié)果并能用報(bào)表形式打印經(jīng)銷商銷售額統(tǒng)計(jì)出現(xiàn)一個(gè)表單,按經(jīng)銷商查詢結(jié)果的清單/匯總,在表格grid顯示查詢結(jié)果，查詢結(jié)果并能用報(bào)表形式打印name=bo1.value

do

casecase

thisform.optiongroup1.value=1select經(jīng)銷商.編號(hào)

as經(jīng)銷商編號(hào),經(jīng)銷商.名稱

as經(jīng)銷商名,商品.編碼

as商品編碼,商品.名稱

as商品名,銷售日期,單價(jià),折扣;from經(jīng)銷商,商品,銷售日記;where經(jīng)銷商.編號(hào)=銷售日記.經(jīng)銷商and商品.編碼=銷售日記.商品

and經(jīng)銷商.名稱=name;into

dbf

j1thisform.grid1.recordsource="j1"

thisform.refreshcase

thisform.optiongroup1.value=2select經(jīng)銷商.編號(hào)

as經(jīng)銷商編號(hào),經(jīng)銷商.名稱

as經(jīng)銷商名,sum(單價(jià)*折扣*數(shù)量)as總銷售額;from經(jīng)銷商,商品,銷售日記;where經(jīng)銷商.編號(hào)=銷售日記.經(jīng)銷商and商品.編碼=銷售日記.商品

and經(jīng)銷商.名稱=name;into

dbf

j2thisform.grid1.recordsource="j2"

endcasethisform.refresh查詢按鈕、統(tǒng)計(jì)按鈕的關(guān)鍵代碼本統(tǒng)計(jì)子系統(tǒng)的設(shè)計(jì)要求1、至少完成題目要求的4個(gè)統(tǒng)計(jì)表單 2、每個(gè)表單的設(shè)計(jì)界面由設(shè)計(jì)者自由決定，只要完成要求的特定功能即可。 3、該子菜單完成后，能夠掛在系統(tǒng)菜單上運(yùn)行。（注意每個(gè)表單的showwindows屬性設(shè)置）本周完成統(tǒng)計(jì)子菜單的設(shè)計(jì)。系統(tǒng)服務(wù)子菜單的設(shè)計(jì)添加瀏覽修改查詢統(tǒng)計(jì)系統(tǒng)服務(wù)員工信息瀏覽信息瀏覽修改3名稱查詢員工銷售額文件備份銷售日記查詢修改3日期查詢商品銷售額文件恢復(fù)3商品瀏覽刪除3商品查詢?cè)落N售額修改系統(tǒng)用戶2,3經(jīng)銷商經(jīng)銷商查詢經(jīng)銷商銷售額退出系統(tǒng)系統(tǒng)用戶2,3鈔卡分類查詢知識(shí)點(diǎn)回顧：文件的復(fù)制：

Copy

to<文件名>[fields<字段名表>][for<條件>][xls]

功能：將當(dāng)前表中的數(shù)據(jù)與結(jié)構(gòu)同時(shí)復(fù)制到指定的表中。即復(fù)制一個(gè)新的表。各種類型文件的復(fù)制Copy

file<源文件名>to<目標(biāo)文件名>從其它文件向表添加數(shù)據(jù)Append

from<文件名>某些函數(shù)的使用1）getdir():顯示“選擇目錄”對(duì)話框2）empty()：測試一個(gè)表達(dá)式的值是否為空

3）getfile():顯示“打開”對(duì)話框，返回選定件的名稱。4）SYS（5）:默認(rèn)驅(qū)動(dòng)器。5)SYS（2003）：當(dāng)前目錄或文件夾。

6）directory():若在磁盤上存在指定的目錄，回為“真”,否則為“假”7.Md創(chuàng)建一個(gè)新目錄數(shù)據(jù)表的備份單表備份設(shè)計(jì)的基本思路：表單的數(shù)據(jù)環(huán)境：加載要進(jìn)行數(shù)據(jù)備份的表1）選擇要進(jìn)行備份的數(shù)據(jù)表

2）設(shè)置要備份的目的地及備份所產(chǎn)生的新表文件名3）發(fā)出備份命令Rowsourcetype=1—值關(guān)鍵代碼及主要功能：“瀏覽”按鈕：fpath=alltrim(getdir(sys(5)+sys(2003)))h=str(year(date()),4)+alltrim(str(month(date()),2))+alltrim(str(day(date(

thisform.text1.value=fpath+fname++hfilename=fpath+fname+h代碼說明：filename,fname變量為全局變量public

filename,fnamefname為列表框中所選擇的表名fname=thisform.list1.valuefilename為備份后所產(chǎn)生的新表名，其名字為原來的表名+備份的日期“備份”按鈕的關(guān)鍵代碼：if

empty(thisform.list1.value)or

empty(thisform.text1.value)orempty(thisform.list2.value)

y=messagebox("請(qǐng)選擇備份文件夾的保存路徑、文件名、文件類型！")return

.f.elsedo

casecase thisform.list1.value="員工"select員工case thisform.list1.value="商品"select 商品case thisform.list1.value="經(jīng)銷商"select 經(jīng)銷商case

thisform.list1.value="銷售日記"select銷售日記endcaseif

thisform.list2.value="DBF"

copy

to

&filename

messagebox("備份成功")elsecopy

to

&filename

xls

messagebox("備份成功")endifendif所有表的備份設(shè)計(jì)的基本思路：同類型的文件一次性備份基本過程1）設(shè)置源文件的位置2）設(shè)置目標(biāo)文件的位置3）發(fā)出備份命令第一個(gè)按鈕的主要作用及代碼：該按鈕主要是調(diào)出系統(tǒng)對(duì)話框，設(shè)置要備份文件的所在路徑public

mypathmypath=alltrim(getdir())thisform.text1.value=mypath第二按鈕的主要作用及代碼：該按鈕主要是設(shè)置備份后文件的存放目錄public

outpathoutpath=alltrim(getdir(sys(5)+sys(2003)+"\BAK\","備份路徑"))this.parent.text2.value=outpathdirs=sys(5)+sys(2003)set

defa

to

&dirsmypath=alltrim(thisform.text1.value)if

empty(thisform.text1.value)=.t.or

empty(thisform.text2.value)

messagebox("備份數(shù)據(jù)庫名和路徑不能為空!",16,"系統(tǒng)提示")return

.f.endifoutpath=alltrim(thisform.text2.value)

if

directory(outpath)=.f.if

messagebox("要?jiǎng)?chuàng)建新目錄",4+32,"系統(tǒng)提示")=6md

&outpathelsemessagebox("請(qǐng)選擇備份的目錄","系統(tǒng)提示")return

.f.endifendifmypath1=mypath+"*.fpt"outpath1=outpath+"*.fpt"

mypath=mypath+"*.dbf"outpath=outpath+"*.dbf"copy

file

&mypath.to

&outpath.&&文件拷貝命令,其中,mypath要復(fù)制的源文件名,outpath要復(fù)制的目的文件名copy

file

&mypath1.to

&outpath1.messagebox("備份成功","系統(tǒng)提示")thisform.refresh備份按鈕的關(guān)鍵代碼數(shù)據(jù)表的恢復(fù)表單的load事件public

fname1public

fname2dirs=sys(5)+sys(2003)set

defa

to

&dirs列表框的主要屬性及事件代碼Rowsourcetype

1---值Click代碼：do

casecase

this.value="員工"select員工case

this.value="銷售日記"select銷售日記case

this.value="商品"select商品case

this.value="經(jīng)銷商"select經(jīng)銷商endcase?第一個(gè)“瀏覽”按鈕的代碼：fname2=alltrim(getfile(sys(5)+sys(2003)thisform.text2.value=fname2thisform.refresh第2個(gè)瀏覽按鈕的關(guān)鍵代碼：fname1=alltrim(getfile())thisform.te