第2頁共2頁運城學院實驗報告專業：計算機科學與技術系（班）：計算機科學與技術系0902班姓名：許永康（2009100210）課程名稱：軟件開發環境與工具實驗項目：超市收銀系統實驗類型：設計型指導老師：南麗麗實驗地點：計算機實驗室一時間：2011-12-10一、實驗目的：1、 掌握VB.NET的基本應用2、掌握基本聯庫的方法二、實驗代碼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"/><!--取消以下部分的注釋，以寫入應用程序事件日志--><!--<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"/><!--取消以下部分的注釋，并用應用程序名替換APPLICATION_NAME，以寫入應用程序事件日志--><!--<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"/><!--取消以下部分的注釋，以寫入應用程序事件日志--><!--<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"/><!--取消以下部分的注釋，并用應用程序名替換APPLICATION_NAME，以寫入應用程序事件日志--><!--<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()'屬性里面關機模式改為“當最后一個窗體關閉時”ElseMsgBox("用戶名或密碼錯誤！")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()'屬性里面關機模式改為“當最后一個窗體關閉時”'Else'MsgBox("密碼錯誤！")'Me.txtPwd.Text=""'Me.txtPwd.SelectAll()'Me.txtPwd.Focus()'EndIfEndSubSubinitdata(ByValpAsString)''dv=o.getall2ds("")'dv=o.getall2ds("").Tables(0).DefaultView'篩選數據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