【正文】 。你必須努力，當(dāng)有一天驀然回首時，你的回憶里才會多一些色彩斑斕，少一些蒼白無力。4. 歲月是無情的，假如你丟給它的是一片空白，它還給你的也是一片空白。既糾結(jié)了自己，又打擾了別人。用一些事情，總會看清一些人。2. 若不是心寬似海，哪有人生風(fēng)平浪靜。實(shí)現(xiàn)了對大規(guī)模數(shù)據(jù)流的控制與管理，為開發(fā)其它物流管理系統(tǒng)提供了很好的框架，對使用數(shù)據(jù)庫工具開發(fā)各類系統(tǒng)也有了深刻的認(rèn)識。在系統(tǒng)創(chuàng)造好并且第一次運(yùn)行時，將自動出現(xiàn)在該系統(tǒng)中。只有人為的在數(shù)據(jù)庫中添加一個用戶，才能開始使用此系統(tǒng)。 本系統(tǒng)的另一個問題是系統(tǒng)管理模塊的操作員管理，如果是首次使用此系統(tǒng)，會出現(xiàn)一個沒有初始用戶的問題。但這樣也會對計(jì)算機(jī)系統(tǒng)本身的安全性造成一定的影響。由于本系統(tǒng)目前只針對單機(jī)的使用，因此并沒有采用前臺與后臺的數(shù)據(jù)連接方式來構(gòu)造系統(tǒng)。obj 以上就能夠?qū)崿F(xiàn)數(shù)據(jù)的恢復(fù)與備份。source 或者 copy file amp。取出原數(shù)據(jù)庫文件所在的路徑賦值給變量obj=alltrim()+*.*在進(jìn)行備份或恢復(fù)功能，方法一樣，只是原文件與目標(biāo)文件相反copy file amp。把 progressbar 控件的屬性值賦給 progressbar 控件的值source=sys(5)+sys(2022)+\database\*.* amp。= amp。 圖 9. 數(shù)據(jù)備份進(jìn)行上述兩個功能時，需要關(guān)閉所有的數(shù)據(jù)庫文件，可以利用 close all 語句來實(shí)現(xiàn)。同在查詢選擇時介紹的方法一樣，用下了語句判斷是否選擇此系統(tǒng)功能： =1 表示該功能被選。amp。amp。amp。amp。amp。439。amp。339。amp。239。amp。amp。39。權(quán)限管理39。級別 1 為系統(tǒng)管理員，不能有多個，請重新輸入！39。amp。amp。因此有可能出現(xiàn)等級為 4 的人員，卻能實(shí)現(xiàn)等級 2 和 3 都不能使用的功能模塊。這三類等級的人員權(quán)限均不可改。. . . . 圖 8. 權(quán)限管理界面本系統(tǒng)的權(quán)限管理共分四個等級，分別為 1，2，3，4 級別，等級 1的級別最高，屬于系統(tǒng)管理員等級，且只有一個，能使用各種功能系統(tǒng)。也就是不同的用戶擁有不同的權(quán)限。 上述功能實(shí)現(xiàn)與前面所講的登陸確認(rèn)功能相似，當(dāng)身份的到確認(rèn)的時候，下面的功能就實(shí)現(xiàn)了密碼的修改確認(rèn)。 如果人員的名字無誤，則原密碼進(jìn)行比較，同樣若密碼不正確，同樣顯示修改失敗 if alltrim()!=ppassword cmessagetext=39。字符精確比較如果所修改的人員不為表中所擁有的，顯示錯誤：. . . .if alltrim()!=ame cMessagetext=39。快速查詢set exact on amp。其中用戶的增加，刪除，修改與可修改類模塊實(shí)現(xiàn)的功能相似，對于“密碼修改確定”功能可以采用以下方法實(shí)現(xiàn)：首先要將權(quán)限表置為當(dāng)前工作區(qū)use database\tabpurview然后將操作員姓名作為索引set order to 操作員姓名 在表中查找當(dāng)前要修改密碼的人員是否為表中所含有的人員seek ame amp。 其它模塊設(shè)計(jì)在本系統(tǒng)中除了上述幾種功能模塊外，還一些關(guān)于系統(tǒng)管理的模塊設(shè)計(jì)。amp。amp。amp。amp。amp。其實(shí)，在進(jìn)行添加和保存功能介紹時，對如何實(shí)現(xiàn)這類功能已經(jīng)有了介紹，例如要想在表單的 text2 中進(jìn)行修改，只要系統(tǒng)執(zhí)行=.，同理如果=.，這種語句可以用在表單中不能修改的控件上。 可修改類模塊 可修改類模塊大部分是各類數(shù)據(jù)信息系統(tǒng)，這類模塊機(jī)查詢，登記，保存，修改等功能于一體。操作失??！39。此月已結(jié)帳，不能再進(jìn)行月結(jié)操作！39。amp。amp。/39。/39。0139。amp。amp。amp。amp。 結(jié)賬類模塊顧名思義，結(jié)賬類模塊所要實(shí)現(xiàn)的核心功能就是要結(jié)賬，本系統(tǒng)主要實(shí)現(xiàn)日結(jié)賬與月結(jié)賬功能。amp。amp。追加新記錄 如果找到了一樣的藥品，則需要將原有的藥品信息表更新，使用update 語句來實(shí)現(xiàn)。 沒有找到一樣的藥品 insert into tabkc values(,名稱,位, ,) amp。將信息存入臨時表中 如果庫存表中沒有相同的藥品，則直接將信息存入到庫存表中 if reccount()1 amp。索引為藥品編號 into cursor lindeping amp。 amp。where 藥品編號 == AND 倉庫名稱==。用循環(huán)的方法來進(jìn)行查找 select *。將指針移動到表的頂端 do while !eof() amp。對數(shù)量字段求和完成了數(shù)據(jù)信息的匯總后，我們要將信息保存到入庫票號得表中，對數(shù)據(jù)的各種信息，先設(shè)定其信息來源，如入庫票號從表單中的 text2控件中獲得： rkph= 其它的信息仿照上述格式寫，最后將信息加入到入庫票號表 tabrkph 中insert into database\tabrkph values(rkph,pzs,ccount,yf,sf,wf,gysname,date1,jsfs,sfjq,manager,jsr)最后就要完成對庫存信息的更新，首先要選擇工作區(qū)：select ltabrkdj接著，對表中的每一條信息和庫存信息表中的進(jìn)行比較，找出相同. . . .的藥品，在尋找信息的時候，以藥品編號作為索引，檢查藥品編號與倉庫名稱相同的信息： go top amp。選擇臨時入庫登記表為當(dāng)前工作區(qū) pzs=reccount() sum 數(shù)量 to ccount amp。把數(shù)據(jù)表中的記錄追加到當(dāng)前數(shù)據(jù)庫文件尾，其中 ltabrkdj 為臨時入庫信息表在數(shù)據(jù)記錄的加入后，我們需要對臨時表中的信息進(jìn)行匯總 select ltabrkdj amp。選擇 Tabrkdj 工作區(qū)為當(dāng)前工作區(qū) append from database\ltabrkdj amp。賦數(shù)據(jù)源 select tabrkdj amp。 amp。首先完成臨時表的信息保存到入庫登記表中 =39。=.f.=.t.=.t.=.f.以上代碼可以實(shí)現(xiàn)登記按鈕的功能. . . .當(dāng)所填信息完成時，我們需要單擊“保存”按鈕。amp。039。rkd39。39。39。amp。)如果入庫票號不為空，則需要先找出表中最大的票號 select max (入庫票號) from tabrkdj into array a 找到最大的票號后，需要在票號后面加 1，形成所需的新票號。+lday+39。+lmonth+39。日期信息在判斷入庫票號是否為空，如果為空，則以 0001 結(jié)尾if empty(入庫票號) set cent on =alltrim(str(year(date()),4)+39。) amp。月份. . . .信息lday=padl(alltrim(str(day(date()),2)),2,39。) amp。先選定表，這里選擇入庫登記表，將月份與日期的信息先提出select tabrkdjlmonth=padl(alltrim(str(month(date()),2)),2,39。系統(tǒng)將自動生成票號，已入庫登記為例，入庫票號由系統(tǒng)日期，字母“rkd” ，四位數(shù)字組成。自動生成票號功能是隨著登記功能的實(shí)行而啟動實(shí)現(xiàn)的。 =.t. =.t.如果上述語句=.f. 則表示不用輸入，在前面無信息輸入的時候，可以用此語句完成信息的不輸入狀態(tài)。)如果臨時表中發(fā)現(xiàn)了由數(shù)據(jù)信息存在，則開始進(jìn)行數(shù)據(jù)的錄入： =39。,48,39。記錄指針移動到最后一條記錄 messagebox(39?？招畔? go bottom amp。指針移動到表頂端 if eof() amp。查詢結(jié)果輸出到臨時表中然后我們需要實(shí)現(xiàn)將所找到的數(shù)據(jù)輸入表單的到 grid 控件，也就是我們可以清楚看到的列表中：現(xiàn)將指針移動到臨時表的頂端，如果沒有我們要找的信息，指針移動到最后一條記錄，然后顯示出無記錄的信息. . . .go top amp。 into cursor lindeping amp。 where between(出庫日期,sdate,edate)。以銷售報(bào)表為例，我們需要將所輸入的查詢時間范圍內(nèi)的所有數(shù)據(jù)線找出來，以銷售票號作為索引，將結(jié)果輸入到臨時表 Lindeping 中：select *。在設(shè)計(jì)表單類模塊的時候，關(guān)鍵是要能把所查詢的數(shù)據(jù)能夠羅列出來。amp。amp。 在系統(tǒng)中單單實(shí)現(xiàn)打印與打印預(yù)覽是很容易的，只要在表單的相應(yīng)位置寫入簡單的語句即可實(shí)現(xiàn)。我們可以通過查詢語句將符合條件的記錄存入臨時表 Lindeping 中，在對臨時表Lindeping 進(jìn)行統(tǒng)計(jì)。 fff=between(銷售日期,sdate,edate) select * from tabxsdj where amp。) 如果日期均不為空，則系統(tǒng)將查找起止日期之間的信息，將信息存入臨時表 Lindeping 以供使用。,48,39。如果是按照時間日期查詢，與條件查詢相似，時