【正文】 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。, conn) Dim dr As = () If () Then () (編號已經(jīng)存在。 = = New (6, 14) = = New (362, 311) () () () () () () () () () () () () () () () = = False = jm_add = = 添加用戶信息 (False) End SubEnd Region Private Sub Label1_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Label3_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub jm_add_Load(ByVal sender As , ByVal e As ) Handles (男) (女) = 0 = 5 = 230 End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim haojie As Boolean = False Dim haojie_e As String Select Case Case haojie_e = 編號 haojie = True Case haojie_e = 姓名 haojie = True End Select If haojie = True Then (haojie_e + 不能為空啊) If haojie_e = 編號 Then () Else () End If Return End If Dim conn As = New (strConn) Try () Catch ex As Exception () Return End Try Dim m1 As = New (select jm_id from jm where jm_no=39。 39。Button2 39。 = New (192, 256) = Button1 = New (48, 23) = 21 = 添加 39。 39。jm_lxfs 39。 = New (128, 168) = jm_addr = New (168, 21) = 18 = 39。 39。jm_sfz 39。 = = New (128, 93) = jm_sex = New (48, 20) = 13 39。 39。jm_name 39。 = New (48, 24) = Label11 = New (72, 16) = 11 = 用戶編號： 39。 39。jm_no 39。 = New (48, 176) = Label7 = New (72, 16) = 6 = 家庭住址： 39。 39。Label6 39。 = New (48, 61) = Label5 = New (72, 16) = 4 = 姓 名： 39。 39。Label4 39。 = New (34, 135) = Label3 = New (80, 16) = 2 = 身份證號碼： 39。 39。Label1 39。 Friend WithEvents Label1 As Friend WithEvents Label3 As Friend WithEvents Label4 As Friend WithEvents Label5 As Friend WithEvents Label6 As Friend WithEvents Label7 As Friend WithEvents Label11 As Friend WithEvents jm_no As Friend WithEvents jm_name As Friend WithEvents jm_sex As Friend WithEvents Button1 As Friend WithEvents Button2 As Friend WithEvents jm_sfz As Friend WithEvents jm_addr As Friend WithEvents jm_lxfs As () Private Sub InitializeComponent() = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New () 39。 39。注意: 以下過程是Windows 窗體設(shè)計(jì)器所必需的 39。 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (ponents Is Nothing) Then () End If End If (disposing) End Sub 39。在InitializeComponent() 調(diào)用之后添加任何初始化 End Sub 39。該調(diào)用是Windows 窗體設(shè)計(jì)器所必需的。 + pass + 39。 + user + 39。, ‘) pass = (39。login 39。 = = = New (184, 112) = Button2 = New (40, 24) = 6 = 關(guān)閉 39。 39。PassWord 39。 = New (104, 32) = UserName = New (120, 21) = 4 = admin 39。 39。Label2 39。 = = New (宋體, !, , , CType(134, Byte)) = New (48, 32) = Label1 = New (56, 24) = 2 = 用戶名： 39。 39。Button1 39。 Friend WithEvents Button1 As Friend WithEvents Label1 As Friend WithEvents Label2 As Friend WithEvents UserName As Friend WithEvents PassWord As Friend WithEvents Button2 As () Private Sub InitializeComponent() = New = New = New = New = New = New () 39。 39。注意: 以下過程是Windows 窗體設(shè)計(jì)器所必需的 39。 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (ponents Is Nothing) Then () End If End If (disposing) End Sub 39。在InitializeComponent() 調(diào)用之后添加任何初始化 End Sub 39。該調(diào)用是Windows 窗體設(shè)計(jì)器所必需的。[16] 孟小峰，王珊，《數(shù)據(jù)庫系統(tǒng)導(dǎo)論》，機(jī)械工業(yè)出版社，2000,6：105120。[14] 劉瑞新，汪遠(yuǎn)征，《Visual Basic程序設(shè)計(jì)教程》，機(jī)械工業(yè)出版社，2001，129180。[12] 伍俊良 主編 等 《VB課程設(shè)計(jì)與系統(tǒng)開發(fā)案例》清華大學(xué)出版社, 2002。1998，3：4548。[9] 李玉東,李罡,李雷，VISUAL BASIC . 電子工業(yè)出版社，2000。機(jī)械工業(yè)出版社。2001。1997。Richard Blair[美], 康博譯. Professional . 清華大學(xué)出版社, 2002,1:2130[2] 龔沛曾. ：高等教育出版社圖書發(fā)行部，2008,2：3456[3] 陳永強(qiáng). SQL Server數(shù)據(jù)庫企業(yè)應(yīng)用系統(tǒng)開發(fā). 北京：清華大學(xué)出版社,2004，2：3435[4] Andy Olsen James Speer Damon[美]，袁勤勇譯. Visual . 北京：清華大學(xué)出版社，2002，3：4556[5] +：清華大學(xué)出版社，2008。在課題系統(tǒng)設(shè)計(jì)開發(fā)期間，各項(xiàng)工作都是由本人獨(dú)立完成，這些工作包括系統(tǒng)的需求分析、功能結(jié)構(gòu)分析、技術(shù)路線分析、數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì),同時(shí)還包括分析并選擇本系統(tǒng)采用的服務(wù)器、數(shù)據(jù)庫服務(wù)器以及對相關(guān)技術(shù)進(jìn)行的學(xué)習(xí)等。、用戶特點(diǎn)和運(yùn)行環(huán)境等相關(guān)角度出發(fā)，詳細(xì)探討了系統(tǒng)的需求特點(diǎn)，、C/S設(shè)計(jì)模式的思想為基