📄 frmreaderload.frm
字号:
VERSION 5.00
Begin VB.Form Frmreaderload
Caption = "教师"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4320
Icon = "frmreaderload.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
ScaleHeight = 3195
ScaleWidth = 4320
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton Cmdadd
Caption = "添加(&A)"
Height = 375
Left = 1680
TabIndex = 7
Top = 2640
Width = 975
End
Begin VB.Frame Frame1
Height = 2295
Left = 360
TabIndex = 3
Top = 120
Width = 3495
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1440
TabIndex = 9
Top = 960
Width = 1215
End
Begin VB.TextBox Txtbox
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 1440
TabIndex = 6
Top = 1440
Width = 1215
End
Begin VB.TextBox Txtname
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 1440
TabIndex = 0
Top = 480
Width = 1215
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "信箱"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 2
Left = 600
TabIndex = 8
Top = 1560
Width = 450
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "办公室"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 3
Left = 600
TabIndex = 5
Top = 1080
Width = 675
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "姓名"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 1
Left = 600
TabIndex = 4
Top = 600
Width = 450
End
End
Begin VB.CommandButton Cmdno
Caption = " 取消(&C)"
Height = 375
Left = 2280
TabIndex = 1
Top = 2640
Visible = 0 'False
Width = 975
End
Begin VB.CommandButton Cmdyes
Caption = " 确定(&Q)"
Height = 375
Left = 960
TabIndex = 2
Top = 2640
Visible = 0 'False
Width = 975
End
End
Attribute VB_Name = "Frmreaderload"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public p As String
'Download by http://www.codefans.net
Private Sub Cmdadd_Click() '//y
'Call serialid
'If p = "np" Then
'Exit Sub
'End If
Me.Frame1.Enabled = True
'Me.Txtname.Enabled = True
'Me.Combo1.Enabled = True
'Me.Txtbox.Enabled = True
Me.Txtname.Text = ""
Me.Txtname.SetFocus
Me.Cmdadd.Visible = False
Me.Cmdyes.Visible = True
Me.Cmdno.Visible = True
End Sub
Private Sub Cmdno_Click()
Unload Me
End Sub
Private Sub Cmdyes_Click() '//y
Dim s As String
If Me.Txtname.Text = "" Then
MsgBox "请输入姓名！", vbExclamation, "教师"
Exit Sub
End If
If Me.Combo1.Text = "" Then
MsgBox "请选择办公室！", vbExclamation, "教师"
Exit Sub
End If
If Me.Txtbox.Text = "" Then
MsgBox "请输入信箱！", vbExclamation, "教师"
Exit Sub
End If
'//检验唯一性
'//若没有重复，则添加教师信息
With Frmreadermodify.Adodc1 '//y
If Me.Caption = "教师" Then
sql = "select * from teacher where name='" & Trim(Me.Txtname.Text) & "'"
.CommandType = adCmdText
.RecordSource = sql
.Refresh
.CommandType = adCmdTable
If .Recordset.RecordCount <> 0 Then
MsgBox "教师姓名重复！" & vbCrLf & "若出现相同名字请在其名字后输入字符加以区分。", vbExclamation, "杂志录入"
Me.Txtname.SetFocus
Exit Sub
End If
.Recordset.AddNew
.Recordset.Fields(0).Value = Trim(Me.Txtname.Text)
.Recordset.Fields(1).Value = Trim(Me.Combo1.Text)
.Recordset.Fields(2).Value = Trim(Me.Txtbox.Text)
.Recordset.Update
Me.Cmdadd.Visible = True
Me.Cmdyes.Visible = False
Me.Cmdno.Visible = False
Me.Frame1.Enabled = False
Else
'.Fields(0).Value = Trim(Me.Txtname.Text)
.Recordset.Fields(1).Value = Trim(Me.Combo1.Text)
.Recordset.Fields(2).Value = Trim(Me.Txtbox.Text)
.Recordset.Update
Me.Caption = "教师"
Unload Me
MsgBox "该教师信息修改成功！", vbExclamation, "修改"
End If
Me.Txtname.Text = ""
End With
End Sub
Private Sub Combo1_GotFocus()
Me.Combo1.ListIndex = 0
End Sub
Private Sub Form_Load()
Me.Combo1.AddItem "董事长室"
Me.Combo1.AddItem "校长室"
Me.Combo1.AddItem "校务办1"
Me.Combo1.AddItem "校务办2"
Me.Combo1.AddItem "教导处1"
Me.Combo1.AddItem "教导处2"
Me.Combo1.AddItem "总务处1"
Me.Combo1.AddItem "总务处2"
Me.Combo1.AddItem "1办"
Me.Combo1.AddItem "2办"
Me.Combo1.AddItem "3办"
Me.Combo1.AddItem "4办"
Me.Combo1.AddItem "5办"
Me.Combo1.AddItem "6办"
Me.Combo1.AddItem "7办"
Me.Combo1.AddItem "8办"
Me.Combo1.AddItem "9办"
Me.Combo1.AddItem "10办"
Me.Combo1.AddItem "11办"
Me.Combo1.AddItem "12办"
Me.Combo1.AddItem "13办"
Me.Combo1.AddItem "文印室"
Me.Combo1.AddItem "实验室"
Me.Combo1.AddItem "图书室"
Me.Combo1.AddItem "阅览室"
If Me.Caption = "教师" Then
Me.Frame1.Enabled = False
'Else
' Me.Txtname.Enabled = False
' Me.Frame1.Enabled = True
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Frmreadermodify.Adodc1.CommandType = adCmdText
Frmreadermodify.Adodc1.RecordSource = "select * from teacher order by office"
Frmreadermodify.Adodc1.Refresh
Frmreadermodify.Adodc1.CommandType = adCmdTable
End Sub
Private Sub Txtbox_GotFocus()
If Me.Combo1.Text <> "" Then
Me.Txtbox.Text = Me.Combo1.Text
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -