超市管理系統(tǒng)實(shí)驗(yàn)報(bào)告

第2頁共2頁運(yùn)城學(xué)院實(shí)驗(yàn)報(bào)告專業(yè)：計(jì)算機(jī)科學(xué)與技術(shù)系（班）：計(jì)算機(jī)科學(xué)與技術(shù)系0902班姓名：許永康（2009100210）課程名稱：軟件開發(fā)環(huán)境與工具實(shí)驗(yàn)項(xiàng)目：超市收銀系統(tǒng)實(shí)驗(yàn)類型：設(shè)計(jì)型指導(dǎo)老師：南麗麗實(shí)驗(yàn)地點(diǎn)：計(jì)算機(jī)實(shí)驗(yàn)室一時(shí)間：2011-12-10一、實(shí)驗(yàn)?zāi)康模?、 掌握VB.NET的基本應(yīng)用2、掌握基本聯(lián)庫的方法二、實(shí)驗(yàn)代碼1、<?xmlversion="1.0"encoding="utf-8"?><configuration><appSettings><addkey="server"value="YCXY-FB7E8ACF2C"/><addkey="uid"value="sa"/><addkey="pwd"value="sql"/><addkey="database"value="systemdata"/></appSettings><system.diagnostics><sources><!--本部分定義My.Application.Log的登錄配置--><sourcename="DefaultSource"switchName="DefaultSwitch"><listeners><addname="FileLog"/><!--取消以下部分的注釋，以寫入應(yīng)用程序事件日志--><!--<addname="EventLog"/>--></listeners></source></sources><switches><addname="DefaultSwitch"value="Information"/></switches><sharedListeners><addname="FileLog"type="Microsoft.VisualBasic.Logging.FileLogTraceListener,Microsoft.VisualBasic,Version=,Culture=neutral,PublicKeyToken=b03f5f7f11d50a3a,processorArchitecture=MSIL"initializeData="FileLogWriter"/><!--取消以下部分的注釋，并用應(yīng)用程序名替換APPLICATION_NAME，以寫入應(yīng)用程序事件日志--><!--<addname="EventLog"type="System.Diagnostics.EventLogTraceListener"initializeData="APPLICATION_NAME"/>--></sharedListeners></system.diagnostics></configuration>?xmlversion="1.0"encoding="utf-8"?><configuration><appSettings><addkey="server"value="YCXY-FB7E8ACF2C"/><addkey="uid"value="sa"/><addkey="pwd"value="sql"/><addkey="database"value="systemdata"/></appSettings><system.diagnostics><sources><!--本部分定義My.Application.Log的登錄配置--><sourcename="DefaultSource"switchName="DefaultSwitch"><listeners><addname="FileLog"/><!--取消以下部分的注釋，以寫入應(yīng)用程序事件日志--><!--<addname="EventLog"/>--></listeners></source></sources><switches><addname="DefaultSwitch"value="Information"/></switches><sharedListeners><addname="FileLog"type="Microsoft.VisualBasic.Logging.FileLogTraceListener,Microsoft.VisualBasic,Version=,Culture=neutral,PublicKeyToken=b03f5f7f11d50a3a,processorArchitecture=MSIL"initializeData="FileLogWriter"/><!--取消以下部分的注釋，并用應(yīng)用程序名替換APPLICATION_NAME，以寫入應(yīng)用程序事件日志--><!--<addname="EventLog"type="System.Diagnostics.EventLogTraceListener"initializeData="APPLICATION_NAME"/>--></sharedListeners></system.diagnostics></configuration>PublicClassForm1DimoAsNewHY.CT.Class1DimdvAsData.DataView'自定義視圖DimpcurrentindexAsIntegerPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimjAsIntegerdv=o.getall2ds("user_name='"&Me.txtUser.Text&"'","user_pwd='"&System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(Me.txtPwd.Text,"md5")&"'").Tables(0).DefaultViewIfdv.Count>0ThenElseEndIfForj=0Todv.Count-1Ifdv.Item(j).Item("user_name").ToString=Me.txtUser.Text_Anddv.Item(j).Item("user_pwd").ToString=System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(Me.txtPwd.Text,"md5")ThenDimfAsNewfrmMainf.Show()f.WindowState=FormWindowState.MaximizedMe.Close()'屬性里面關(guān)機(jī)模式改為“當(dāng)最后一個(gè)窗體關(guān)閉時(shí)”ElseMsgBox("用戶名或密碼錯(cuò)誤！")Me.txtPwd.Text=""Me.txtUser.Text=""Me.txtPwd.Focus()EndIfExitSubNext'Ifdv.Item(Me.pcurrentindex).Item("user_pwd").ToString=System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(Me.txtPwd.Text,"md5")_'Anddv.Item(Me.pcurrentindex).Item("user_name").ToString=Me.txtUser.TextThen'DimfAsNewfrmMain'f.Show()'f.WindowState=FormWindowState.Maximized'Me.Close()'屬性里面關(guān)機(jī)模式改為“當(dāng)最后一個(gè)窗體關(guān)閉時(shí)”'Else'MsgBox("密碼錯(cuò)誤！")'Me.txtPwd.Text=""'Me.txtPwd.SelectAll()'Me.txtPwd.Focus()'EndIfEndSubSubinitdata(ByValpAsString)''dv=o.getall2ds("")'dv=o.getall2ds("").Tables(0).DefaultView'篩選數(shù)據(jù)EndSubPrivateSubForm2_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load'CallMe.initdata()'Ifdv.Count>0Then'pcurrentindex=dv.Count-1'EndIf'DimiAsInteger''Fori=0ToMe.pcurrentindex''Me.ComboBox1.Items.Add(dv.Item(i).Item("user_name"))''NextiEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubEnd