vb课程设计说明书格式

山东科技大学学生课程设计

Printer.Line (0, 250)-(1500, 250)

Printer.Print lb10.Caption + jobi.Caption + lb11.Caption + addri.Caption Printer.Line (0, 300)-(1500, 300)

Printer.Print lb12.Caption + edui.Caption + lb13.Caption + nati.Caption Printer.EndDoc ErrMsg:

If Err.Number <> 0 Then

MsgBox CStr(Err.Number) + Err.Description, vbOKOnly + vbCritical, \错误提示\

Exit Sub End If End Sub

Private Sub Form_Load() Dim i As Integer

On Error GoTo Err

db = \Security=SSPI;Persist Security Info=False;Initial Catalog=mstaff;DataSource=.\ conn.CursorLocation = adUseClient conn.Open db Exit Sub Err:

MsgBox Err.Number Unload Me End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) mainfrm.Enabled = True Set rst = Nothing conn.Close End Sub

Private Sub jsbt_Click() If csnoi.Text = \

MsgBox \请输入员工编号。\

45

山东科技大学学生课程设计

Exit Sub End If

If rst.State <> adStateClosed Then rst.Close

sSql = \rst.Open sSql, conn, adOpenStatic, adLockBatchOptimistic If rst.EOF Then

MsgBox \用户信息不存在，请查证员工编号。\ Exit Sub End If

While Not rst.EOF

snoi.Caption = rst.Fields(\

snamei.Caption = rst.Fields(\ genderi.Caption = rst.Fields(\ depti.Caption = rst.Fields(\ jobi.Caption = rst.Fields(\ birthi.Caption = rst.Fields(\ phonei.Caption = rst.Fields(\ addri.Caption = rst.Fields(\ edui.Caption = rst.Fields(\ nati.Caption = rst.Fields(\

majori.Caption = rst.Fields(\ emaili.Caption = rst.Fields(\ rst.MoveNext Wend End Sub

（10）调动信息打印

Option Explicit

Public conn As New ADODB.Connection Public rs As New ADODB.Recordset Public rst As New ADODB.Recordset Public db As String Private sSql As String Public fnt As Integer Public X As Integer Public Y As Integer

Private Sub dlist_Click()

46