超市管理系統(tǒng)完整版

課程設(shè)計(jì)說明書課程名稱：大型數(shù)據(jù)庫應(yīng)用計(jì)本課題名稱：超市管理系統(tǒng)班級計(jì)本041姓名：02號左文兵姓名：27號董子冰姓名：31號劉子豪指導(dǎo)教師：滿君豐副教授湖南工業(yè)大學(xué)計(jì)算機(jī)與通信學(xué)院2007年12月20日課程設(shè)計(jì)檢查表課程設(shè)計(jì)檢查表.書簽錯誤！未定目錄1緒論1.1課題背景1.2系統(tǒng)開發(fā)關(guān)鍵技術(shù)介紹系統(tǒng)分析.2.1用戶工作流程.2.2用戶業(yè)務(wù)需求.系統(tǒng)設(shè)計(jì).3.1設(shè)計(jì)思想3.2系統(tǒng)功能結(jié)構(gòu)圖3.3模塊功能設(shè)計(jì).系統(tǒng)數(shù)據(jù)庫設(shè)計(jì).TOC\o"1-5"\h\z4.1系統(tǒng)數(shù)據(jù)庫的建立74.2系統(tǒng)E-R圖74.3各個數(shù)據(jù)表的創(chuàng)建94.4存儲過程設(shè)計(jì)114.5數(shù)據(jù)庫的連接115系統(tǒng)實(shí)現(xiàn)135.1系統(tǒng)實(shí)現(xiàn)工具與支持平臺135.2系統(tǒng)界面135.3系統(tǒng)主要功能實(shí)現(xiàn)161.前臺162.后臺175.4系統(tǒng)核心代碼176總結(jié)與展望216.1收獲與體會216.2未來的展望21參考文獻(xiàn).錯誤！未定義書致謝參考文獻(xiàn).錯誤！未定義書致謝.簽錯誤！未定義緒論1.1課題背景21世紀(jì)，超市的競爭也進(jìn)入到了一個全新的領(lǐng)域，隨著超市的發(fā)展，其經(jīng)營管理也變得愈加復(fù)雜，迫切地需要引入新的管理技術(shù)。超市形態(tài)的高速發(fā)展，其經(jīng)營管理也變得愈加復(fù)雜，日常所需要處理的數(shù)據(jù)量也逐漸增大，商業(yè)運(yùn)轉(zhuǎn)的中間環(huán)節(jié)也越來越多，原始的人工管理已無法應(yīng)對這復(fù)雜的市場。超市需要處理大量的庫存信息，還要時刻更新產(chǎn)品的銷售信息，不斷添加商品信息。競爭已不再是規(guī)模的競爭，而是技術(shù)的競爭、管理的競爭、人才的競爭。技術(shù)的提升和管理的升級是超市業(yè)的競爭核心。零售領(lǐng)域目前呈多元發(fā)展趨勢，多種業(yè)態(tài)：超市、倉儲店、便利店、特許加盟店、專賣店、貨倉等相互并存。如何在激烈的競爭中擴(kuò)大銷售額、降低經(jīng)營成本、擴(kuò)大經(jīng)營規(guī)模，成為超市營業(yè)者努力追求的目標(biāo)。為了大大提高超市的運(yùn)作效率；通過全面的信息采集和處理，輔助提高超市的決策水平；使用本系統(tǒng)，可以迅速提升超市的管理水平，為降低經(jīng)營成本，提高效益，增強(qiáng)超市擴(kuò)張力，提供有效的技術(shù)保障。針對超市的特點(diǎn)，為了幫助超市解決現(xiàn)在面臨的問題，提高小型超市的競爭力，我們將開發(fā)以下系統(tǒng)：前臺POS銷售系統(tǒng)、后臺管理系統(tǒng)，其中這兩個子系統(tǒng)又包含其它一些子功能。1.2系統(tǒng)開發(fā)關(guān)鍵技術(shù)介紹本系統(tǒng)采用的是微軟公司的MicrosoftVisualBasic6.0開發(fā)工具做為開發(fā)系統(tǒng)程序。在連接數(shù)據(jù)庫上，利用AD0對象模型，創(chuàng)建幾個簡單的對象和數(shù)據(jù)來源進(jìn)行連接，然后從中取得所需要的數(shù)據(jù)，進(jìn)行數(shù)據(jù)訪問操作后保存。在連接數(shù)據(jù)庫上，以往在數(shù)據(jù)訪問應(yīng)用程序開發(fā)中，不管是使用DAO或RDO對象來訪問數(shù)據(jù)來源，都會對這些對象模型眾多而且復(fù)雜的組成結(jié)構(gòu)印象深刻。但利用ADO對象模型，就可以只創(chuàng)建幾個簡單的對象和數(shù)據(jù)來源進(jìn)行連接，然后從中取得所需要的數(shù)據(jù)，進(jìn)行數(shù)據(jù)訪問操作后保存。ADO(ActiveXDataObjects)對象模型主要由三個對象成員：Connection、Command與Recordset對象；以及三個集合對象：Errors、Parameters與Fields對象所組成。ADO對象模型與DAO、RDO另一個較大的差異，在于某些ADO對象可以直接創(chuàng)建而不需依據(jù)上下層按順序產(chǎn)生，比如我們可以直接創(chuàng)建一個Command對象而不需要先行創(chuàng)建該對象的上層Connection對象，ADO會在該Comman對d象產(chǎn)生時自動創(chuàng)建上層Connection對象。下面給出ADO對象間的關(guān)系下面給出ADO對象間的關(guān)系（如下圖1）:圖1.2ADO對象關(guān)系對象和集合的功能描述：Connection對象和集合的功能描述：Connection對象Command對象Recordset對象Errors集合對象Parameters集合對象Fields集合對象連接數(shù)據(jù)來源從數(shù)據(jù)來源取得所需的數(shù)據(jù)針對取出的數(shù)據(jù)進(jìn)行處理返回錯誤信息和其他信息執(zhí)行SQL查詢獲取和處理字段數(shù)據(jù)2系統(tǒng)分析2.1用戶工作流程本系統(tǒng)主要解決超市的基本管理問題，其中又分別包括后臺管理和前臺管理，后臺包括進(jìn)貨管理，銷售管理，庫存情況的查詢，以及基本用戶人員的帳號管理。前臺包括商品錄入，收銀業(yè)務(wù)。2.2用戶業(yè)務(wù)需求進(jìn)貨管理：根據(jù)銷售情況及庫存情況，自動制定進(jìn)貨計(jì)劃(亦可手工制定修改)，可以避免盲目進(jìn)貨造成商品積壓。按計(jì)劃單有選擇性地進(jìn)行自動入庫登記。綜合查詢打印計(jì)劃進(jìn)貨與入庫記錄及金額。銷售管理：商品正常銷售、促銷與限量、限期及禁止銷售控制。綜合查詢各種銷售明細(xì)記錄、各地收銀員收銀記錄以及交結(jié)賬情況等。按多種方式統(tǒng)計(jì)生成銷售排行榜，靈活察看和打印商品銷售日、月、年報(bào)表。庫存管理：綜合查詢庫存明細(xì)記錄。庫存狀態(tài)自動告警提示。如庫存過剩、少貨、缺貨等。軟件為您預(yù)警，避免庫存商品積壓損失和缺貨。庫存自動盤點(diǎn)計(jì)算。人員管理：員工、會員、供貨商、廠商等基本信息登記管理。員工操作權(quán)限管理。客戶銷售權(quán)限管理。收銀業(yè)務(wù)：通過掃描條形碼或者直接輸入商品名稱(對于同類多件商品采用一次錄入加數(shù)量的方式)自動計(jì)算本次交易的總金額。在顧客付款后，自動計(jì)算找零，同時打印交易清單(包括交易的流水賬號、每類商品的商品名、數(shù)量、該類商品的總金額、交易的時間、負(fù)責(zé)本次收銀的員工號)。如果顧客是本店會員并持有本人會員卡，則在交易前先掃描會員卡，并對所購物品全部實(shí)行95折優(yōu)惠，并將所購物品的總金額累計(jì)到該會員的總消費(fèi)金額中。會員卡的有效期限為一年，滿一年未續(xù)卡者，該會員卡將被注銷。3系統(tǒng)設(shè)計(jì)3.1設(shè)計(jì)思想（1）系統(tǒng)分成前臺和后臺幾個相對獨(dú)立的模塊，但這些模塊都進(jìn)行集中式管理。（2）分層的模塊化程序設(shè)計(jì)思想，整個系統(tǒng)采用模塊化結(jié)構(gòu)設(shè)計(jì)。作為應(yīng)用程序有較強(qiáng)的可操作性和擴(kuò)展性。（3）本系統(tǒng)使用的數(shù)據(jù)庫設(shè)計(jì)是0racle+ODBC+AD控0制，同時也盡可能地使用了VB的各種高級控件。（4）在SQL語言的使用上，也使用了較多的技巧，例如組合查詢技術(shù)，希望通過此次設(shè)計(jì)能夠提供自己各個方面的能力。3.2系統(tǒng)功能結(jié)構(gòu)圖根據(jù)對超市管理系統(tǒng)進(jìn)行的可行性分析和結(jié)構(gòu)化程序設(shè)計(jì)的要求，得到系統(tǒng)總體結(jié)構(gòu)如圖5-1所示：3.3模塊功能設(shè)計(jì)根據(jù)上述系統(tǒng)總體思想的分析，本系統(tǒng)共包括六大模塊，分別是商品錄入管理模塊，收銀業(yè)務(wù)管理模塊，人員管理模塊，銷售管理模塊，進(jìn)貨管理模塊，庫存管理模塊。每個模塊的功能如下：商品錄入管理模塊：（1）實(shí)現(xiàn)商品的快速錄入以快速更新數(shù)據(jù)；（2）實(shí)現(xiàn)支持商品的條形碼掃描錄入；收銀業(yè)務(wù)管理模塊：（1）實(shí)現(xiàn)交易總額計(jì)算；（2）實(shí)現(xiàn)交易總額的查詢；人員管理模塊功能：（1）實(shí)現(xiàn)員工信息的查詢；（2）實(shí)現(xiàn)員工信息的更新，包括增加、刪除、修改功能；（3）實(shí)現(xiàn)員工操作權(quán)限管理；銷售管理模塊功能：（1）實(shí)現(xiàn)銷售信息的查詢；（2）實(shí)現(xiàn)商品銷售的控制；進(jìn)貨管理模塊功能：（1）實(shí)現(xiàn)進(jìn)貨信息的查詢；（2）實(shí)現(xiàn)進(jìn)貨信息的更新，包括增加、刪除、修改功能；庫存管理模塊功能：（1）實(shí)現(xiàn)商品明細(xì)記錄的查詢；（2）實(shí)現(xiàn)商品信息的更新，包括增加、刪除、修改功能；（3）實(shí)現(xiàn)庫存狀態(tài)自動告警；4.1系統(tǒng)數(shù)據(jù)庫的建立數(shù)據(jù)庫應(yīng)該設(shè)計(jì)成層次清晰的，高效的，實(shí)用數(shù)據(jù)庫，該系統(tǒng)是采用三層架構(gòu)設(shè)計(jì)的，可通過應(yīng)用服務(wù)器的擴(kuò)展來實(shí)現(xiàn)新功能的添加。系統(tǒng)對數(shù)據(jù)記錄的操作也因?yàn)槠湔n程設(shè)計(jì)中定義的數(shù)據(jù)操作方式和操作內(nèi)容而注定不會產(chǎn)生臟數(shù)據(jù)及數(shù)據(jù)讀寫的不一致性，故在數(shù)據(jù)庫設(shè)計(jì)方面未采用觸發(fā)器。我們認(rèn)為在擴(kuò)展應(yīng)用服務(wù)器至多種功能后，將應(yīng)用服務(wù)器分為控制部分和客戶應(yīng)用部分，此時在控制部分添加觸發(fā)器來防止數(shù)據(jù)讀寫的不一致性，這已經(jīng)超出了本次課程設(shè)計(jì)所涉及的范圍，在此不做過多的陳述。4.2系統(tǒng)E-R圖1.E-R模型超市管理系統(tǒng)數(shù)據(jù)庫E-R模型:類型用戶姓名用戶用戶密碼ID員用戶號類型用戶姓名用戶用戶密碼ID員用戶號圖41用戶E-R模型圖銷書銷售I期D促銷價格商品:徊爾名商品圖銷書銷售I期D促銷價格商品:徊爾名商品圖4.2物胡銷售E^R模型圖價格允許打折圖4.3物品銷售E-R模型圖圖4.8系統(tǒng)E-R模型圖4.3各個數(shù)據(jù)表的創(chuàng)建由數(shù)據(jù)模型利用OraclelOg進(jìn)行數(shù)據(jù)庫的詳細(xì)設(shè)計(jì)，其基本表的設(shè)計(jì)如下:表4.1商品表(Merchandise)字段名—字段類型長度主/外鍵字段值約束對應(yīng)中文名MerchlDint4PNotnull商品編號MerchNameVarchar50Notnull商品名稱MerchPriceMoney4Notnull價格MerchNumInt4Notnull庫存數(shù)量CautionNumInt4Notnull庫存報(bào)警數(shù)量PlanNumInt4null計(jì)劃進(jìn)貨數(shù)BarCodeVarchar50Notnull條形碼SalesProPriceMoney4促銷價格SalesProDateSDatetime8促銷起日期SalesProDateEDatetime8促銷止日期AllowAbateInt4Notnull允許打折AllowSaleInt4Notnull允許銷售FactoryIDVarchar10FNotnull廠商編號ProvidelDVarchar10FNotnull供貨商編號表4.2用戶表(User)字段名字段類型長度主/外鍵字段值約束對應(yīng)中文名UserIDvarchar10PNotnull用戶編號UserNameVarchar25Notnull用戶名稱UserPWVarchar50Notnull用戶密碼UserStyleInt4Notnull用戶類型表4.3會員表(Menber)字段名字段類型長度主/外鍵字段值約束對應(yīng)中文名MemberIDVarchar10PNotnull會員編號MemberCardVarchar20Notnull會員卡號TotalCostMoney4Notnull累積消費(fèi)金額RegDateDatetime8Notnull注冊日期表4.4銷售表(Sale)字段名字段類型長度主/外鍵字段值約束對應(yīng)中文名SaleIDVarchar10PNotnull銷售編號MerChIDVarchar10FNotnull商品編號SaleDateDatetime8Notnull銷售日期SaleNumInt4Notnull銷售數(shù)量SalePriceMoney4Notnull銷售單額表4.5交易表(Dealing)字段名字段類型長度主/外鍵字段值約束對應(yīng)中文名DealingIDVarchar10PNotnull交易編號DealingPriceMoney4Notnull交易金額DealingDateMoney4Notnull交易日期MemberIDVarchar10會員卡號UserNameVarchar10FNotnull用戶名稱表4.6入庫紀(jì)錄表(Stock)字段名字段類型長度主/外鍵字段值約束對應(yīng)中文名StockIDVarchar10PNotnull入庫編號MerchIDVarchar10FNotnull入庫商品編號MerchNumInt4Notnull入庫數(shù)量MerchPriceMoney4Notnull單額TotalPriceMoney4Notnull總額StockDateDatetime8Datetime入庫日期PlanDateDatetime8Datetime計(jì)劃進(jìn)貨日期StockStateInt4Notnull入庫狀態(tài)表4.7供貨商表(Provide)字段名字段類型長度主/外鍵字段值約束對應(yīng)中文名ProvidelDvarchar10PNotnull供貨商編號ProvideNameVarchar50Notnull供貨商名稱ProvideAddressVarchar250供貨商地址ProvidePhoneVarchar25供貨商電話表4.8廠商表(Provide)字段名字段類型長度主/外鍵字段值約束對應(yīng)中文名FactoryIDvarchar10PNotnull廠商編號FactoryNameVarchar50Notnull廠商名稱FactoryAddressVarchar250廠商地址FactoryPhoneVarchar25廠商電話4.4存儲過程設(shè)計(jì)創(chuàng)建用于用戶登陸的存儲過程：createorreplaceprocedureset_User(sUserIDinintidentity,sUserPWinvarchar,sUserNameinvarchar,sUserStyleinnumber)asbeginupdateUsersetUserName=sUserName,UserPW=sUserPW,UserStyle=sUserStylewhereUserID=sUserID;ifSQL%NOTFOUNDTHENinsertintoUser(UserID,UserPW,UserName,UserStyle)values(sUserID,sUserPW,UserName,sUserStyle);endif;endset_User;4.5數(shù)據(jù)庫的連接應(yīng)用程序與OraclelOg數(shù)據(jù)庫的連接是通過創(chuàng)建ADO數(shù)據(jù)源，然后在程序中利用代碼與數(shù)據(jù)庫建立連接來實(shí)現(xiàn)的。具體實(shí)現(xiàn)方法是：在模塊中聲明調(diào)用ADO連接控件，這樣便能在任何時間連接數(shù)據(jù)庫了。使用ADOConnection對象連接到Oracle10g。在查詢等按鈕的單擊事件中訪問數(shù)據(jù)庫。可以使用應(yīng)用程序配置文件建立一條到數(shù)據(jù)庫服務(wù)器的連接，返回一個關(guān)鍵字ConnectionString，在實(shí)體數(shù)據(jù)鏈路層定義一個用于存儲過程的一個基類DBdata.cs在這個基類中接受該關(guān)鍵字，使用ConnectionString連接數(shù)據(jù)庫。配置文件連接數(shù)據(jù)SqlConnection庫的代碼：<addkey="ConnectionString"value="server=(local);uid=sa;pwd="/>。存儲database=Supermark過程基類接受該關(guān)鍵字的代碼：et;System.Configuration.ConfigurationSettings.AppSettings[ing"].ToString();用戶名用戶名5系統(tǒng)實(shí)現(xiàn)5.1系統(tǒng)實(shí)現(xiàn)工具與支持平臺(1)用戶界面本系統(tǒng)采用MicrosoftVisualBasic6.0設(shè)計(jì)，用戶交互界面采用的是基于Windows的窗口界面。硬件接口運(yùn)行本系統(tǒng)的硬件基本要求如下：CPU：IntelP3及以上；內(nèi)存：512MB及以上；硬盤：40GB及以上。軟件接口數(shù)據(jù)庫服務(wù)器：OraclelOg。ADO對象模型5.2系統(tǒng)界面下面為運(yùn)行后的界面圖服務(wù)器(S)確定圖5.1系統(tǒng)登錄界面

圖5.3銷售管理員界面計(jì)劃進(jìn)貸入庫記錄Listl忝加(K)刪除報(bào)表CR)會扇卡號：消費(fèi)金前:登記日瑚：裔品辜形碼:計(jì)劃逬貸日期:ij確走眼消圖5.4進(jìn)貨管理界面刪除0)渚理(C)確定取消圖5.5會員管理界面圖5.6廠商/供貨商管理界面5.3系統(tǒng)主要功能實(shí)現(xiàn)1.前臺前臺僅包括銷售商品時必須且僅需的功能，盡可能地做到簡化操作程序，利于收銀員快捷、準(zhǔn)確地進(jìn)行收款。功能包括前臺交易開單、收款、退貨、會員卡、折扣和優(yōu)惠等；下載后臺資料和將清款后的業(yè)務(wù)數(shù)據(jù)上傳后臺；完成前臺交易中的掃描條碼或輸入商品編碼、收款、打印收據(jù)、彈出銀箱等一系列操作。支持多種收款方式：顧客交款、營業(yè)員收款。支持會員制折扣卡銷售，可以采用嚴(yán)格會員制或自由會員制。記錄顧客信息、累計(jì)顧客消費(fèi)金額等功能。支持多種付款方式：現(xiàn)金、支票、記帳、贈券等。支持多種促銷方式：折扣、折讓、VIP優(yōu)惠卡、贈送。收款員非常規(guī)操作記錄，有助于減少財(cái)務(wù)損失，方便匯總打印各種營業(yè)報(bào)表。該系統(tǒng)包含兩個對象，包括收銀員和客戶。系統(tǒng)用例：收銀員：結(jié)算收款客戶：結(jié)帳2.后臺充分利用數(shù)據(jù)庫的大容量、高效率等特點(diǎn)，為用戶提供強(qiáng)大的功能支持，對超市進(jìn)貨業(yè)務(wù)、庫房業(yè)務(wù)進(jìn)行管理，并處理分公司銷售數(shù)據(jù)和后臺批發(fā)業(yè)務(wù)，利用商業(yè)流通超市的商品管理和往來客戶管理，為經(jīng)營管理者提供分析與決策必需的數(shù)據(jù)和信息。該后臺包含3個對象，包括：超市經(jīng)理，銷售管理員，進(jìn)貨管理員。系統(tǒng)用例：超市經(jīng)理：操作軟件錄入商品，供貨商，廠商；操作軟件制定進(jìn)貨計(jì)劃；查詢打印計(jì)劃進(jìn)貨與入庫記錄；操作軟件控制商品銷售與否；查詢打印銷售情況；操作軟件生成銷售排行榜；查詢庫存明細(xì)記錄；根據(jù)軟件發(fā)出的庫存告警進(jìn)行入貨；操作軟件進(jìn)行盤點(diǎn)計(jì)算。銷售管理員：銷售管理，因?yàn)橐蛳到y(tǒng)提供貨架管理信息，所以也參與貨源管理進(jìn)貨管理員：具體采購進(jìn)貨，采購單查詢。5.4系統(tǒng)核心代碼此處指選取主要代碼進(jìn)行說明，數(shù)據(jù)庫連接、用戶登陸、主窗體數(shù)據(jù)庫連接：<appSettings><addkey="ConnectionString"value="server=(local);database=Supermarket;uid=sa;pwd="/></appSettings>在基類DBdat中打開數(shù)據(jù)庫鏈接對象，publicclassDBdat{privatestaticSqlConnectionMyConnection;privatestaticreadonlystringRETURNVALUE="RETURNVALUE";privatestaticreadonlyStringStringConnection=System.Configuration.ConfigurationSettings.AppSettings["ConnectionString"].ToString()publicstaticvoidOpen(){//打開鏈接對象if(MyConnection==null){MyConnection=newSqlConnection(StringConnection);}if(MyConnection.State==ConnectionState.Closed){MyConnection.Open();///打開數(shù)據(jù)庫連接}}///關(guān)閉鏈接對象登陸PrivateSuballen_Click()EndSubPrivateSubcboUser_GotFocus()cboUser.SelAllEndSubPrivateSubcmdExit_Click()UnloadMeEndSub檢查是否連接服務(wù)器PrivateSubcmdOK_Click()//'如果還沒有服務(wù)器信息IfstrSQLServer=""ThenMsgBox"您必須先設(shè)置cmdServer_ClickExitSubEndIfIfcboUser.Text=""Then//MsgBox"請?zhí)顚懹脩裘?。cboUser.SetFocusSQL服務(wù)器信息。"vbInformation填寫用戶名〃vbInformationcboUser.SetFocusExitSubEndIfIftxtPW.Text=""Then//填寫密碼MsgBox"請?zhí)顚懨艽a。",■，txtPW.SetFocusExitSubvbInformationEndIfOnErrorGoToaaaa//檢查是否存在用戶sqlConnectcnMain,strSQLServer,strSQLUser,strSQLPW,strSQLDBDimrsAsNewADODB.Recordset,strMD5AsStringstrMD5=GetMD5(txtPW.Text)rs.Open"Select*From[User]WhereUserStyle>1",cnMain,11Ifrs.EOFThenMsgBox"找不到任何用戶！",vbCriticalcnMain.CloseElseDoUntilrs.EOFIfStrComp(rs("UserName"),cboUser.Text,1)=0AndStrComp(rs("UserPW"),GetMD5(txtPW.Text),1)=0ThencurUserName=rs("UserName")curUserStyle=CLng(rs("UserStyle"))cboUser.AddItemcurUserName,0SaveUserListfrmMain.Icon=Me.IconUnloadMe//卸載主窗體frmMain.Show//顯示主窗體ExitSubEndIfrs.MoveNextLoopEndIfMsgBox"用戶名或密碼錯誤，登陸失??！",vbCriticalcnMain.CloseExitSubaaaa:MsgBoxErr.Description,vbCriticalIfcnMain.State=1ThencnMain.CloseEndSubPrivateSubcmdServer_Click()//創(chuàng)建服務(wù)器命令按紐WithfrmServer.txtServer.Text=strSQLServer.txtUser.Text=strSQLUserIfstrSQLPW<>""Then.lbPW.Visible=True.txtDB.Text=IIf(strSQLDB<>"",strSQLDB,"SuperMarketdb").Show1EndWithEndSubPrivateSubForm_Activate()//設(shè)置光標(biāo)點(diǎn)OnErrorResumeNextcboUser.SetFocuscboUser.SetFEndSubPrivateSubForm_Load()IfcnMain.State<>0ThencnMain.CloseLoadUserListIfcboUser.ListCount>0ThencboUser.ListIndex=0EndSubPublicSubLoadUserList()OnErrorGoToaaaaDimstrTmpAsString,jAsLongOpenGetApp&"Files\user.inf"ForInputAs#1DoUntilEOF(1)LineInpu