cushishuju.bas

引用枕善居网站上的职工工资系统

Attribute VB_Name = "CuShiShuJu"
Dim myWorkspace As Workspace
Dim dbs As DATABASE

Public Modify As Boolean
Public OriUser As String
Public i As String         '密码变量
Public i1 As String        '密码变量
Public Sub shujuku()
  Dim DataFileName As String
  DataFileName = "职工工资管理"
  If DataFileName <> "" Then
     If Right(DataFileName, 4) <> ".mdb" Then
        DataFileName = DataFileName & ".mdb"
    End If
    Set myWorkspace = DBEngine.Workspaces(0)
    Set myDatabase = myWorkspace.CreateDatabase(App.Path + "\" + _
    DataFileName, _
                          dbLangGeneral, dbVersion30)
   CJSJB
    End If
End Sub
Public Sub CJSJB()          '新建数据库
 Set dbs = OpenDatabase(App.Path + "\职工工资管理.mdb")
    
  ' 创建表
  dbs.Execute "CREATE   TABLE   mima   " _
  & "(name   TEXT,   passer   TEXT,   " _
  & "User_type   long );"
  
  dbs.Execute "CREATE   TABLE   SysLog   " _
  & "(LogDate   date,   LogTime   text," _
  & "LogType  text,  Title  text,  Body  text," _
  & "UserName   TEXT );"
  
  dbs.Execute "CREATE   TABLE   职工表   " _
  & "( 部门   text,   底薪   long,   补贴  long,  奖金  long," _
  & "养老保险  long, 医疗保险  long, 住房公积金  long," _
  & "所得税   long,  房帖   long,  应发   long, 实发  long," _
  & "姓名   TEXT   CONSTRAINT    姓名   " _
  & "PRIMARY  KEY );"

  dbs.Close
End Sub

Public Sub tianjiayonghu()                    '增加数据
  If Trim(FrmUserEdit.txtUserName) = "" Then
    MsgBox "请输入用户名", vbOKOnly + vbCritical, "警告"
    FrmUserEdit.txtUserName.SetFocus
    Exit Sub
  End If
 If Len(i) < 0 Then
    MsgBox "密码不能为空", vbOKOnly + vbCritical, "警告"
    Exit Sub
  End If
  If i <> i1 Then
    MsgBox "密码和确认密码不相同，请重新确认", vbOKOnly + vbCritical, "警告"
    Exit Sub
  End If
  
  With MyUser
  .name = MakeStr(FrmUserEdit.txtUserName)
  .passer = MakeStr(i) '(txtPass)
    Select Case FrmUserEdit.ComboType.Text
    Case "超级用户"
      .User_type = 1
    Case "系统管理员"
      .User_type = 2
    Case "系统操作员"
      .User_type = 3
    Case "普通用户"
      .User_type = 4
  End Select
  
  If Modify = False Then
    .Insert

  End If
 End With
 MsgBox "数据库文件已成功建立"
End Sub