vb.rar_Help!

登录部分

Private Sub cmdCancel_Click()

End

End Sub

Private Sub cmdOK_Click()

'检查正确的密码

If combo1.Text = "1" And txtPassword = "1" Or combo1.Text = "" And txtPassword = "" Then

'将代码放在这里传递

'成功到 calling 函数

MsgBox "用户名或密码错误，请重试!", , "登录"

combo1.SetFocus

txtPassword = ""

SendKeys "{Home}+{End}"

End If

End Sub

主窗体

Private Sub bz_Click()

Form7.Show

End Sub

Private Sub Command1_Click(Index As Integer)

If Index = 0 Then

Adodc2.Recordset.MoveFirst

End If

If Index = 1 Then

If Adodc2.Recordset.BOF Then

Adodc2.Recordset.MoveLast

Else

Adodc2.Recordset.MovePrevious

End If

If Index = 2 Then

If Adodc2.Recordset.EOF Then

Adodc2.Recordset.MoveFirst

Else

End If

Private Sub Form_Load()

Dim i As Integer

Dim str As String

Adodc1.ConnectionString = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path +

"\data.MDeersist Security Info=False"

Adodc1.CommandType = adCmdText

SQL = "select * from data order by 学号"

Adodc1.RecordSource = SQL

str = "select 学号,学期,科目,成绩 from chengji where 学号 = " & Val(Text1.Text) & " order by

学期"

"\data.MDeersist Security Info=False"

Adodc2.CommandType = adCmdText

SQL = str

Adodc2.RecordSource = SQL

tablename = "orders"

Adodc2.Refresh

Set DataGrid1.DataSource = Adodc2

DataGrid1.Refresh

End Sub

Private Sub Text1_Change()

Dim i As Integer

Dim str As String

str = "select 学号,学期,科目,成绩 from chengji where 学号 = " & Val(Text1.Text) & " order by

学期"

'MsgBox str

SQL = str

Private Sub xiugai_Click()

Form1.Show 1

End Sub

Private Sub xiugai1_Click()

Form6.Show 1

End Sub

Option Explicit

Dim UndoNew As String '用于 Undo 操作

ImgUndo.Enabled = False

ImgUndo.Picture = ImageDisable.ListImages("Undo").Picture

End Sub

Private Sub ImgUndoEnable()

'有效“Undo”按钮

ImgUndo.Enabled = True

ImgUndo.Picture = ImageUp.ListImages("Undo").Picture

End Sub

Private Sub Check_ImgPaste()

'设置粘贴按钮

If Len(Clipboard.GetText) > 0 Then

ImgPaste.Picture = ImageUp.ListImages("aste").Picture

Else

ImgPaste.Enabled = False

ImgPaste.Picture = ImageDisable.ListImages("aste").Picture

End Sub

'设置剪切、复制按钮

ImgCut.Picture = ImageDisable.ListImages("Cut").Picture

ImgCopy.Enabled = False

ImgCopy.Picture = ImageDisable.ListImages("Copy").Picture

End If

End Sub

Private Sub BackColor_Click()

CommonDialog1.ShowColor

Text1.BackColor = CommonDialog1.Color

End Sub

Private Sub Box_Click()

'将停显工具栏

CoolBar1.Visible = True

End If

Form_Resize '重新调整控件位置

End Sub

Private Sub Close_Click()

Dim FileNum As Integer

If Len(FileName) > 0 Then

'有输入文件名

FileNum = FreeFile() '获得可用文件号