3336 信息模塊訂單信息管理模塊信息模塊。 、、客戶登入信息系統(tǒng)以后可以通過該系統(tǒng)查詢本人的信息如顧客號工作、、、以及是否是vip，另外，客戶還可以通過該系統(tǒng)查詢該書庫的圖書信息，例如的價格、書名、作者、類別以及量等等。、、店員通過賬號進入系統(tǒng)之后，可以通過該系統(tǒng)查詢自己的信息，店員還可以擁有圖書號、書名、作者、、類別、的價格、的折扣信息以及量。另外，作為店員還可以對進行修改，還可以進行訂單的相關處理，比如書本的發(fā)送方式，客戶基本客戶基本店員基本訂單信信息信息登陸界N驗證賬Y接受和輸系統(tǒng)2書店店員系統(tǒng)買客戶退回到系統(tǒng)主 SQLSever,該數(shù)據(jù)庫系統(tǒng)在安全性、 司的VisualBasic作為主要的開發(fā)工具，其可與SQLServer數(shù)根據(jù)系統(tǒng)的功能分析結果，信息管理系統(tǒng)將會使用SQLSever2000作為的數(shù)據(jù)庫管理系統(tǒng)。本管理系統(tǒng)是應用于書店中，而且需要和數(shù)據(jù)庫之間進行頻繁數(shù)據(jù)交換，所以采用SQLSever2000作為的數(shù)據(jù)庫管理系統(tǒng)。3PublicClass登'TODO:插入代碼，以使用提供的用戶名和執(zhí)行自定義的驗'(請參見/fwlink/?LinkId=35339)。'隨后自定義主體可附加到當前線程的主體，如下所示:'My.User.CurrentPrincipal='其中CustomPrincipal是用于執(zhí)行驗證的IPrincipal實現(xiàn)。'隨后，My.UserCustomPrincipal對象中封裝的標識信息'如用戶名、顯示名等PrivateSubOK_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesOK.ClickIf(Trim(UsernameTextBox.Text))="customer"AndTrim(PasswordTextBox.Text)="123"ThenMsgBox("歡迎進入管理系統(tǒng)=.DataGrid1.ReadOnly=ElseIfTrim(UsernameTextBox.TextstaffAndTrim(PasswordTextBox.Text000Then=.DataGrid1.ReadOnly=.TextBox1.ReadOnly=.TextBox2.ReadOnly=.TextBox3.ReadOnly=.TextBox4.ReadOnly=.TextBox5.ReadOnly=.TextBox6.ReadOnly=.TextBox7.ReadOnly=.TextBox8.ReadOnly=

PasswordTextBox.Text=""EndIfEndSubPrivateSubCancel_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesEndSubPrivateSub登陸_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesEndSubEndClass創(chuàng)建窗體模1、查詢窗體代Imports '指明sql對象名空PublicClassInheritsSystem.Windows.Forms.FormPublicmybindAsBindingManagerBasePrivateSub客戶信息_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind=BindingContext(DataSet21,"T_Customer") DataGrid1.DataSource=DataSet21.T_CustomerEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position DataGrid1.CurrentRowIndex=mybind.PositionEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Positionmybind.Position DataGrid1.CurrentRowIndex=mybind.PositionEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Positionmybind.Position DataGrid1.CurrentRowIndex=mybind.PositionEndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Positionmybind.Count DataGrid1.CurrentRowIndexmybind.Position End System.Windows.Forms.NavigateEventArgs)HandlesDataGrid1.Navigatemybind.Position=DataGrid1.CurrentRowIndexEndSubEndSubEndClassPublicClass信InheritsSystem.Windows.Forms.FormPublicmybindAsBindingManagerBasePrivateSub信息_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind=BindingContext(DataSet5,"T_Book")EndPrivateSubT_BookDataGridView_CellContentClick(ByValsenderAsSystem.Object,ByValeAsEnd senderAs eAsSystem.Windows.Forms.DataGridViewCellEventArgs)HandlesDataGridView1.CellContentClickEndSubEndClass信息窗體如下圖所示ImportsPublicClassInheritsSystem.Windows.Forms.FormPublicmybindAsBindingManagerBasePrivateSub店員信息_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind=BindingContext(DataSet31,"T_Assistant")DataGrid1.DataSource=DataSet31.T_AssistantEndPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=0DataGrid1.CurrentRowIndex=mybind.PositionEndPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=mybind.Position-1DataGrid1.CurrentRowIndex=mybind.PositionEndPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=mybind.Position+1DataGrid1.CurrentRowIndex=mybind.PositionEndPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=mybind.Count-1DataGrid1.CurrentRowIndex=mybind.PositionEnd System.Windows.Forms.NavigateEventArgs)HandlesDataGrid1.Navigatemybind.Position=DataGrid1.CurrentRowIndexEndSubEndImportsSystem.Data.SqlPublicClass訂單信息管理InheritsSystem.Windows.Forms.FormPublicmybindAsBindingManagerBasePrivateSub訂單信息管理_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind=BindingContext(DataSet41,"T_BookOrder")DataGrid1.DataSource=DataSet41.T_BookOrderEndPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=0DataGrid1.CurrentRowIndex=mybind.PositionEndPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=mybind.Position-1DataGrid1.CurrentRowIndex=mybind.PositionEndPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=mybind.Position+1DataGrid1.CurrentRowIndex=mybind.PositionEndPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=mybind.Count-1DataGrid1.CurrentRowIndex=mybind.PositionEnd System.Windows.Forms.NavigateEventArgs)HandlesDataGrid1.Navigatemybind.Position=DataGrid1.CurrentRowIndexEndSubEndImportsPublicClass信息InheritsSystem.Windows.Forms.FormPublicmybindAsBindingManagerBasePrivateSubForm2_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind=BindingContext(DataSet51,"T_Book")DataGrid1.DataSource=DataSet51.T_BookEndPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=0DataGrid1.CurrentRowIndex=mybind.PositionEndPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=mybind.Position-1DataGrid1.CurrentRowIndex=mybind.PositionEndPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=mybind.Position+1DataGrid1.CurrentRowIndex=mybind.PositionEndPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesmybind.Position=mybind.Count-1DataGrid1.CurrentRowIndex=mybi