4、ipt>alert('您已成功登陸);")
EndIf
EndSub
'跳轉注冊頁面
ProtectedSublbtnRegister_Click(ByValsenderAsObject,ByValeAsEventArgs)HandleslbtnRegister.Click
Response.Redirect("Register.aspx")
EndSub
三、程序(二)設計說明
3.1 程序描述
登陸模塊
3.2 功能
實現(xiàn)管理員賬號登陸,以便繼續(xù)后面操作
3.3 輸入項
輸入:管理員賬號、密碼。
輸出:登陸成功界面
3.4 流程邏輯
5、
3.5 界面設計
登陸界面
員工信息管理系統(tǒng).
理戶名;S8
--
―一T^
登陸成功界面
員工信息管理系統(tǒng)
£日
您已成功登錄!
苔詢員工信息
注銷一錄
3.6 功能實現(xiàn)方法
’登錄
ProtectedSubbtnLogin_Click(ByValsenderAsObject,ByValeAsEventArgs)Handles
btnLogin.Click
DimCountAsInteger返回受影響的行數(shù)
DimcookiesAsNewHttpCookie("UserName")
managemodel.ManageId=txtName.Text.Tr
6、im()
managemodel.ManagePassword=txtPassWord.Text.Trim()
Count=managebll.Login(managemodel)
注銷登錄
ProtectedSubPage_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.Load
IfNotIsPostBackThen
IfNotRequest.Cookies("UserName")IsNothingThen'如果Cookie中有值則把值賦給標
簽并顯示一些登陸后才顯示的控件
lblUser.Text=R
7、equest.Cookies("UserName").Value
lbtnSearch.Visible=True
lblSucces.Visible=True
lbtnOut.Visible=True
lblWelcome.Visible=False
EndIf
EndIf
EndSub
四、程序(三)設計說明
4.1 程序描述
注冊模塊
4.2 功能
提供管理員賬號注冊功能
4.3 輸入項輸入:新管理員賬號、密碼信息輸出:注冊成功提示
4.4流程邏輯
8、
2.6界面設計
正陸
員工信息管理系統(tǒng)
4Tk干
注舊新用戶
2.7功能實現(xiàn)方法
'注冊
Check=managebll.Check(managemodel)'執(zhí)行判定
IfCheck=0Then'若表括中無同名用戶則行添加用戶
Count=managebll.Register(managemodel)
IfCount>0Then'若
9、受影響行數(shù)大于0說明添加成功
Page.ClientScript.RegisterStartupScript(Page.GetType(),"","")
Else'否則添加不成功
Page.ClientScript.RegisterStartupScript(Page.GetType(),"","")
EndIf
Else'有同名用戶時彈出提示
Page.ClientScript.RegisterStartupScript(Page.GetType(),"",
10、"")
EndIf
五、程序(四)設計說明
5.1 程序描述
查詢模塊
5.2 功能
提供員工信息查詢
全部查詢:顯示所有員工信息
按員工ID查詢:顯示指定ID的員工信息
按性別查詢:顯示指定性別的員工信息
5.3 輸人、輸出項
輸入:選擇查詢條件,如員工ID或性別等。
輸出:顯示滿足條件的員工。
5.4 流程邏輯
2.6界面設計
全部查詢
?全部宣潮.接員工山堡目.接性別查得注定
操作
StaffID
5"tqffN£LBE
StaffSer
StaffAcre
Sta
11、ffJob
SteffTinc
編退隗除
4
張4
女
蹈
秘書
2011/L/10:00:00
揭裝沖蛇
S
文
12
程序員
2012/2/1tkULLBJ
里將睡
了
張T
用
22
*工
2011/1/10:00:00
8
張昌
男
30
重事長
2011/L/l0:00:00
按員工ID查詢
量卻苴國*播員二m百間接也也直M范定
清??凇⒚窆ぶ?
操作
StaffID|
Staffliaae
StaffSez
St&£f&E
StaffJob
|StafCHiiH
縮避刑任
7
張T
男
12、22
污清H
2011/1/10:00:00
按性別查詢
仝部置面7守吊TTD告詢*林瞽司哲向課字
里。女
操作
StaffID
SlaffNane
StaffSe3I
StaffAjje
Staffjofc
StaffTime
編鉗刪除
4
我4
女
28
秘書
2011/1/10:00:00
編需出[除
5
張5
女
12
程序員
2012/2/10:00:00
2.7功能實現(xiàn)方法
ProtectedSubbtnOk_Click(ByValsenderAsObject,ByValeAsEventArgs)HandlesbtnO
13、k.Click
IfrblSelect.SelectedValue="0"Then'全部查詢
SelectA川nfo()
ElseIfrblSelect.SelectedValue="1"Then'按員工ID查詢
SelectIdInfo()
ElseIfrblSelect.SelectedValue="2"Then'按性別查詢
SelectSexInfo()
EndIf
EndSub
六、程序(五)設計說明
6.1 程序描述
管理模塊
6.2 功能
實現(xiàn)員工信息的添加、刪除、修改
6.3 輸入、輸出項
輸入:員工信息
輸出:變更后的員工信息
6.4 流程邏輯
14、
管理
添加
查詢
顯示輸出結果
2.6 界面設計
添加員工信息
員工信息管理系統(tǒng)
.至椰豆可岳員工E比聞般怛另1堂廂「潮^
操作XiaffID融affMMe
StaffSei
StaffAee
Stalfjab
|StaiffTi”
通jlEiq
張4
女
2B
和書
ML1A/1O:DO:OO
幅臉5
杜占
女
12
告工
2叫2月/!D;DO;OO
骨蟠,
顆
另
22
俯潔工
2O11A/1U;M;???
蝙盤映3
腳
工
30
節(jié)不長
2011/1/10:00:00
Axid.
員工娃君,
員
15、工性SUr
氣工麗
員■口
修改員工信息
操作
SiaffID
StafFNanie
StaffAgr
StnfFJnb
StaffTiaiff
4J
迎
西1
植下
2011「
5
張5
女
12
程序受
2012/2/1D;HO;Oa
2.7 功能實現(xiàn)方法
刪除數(shù)據(jù)
ProtectedSubGridView1_RowDeleting(ByValsenderAsObject,ByValeAs
System.Web.UI.WebControls.GridViewDeleteEventArgs)HandlesGridView
16、1.RowDeleting
DimindexAsInteger=Convert.ToInt32(GridView1.DataKeys(e.RowIndex).Value.ToString)’獲得主鍵
DimCountAsInteger
‘調用業(yè)務邏輯層
Count=staffbll.DeleteInfo(index)
'刷新頁面?
Bind()
EndSub
‘更新
ProtectedSubGridView1_RowUpdating(ByValsenderAsObject,ByValeAs
System.Web.UI.WebControls.GridViewUpdateEv
17、entArgs)HandlesGridView1.RowUpdating
DimindexAsInteger=
Convert.ToInt32(GridView1.DataKeys(e.RowIndex).Value.ToString)'獲取主鍵
staffmodel.StfId=index
staffmodel.StfName=(CType((GridView1.Rows(e.RowIndex).Cells(2).Controls(0)),
TextBox)).Text.Trim()
staffmodel.StfSex=(CType((GridView1.Rows(e.RowIn
18、dex).Cells(3).Controls(0)),
TextBox)).Text.Trim()
staffmodel.StfAge=(CType((GridView1.Rows(e.RowIndex).Cells(4).Controls(0)),
TextBox)).Text.Trim()
staffmodel.StfJob=(CType((GridView1.Rows(e.RowIndex).Cells(5).Controls(0)),
TextBox)).Text.Trim()
staffmodel.StfTime=(CType((GridView1.Rows(e.RowI
19、ndex).Cells(6).Controls(0)),
TextBox)).Text.Trim()
staffbll.UpdataInfo(staffmodel)
GridView1.EditIndex=-1Bind()
EndSub
執(zhí)行添加
staffmodel.StfId=txtId.Text.Trim()staffmodel.StfName=txtName.Text.Trim()
staffmodel.StfSex=txtSex.Text.Trim()staffmodel.StfAge=txtAge.Text.Trim()staffmodel.StfJob=txtJob
20、.Text.Trim()staffmodel.StfTime=txtTime.Text.Trim()Check=staffbll.Check(staffmodel)'執(zhí)行判定IfCheck=0Then'如果表括中無值則可進行添加
'調用業(yè)務邏輯層
staffbll.AddInfo(staffmodel)Bind()
Else'如果有值則不能添加
Page.ClientScript.RegisterStartupScript(Page.GetType(),")
EndIf
七、參考資料
(1)張俊蘭等?!盾浖こ獭肺靼搽娮涌萍即髮W出版社,2003年8月。
(2)薩師煊等?!稊?shù)據(jù)庫系統(tǒng)概論(第三版)》高等教育出版社,2000年。
(3)郝興偉?!禬eb開發(fā)技術》清華大學出版社,2004年。