发布时间 : 星期日 文章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