?? mailform.vb
字號:
Me.BtnLoad.Text = "加載"
'
'BtnAdd
'
Me.BtnAdd.Location = New System.Drawing.Point(80, 368)
Me.BtnAdd.Name = "BtnAdd"
Me.BtnAdd.Size = New System.Drawing.Size(64, 24)
Me.BtnAdd.TabIndex = 4
Me.BtnAdd.Text = "添加記錄"
'
'BtnEdit
'
Me.BtnEdit.Location = New System.Drawing.Point(152, 368)
Me.BtnEdit.Name = "BtnEdit"
Me.BtnEdit.Size = New System.Drawing.Size(64, 24)
Me.BtnEdit.TabIndex = 5
Me.BtnEdit.Text = "修改記錄"
'
'BtnDel
'
Me.BtnDel.Location = New System.Drawing.Point(224, 368)
Me.BtnDel.Name = "BtnDel"
Me.BtnDel.Size = New System.Drawing.Size(64, 24)
Me.BtnDel.TabIndex = 6
Me.BtnDel.Text = "刪除記錄"
'
'BtnUpdate
'
Me.BtnUpdate.Location = New System.Drawing.Point(296, 368)
Me.BtnUpdate.Name = "BtnUpdate"
Me.BtnUpdate.Size = New System.Drawing.Size(64, 24)
Me.BtnUpdate.TabIndex = 7
Me.BtnUpdate.Text = "更新"
'
'BtnQuery
'
Me.BtnQuery.Location = New System.Drawing.Point(368, 368)
Me.BtnQuery.Name = "BtnQuery"
Me.BtnQuery.Size = New System.Drawing.Size(64, 24)
Me.BtnQuery.TabIndex = 8
Me.BtnQuery.Text = "查詢"
'
'BtnExit
'
Me.BtnExit.Location = New System.Drawing.Point(440, 368)
Me.BtnExit.Name = "BtnExit"
Me.BtnExit.Size = New System.Drawing.Size(64, 24)
Me.BtnExit.TabIndex = 9
Me.BtnExit.Text = "退出"
'
'btnNavFirst
'
Me.btnNavFirst.Location = New System.Drawing.Point(102, 336)
Me.btnNavFirst.Name = "btnNavFirst"
Me.btnNavFirst.Size = New System.Drawing.Size(40, 23)
Me.btnNavFirst.TabIndex = 31
Me.btnNavFirst.Text = "<<"
'
'btnNavPrev
'
Me.btnNavPrev.Location = New System.Drawing.Point(144, 336)
Me.btnNavPrev.Name = "btnNavPrev"
Me.btnNavPrev.Size = New System.Drawing.Size(40, 23)
Me.btnNavPrev.TabIndex = 32
Me.btnNavPrev.Text = "<"
'
'lblNavLocation
'
Me.lblNavLocation.BackColor = System.Drawing.Color.White
Me.lblNavLocation.Location = New System.Drawing.Point(176, 336)
Me.lblNavLocation.Name = "lblNavLocation"
Me.lblNavLocation.Size = New System.Drawing.Size(95, 23)
Me.lblNavLocation.TabIndex = 33
Me.lblNavLocation.Text = "無記錄"
Me.lblNavLocation.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btnNavNext
'
Me.btnNavNext.Location = New System.Drawing.Point(269, 336)
Me.btnNavNext.Name = "btnNavNext"
Me.btnNavNext.Size = New System.Drawing.Size(40, 23)
Me.btnNavNext.TabIndex = 34
Me.btnNavNext.Text = ">"
'
'btnLast
'
Me.btnLast.Location = New System.Drawing.Point(310, 336)
Me.btnLast.Name = "btnLast"
Me.btnLast.Size = New System.Drawing.Size(40, 23)
Me.btnLast.TabIndex = 35
Me.btnLast.Text = ">>"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(512, 405)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnNavFirst, Me.btnNavPrev, Me.lblNavLocation, Me.btnNavNext, Me.btnLast, Me.BtnExit, Me.BtnQuery, Me.BtnUpdate, Me.BtnDel, Me.BtnEdit, Me.BtnAdd, Me.BtnLoad, Me.GroupBox3, Me.GroupBox2, Me.GroupBox1})
Me.Name = "Form1"
Me.Text = "主窗體"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub BtnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLoad.Click
On Error Resume Next
TestWS = Engine.Workspaces(0)
'申請數據空間
TestDB = TestWS.OpenDatabase("H:\學生名冊.mdb")
'打開數據庫
TestRS = TestDB.OpenRecordset("SELECT * FROM 學生信息 INNER JOIN 原學歷 ON 學生信息.學號 =原學歷.學號 Order by 學生信息.學號")
'打開記錄集
ShowData()
'顯示數據
TestRS.MoveLast()
TestRS.MoveFirst()
Me.lblNavLocation.Text = (TestRS.AbsolutePosition + 1).ToString + "/" + TestRS.RecordCount.ToString()
Me.BtnAdd.Enabled = True
Me.BtnDel.Enabled = True
Me.BtnEdit.Enabled = True
Me.BtnUpdate.Enabled = True
Me.BtnQuery.Enabled = True
'設置按鈕有效狀態
End Sub
Public Sub ShowData()
On Error Resume Next
Me.Edit一級學科.Text = TestRS.Fields("一級學科").Value.ToString
'在Edit一級學科文本框中顯示“一級學科”字段的值
Me.Edit二級學科.Text = TestRS.Fields("二級學科").Value.ToString
'在“Edit二級學科”文本框中顯示“二級學科”字段的值
Me.Edit入學年月.Text = TestRS.Fields("入學年月").Value.ToString
'在“Edit入學年月”文本框中顯示“入學年月”字段的值
Me.Edit出生日期.Text = TestRS.Fields("出生日期").Value.ToString
'在“Edit出生日期”文本框中顯示“出生日期”字段的值
Me.Edit原單位.Text = TestRS.Fields("原單位").Value.ToString
'在“Edit原單位”文本框中顯示“原單位”字段的值
Me.Edit國別.Text = TestRS.Fields("國別(或港澳臺)").Value.ToString
'在“Edit國別”文本框中顯示“國別(或港澳臺)”字段的值
Me.Edit大學專業.Text = TestRS.Fields("大學專業").Value.ToString
'在“Edit大學專業”文本框中顯示“大學專業”字段的值
Me.Edit大學專業號.Text = TestRS.Fields("大學專業號").Value.ToString
'在“Edit大學專業號”文本框中顯示“大學專業號”字段的值
Me.Edit大學畢年月.Text = TestRS.Fields("大學畢年月").Value.ToString
'在“Edit大學畢年月”文本框中顯示“大學畢年月”字段的值
Me.Edit大學畢校.Text = TestRS.Fields("大學畢校").Value.ToString
'在“Edit大學畢?！蔽谋究蛑酗@示“大學畢校”字段的值
Me.Edit大學畢校號.Text = TestRS.Fields("大學畢校號").Value.ToString
'在“Edit大學畢校號”文本框中顯示“大學畢校號”字段的值
Me.Edit姓名.Text = TestRS.Fields("姓名").Value.ToString
'在“EditEdit姓名”文本框中顯示“姓名”字段的值
Me.Edit委定單位.Text = TestRS.Fields("委定單位").Value.ToString
'在“Edit委定單位”文本框中顯示“委定單位”字段的值
Me.Edit學號.Text = TestRS.Fields("學生信息.學號").Value.ToString
'在“Edit學號”中顯示“學號”字段的值
Me.Edit導師姓名.Text = TestRS.Fields("導師姓名").Value.ToString
'在“Edit導師姓名”文本框中顯示“導師姓名”字段的值
Me.Edit導師證號.Text = TestRS.Fields("導師證號").Value.ToString
'在“Edit導師證號”文本框中顯示“導師證號”字段的值
Me.CmbBox入學方式.Text = TestRS.Fields("入學方式").Value.ToString
'在“CmbBox入學方式”組合框中顯示“入學方式”字段的值
Me.CmbBox博碩.Text = TestRS.Fields("博士/碩士").Value.ToString
'在“CmbBox博碩”組合框中顯示“博士/碩士”字段的值
Me.CmbBox原學歷.Text = TestRS.Fields("原學歷").Value.ToString
'在“CmbBox原學歷”組合框中顯示“原學歷”字段的值
Me.CmbBox委定類別.Text = TestRS.Fields("委定類別").Value.ToString
'在“CmbBox委定類別”組合框中顯示“委定類別”字段的值
Me.CmbBox錄取類別.Text = TestRS.Fields("錄取類別").Value.ToString
'在“CmbBox錄取類別”組合框中顯示“錄取類別”字段的值
Me.CmbBox性別.Text = TestRS.Fields("性別").Value.ToString
'在“CmbBox性別”組合框中顯示“性別”字段的值
Me.CmbBox民族.Text = TestRS.Fields("民族").Value.ToString
'在“CmbBox民族”組合框中顯示“民族”字段的值
Me.CmbBox考生生源.Text = TestRS.Fields("考生生源").Value.ToString
'在“CmbBox考生來源”組合框中顯示“考生生源”字段的值
Me.CmbBox院.Text = TestRS.Fields("院(系、所)").Value.ToString
'在“CmbBox院”組合框中顯示“"院(系、所)”字段的值
End Sub
Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
On Error Resume Next
If Not TestRS.Updatable Then
MessageBox.Show("對不起，不能夠添加記錄", "出錯啦")
Exit Sub
End If
TestRS.AddNew()
'添加新記錄
EditFlag = "add"
Me.BtnAdd.Enabled = False
Me.BtnDel.Enabled = False
Me.BtnEdit.Enabled = False
Me.BtnLoad.Enabled = False
Me.BtnQuery.Enabled = False
'設置按鈕有效狀態
Me.Edit一級學科.Text = ""
Me.Edit二級學科.Text = ""
Me.Edit入學年月.Text = ""
Me.Edit出生日期.Text = ""
Me.Edit原單位.Text = ""
Me.Edit國別.Text = ""
Me.Edit大學專業.Text = ""
Me.Edit大學專業號.Text = ""
Me.Edit大學畢年月.Text = ""
Me.Edit大學畢校.Text = ""
Me.Edit大學畢校號.Text = ""
Me.Edit姓名.Text = ""
Me.Edit委定單位.Text = ""
Me.Edit學號.Text = ""
Me.Edit導師姓名.Text = ""
Me.Edit導師證號.Text = ""
Me.CmbBox入學方式.Text = ""
Me.CmbBox博碩.Text = ""
Me.CmbBox原學歷.Text = ""
Me.CmbBox委定類別.Text = ""
Me.CmbBox錄取類別.Text = ""
Me.CmbBox性別.Text = ""
Me.CmbBox民族.Text = ""
Me.CmbBox考生生源.Text = ""
Me.CmbBox院.Text = ""
End Sub
Private Sub BtnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUpdate.Click
On Error Resume Next
Dim flag As Boolean
flag = True
If Me.Edit學號.Text = "" Then flag = False
If Me.Edit姓名.Text = "" Then flag = False
If Me.CmbBox博碩.Text = "" Then flag = False
If Me.CmbBox博碩.Text = "" Then flag = False
If Me.Edit出生日期.Text = "" Then flag = False
If Me.CmbBox性別.Text = "" Then flag = False
If Me.Edit國別.Text = "" Then flag = False
If Not flag Then
MessageBox.Show("請輸入完整的學生信息！", "請重試", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
Else
If EditFlag = "add" Then
Dim TempRS As DAO.Recordset
TempRS = TestRS.Clone
TempRS.FindFirst("學生信息.學號=" + Me.Edit學號.Text)
If Not TempRS.NoMatch Then
MessageBox.Show("學號重復，清重新輸入!")
Exit Sub
End If
TempRS.Close()
TempRS = Nothing
End If
Dim a As Object
a = Me.Edit一級學科.Text
TestRS.Fields("一級學科").Value = a
'設置“一級學科”字段的值
a = Me.Edit二級學科.Text
TestRS.Fields("二級學科").Value = a
'設置“二級學科”字段的值
a = Me.Edit入學年月.Text
If a <> "" Then
TestRS.Fields("入學年月").Value = a
'設置“入學年月”字段的值
End If
a = Me.Edit出生日期.Text
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -