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