End If
Command3.Enabled = False
Next i
MsgBox "添加存储成功！"
Exit Sub
err:
MsgBox "存储错误！"
Call ExecErr(Date, Me.Caption, err.Number, err.Source, err.Description)
End Sub
Private Sub Form_Load()
Call ResizeInit(Me)
Set RSCount = New ADODB.Recordset
Dim rsbj As ADODB.Recordset
Set rsbj = New ADODB.Recordset
rsbj.Open "班级表", Con, adOpenStatic, adLockPessimistic, adCmdTable
Combo1.Clear
Combo1.Text = "请选择..."
Do While Not rsbj.EOF
Combo1.AddItem rsbj!班级
rsbj.MoveNext
Loop
If Permission > 0 Then Command3.Visible = False
End Sub
Private Sub Form_Resize()
Call ResizeForm(Me) '窗体改变时，控件随之变化
With Combo1
.Top = Label1(0).Top
.Left = Label13.Left
.Width = Label14.Width + Label13.Width
End With
With Combo3
.Top = Label4.Top
.Left = Label18.Left
.Width = txtZf(50).Width
End With
With Combo2
.Top = Label21.Top
.Left = Label3.Left
.Width = txtZf(70).Width + txtZf(80).Width
End With
Text1.Height = Combo1.Height
End Sub
Private Sub TabStrip1_Click()
End Sub
Private Sub txtZf_KeyPress(Index As Integer, KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub
5.教工档案卡界面设计与分析:
代码分析:
Private Sub cmdInquire_Click()
Dim txtSQL As String
Dim dd(4) As Boolean
txtSQL = "select * from 教工表 where"
If Check1(0).Value = 1 Then
If Trim(txtBm.Text) = "" Then
MsgBox "部门不能为空", vbOKOnly + vbExclamation, "警告"
txtBm.SetFocus
Exit Sub
Else
dd(0) = True
txtSQL = txtSQL & " 部门 = '" & Trim(txtBm.Text) & "'"
End If
End If
If Check1(1).Value = 1 Then
If Trim(txtXm.Text) = "" Then
MsgBox "姓名不能为空", vbOKOnly + vbExclamation, "警告"
txtXm.SetFocus
Exit Sub
Else
dd(1) = True
If dd(0) = True Then
txtSQL = txtSQL & " and 姓名 = '" & txtXm.Text & "'"