文件名称：企业人事管理信息系统
文件大小：701KB
文件格式：RAR
更新时间：2012-07-08 02:02:45
企业
SQL+VB做成的licit Public gUserName As String Public gUserKind As String Public gEmployeeId As String Public gLoginSucceeded As Boolean Public Const BLUE = &HFF0000 Public Const WHITE = &H80000005 Sub Main() Dim fLogin As New frmLogin '启动登录窗体 fLogin.Show vbModal '装入并显示模式窗体。 If Not gLoginSucceeded Then MsgBox "系统启动失败,请重试!", vbOKOnly + vbExclamation, "警告" End If Unload fLogin End Sub Public Function ConnectString() As String ConnectString = "Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=DBManPower;Data Source=127.0.0.1;" End Function Public Function ExecuteSQL(ByVal SQL As String, rst As ADODB.Recordset, _ Optional enableWrite As Boolean = True) As Boolean Dim con As ADODB.Connection Dim sTokens() As String On Error GoTo Execute_Error sTokens = Split(SQL) Set con = New ADODB.Connection con.Open ConnectString '打开数据库 Set rst = New ADODB.Recordset If enableWrite Then '读写方式 rst.Open Trim$(SQL), con, adOpenStatic, adLockOptimistic Else '只读方式 rst.Open Trim$(SQL), con, adOpenStatic, adLockReadOnly End If ExecuteSQL = True Exit Function Execute_Error: ExecuteSQL = False Exit Function End Function Public Function DBExist(ByVal SQL As String) As Integer Dim con As ADODB.Connection Dim sTokens() As String Dim flag As String Dim rst As ADODB.Recordset sTokens = Split(SQL) Set con = New ADODB.Connection con.Open ConnectString flag = ExecuteSQL(SQL, rst, False) '判断该记录是否存在 If rst.RecordCount <> 0 Then DBExist = rst.RecordCount Else DBExist = 0 End If con.Close End Function Public Function txtIsNull(txt As TextBox) As Boolean If Trim(txt.Text) = "" Then txtIsNull = True txt.SetFocus txt.BackColor = BLUE Else txtIsNull = False End If
【文件预览】：
覃月林 0604402126
----database()
--------DBManPower_log.LDF(504KB)
--------DBManPower.mdf(1.13MB)
----form()
--------VBB04.tmp(2KB)
--------VB8A8.tmp(44KB)
--------Form1.frm(11KB)
--------Module1pPeople.bas(434B)
--------QQ.frm(45KB)
--------frmPassord.frm(4KB)
--------VB7FE.tmp(2KB)
--------工程1.vbp(2KB)
--------MSSCCPRJ.SCC(190B)
--------Form2.frm(5KB)
--------frmDep.frx(11KB)
--------VB202.tmp(2KB)
--------yun.frm(15KB)
--------DataReport1.Dsr(16KB)
--------DataReport1.dsx(31B)
--------VB8B0.tmp(44KB)
--------frmValue.frm(21KB)
--------Module1.bas(41B)
--------Const.bas(178B)
--------VB205.tmp(44KB)
--------frmOptions.frm(17KB)
--------DataReport1.DCA(48KB)
--------Module1people.bas(3KB)
--------DataEnvironment1.dsx(446B)
--------frmFamily.frm(14KB)
--------frmWorkRecord.frm(13KB)
--------工程1.vbw(758B)
--------frmDep.frm(11KB)
--------Form2.frx(523KB)
--------frmLogin.frm(4KB)
--------DbFunc.bas(1KB)
--------DataEnvironment1.Dsr(8KB)
--------VB7FB.tmp(44KB)
--------DataEnvironment1.DCA(7KB)