?? frm開始.frm

?? 引用枕善居網站上的職工工資系統
?? FRM
?? 第 1 頁 / 共 3 頁
字號:
上一頁 1 23
ElseIf Dir(mfile) <> "" Then
If MsgBox("確定要恢復備份文件嗎？", vbYesNo, "請確認") = vbYes Then
    i = FileLen(mfile)
    ReDim buff(i - 1)
    Open mfile For Binary As #1
    Get #1, , buff
    Close #1
    Open mfile2 For Binary As #1
    Put #1, , buff
    Close #1
    Kill App.Path + "\Backup\$Back%.inf"
    MsgBox "恢復備份成功"
     RmDir App.Path + "\Backup"
    End If
    End If

                              '添加系統日志信息
  MyLog.Title = "成員:恢復數據庫記錄"
  MyLog.Body = "恢復備份"
  MyLog.LogType = "恢復備份"
  MyLog.UserName = CurUser.name
  MyLog.Save
End Sub
Private Sub ckrz_Click()
Line4.Visible = True
FrmLogMan.Show
End Sub

Private Sub MDIForm_Load()
  Call Menu
  xl = False
 PicPath = App.Path + "\Image\034.jpg" '圖片相對地址
 Picture = LoadPicture(PicPath)         '載入圖片
 MyMenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu MyMenu, &HF060, MF_BYCOMMAND

WindowsXPC1.InitSubClassing
Picture1.BackColor = &HD1D8DB
Picture2.BackColor = &HD1D8DB
Picture3.BackColor = &HD1D8DB
Picture4.BackColor = &HD1D8DB
Picture5.BackColor = &H80000007
Picture6.BackColor = &H80000007
XButton1.BackColor = &HD1D8DB
XButton1.MouseDownColor = RGB(182, 190, 220)
XButton1.MouseOnColor = RGB(182, 190, 220)
XButton2.BackColor = &HD1D8DB
XButton2.MouseDownColor = RGB(182, 190, 220)
XButton2.MouseOnColor = RGB(182, 190, 220)
XButton3.BackColor = &HD1D8DB
XButton3.MouseDownColor = RGB(182, 190, 220)
XButton3.MouseOnColor = RGB(182, 190, 220)
XButton4.BackColor = &HD1D8DB
XButton4.MouseDownColor = RGB(182, 190, 220)
XButton4.MouseOnColor = RGB(182, 190, 220)
XButton5.BackColor = &HD1D8DB
XButton5.MouseDownColor = RGB(182, 190, 220)
XButton5.MouseOnColor = RGB(182, 190, 220)
XButton6.BackColor = &HD1D8DB
XButton6.MouseOnColor = RGB(182, 190, 220)
XButton6.MouseDownColor = RGB(182, 190, 220)
XButton7.BackColor = &HD1D8DB
XButton7.MouseOnColor = RGB(182, 190, 220)
XButton7.MouseDownColor = RGB(182, 190, 220)
XButton8.BackColor = &HD1D8DB
XButton8.MouseOnColor = RGB(182, 190, 220)
XButton8.MouseDownColor = RGB(182, 190, 220)
XButton9.BackColor = &HD1D8DB
XButton9.MouseOnColor = RGB(182, 190, 220)
XButton9.MouseDownColor = RGB(182, 190, 220)
 If CurUser.User_type = 4 Then
 mnudataadd.Enabled = False
 mnudatadelete.Enabled = False
 mnudatamodify.Enabled = False
 mnusystjyh.Enabled = False
 bfxjk.Enabled = False        ''''
 hfbf.Enabled = False
 menuCSH.Enabled = False
 XButton2.Enabled = False
 XButton3.Enabled = False
 XButton4.Enabled = False
 ElseIf CurUser.User_type = 3 Then
mnudataadd.Enabled = True
mnudatadelete.Enabled = False
 mnudatamodify.Enabled = False
 mnusystjyh.Enabled = True
 bfxjk.Enabled = False        ''''
 hfbf.Enabled = False
 menuCSH.Enabled = False
 XButton2.Enabled = True
 XButton3.Enabled = False
 XButton4.Enabled = False
ElseIf CurUser.User_type = 2 Then
mnudataadd.Enabled = True
mnudatadelete.Enabled = False
 mnudatamodify.Enabled = True
 mnusystjyh.Enabled = True
 bfxjk.Enabled = False        ''''
 hfbf.Enabled = False
 menuCSH.Enabled = False
 XButton2.Enabled = True
 XButton3.Enabled = True
 XButton4.Enabled = False
 Else
 mnudataadd.Enabled = True
 mnudatadelete.Enabled = True
 mnudatamodify.Enabled = True
 mnusystjyh.Enabled = True
 bfxjk.Enabled = True      ''''
 hfbf.Enabled = True
 menuCSH.Enabled = True
 XButton2.Enabled = True
 XButton3.Enabled = True
 XButton4.Enabled = True
 End If

 Label2.Caption = "今天：" & Format(Date, "yy-mm-dd ")
 Label3.Caption = "當前用戶：" & Format(CurUser.name)
End Sub


Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If X < 10 Then
        frm側邊欄.Timer2.Enabled = False
        frm側邊欄.Timer1.Enabled = True
    Else
        frm側邊欄.Timer1.Enabled = False
        frm側邊欄.Timer2.Enabled = True
    End If
End Sub

Private Sub MDIForm_Resize()
frm側邊欄.Top = 0
frm側邊欄.Height = Me.ScaleHeight
Line4.X2 = Me.Width - 120
Picture4.Left = Me.Width - 420
Label1.Left = Me.Width - 1770
Line6.X1 = Me.Width - 1850
Line6.X2 = Me.Width - 1850
Line7.X1 = Me.Width - 1830
Line7.X2 = Me.Width - 1830
Label2.Left = Me.Width - 3380
Line8.X1 = Me.Width - 3450
Line8.X2 = Me.Width - 3450
Line9.X1 = Me.Width - 3430
Line9.X2 = Me.Width - 3430
Picture5.Left = 0
On Error GoTo a
Picture5.Width = Me.Width - 3460
a:
End Sub

Private Sub menuCSH_Click()
Kill App.Path + "\DATA\職工工資管理.mdb"
shujuku
FileCopy App.Path + "\職工工資管理.mdb", App.Path + "\DATA\職工工資管理.mdb"
Kill App.Path + "\職工工資管理.mdb"
With FrmUserEdit
   .txtUserName = "Admin"
   .txtPass = 123
   .txtPass2 = 123
   MyUser.User_type = 1
   tianjiayonghu
   End With
End Sub


Private Sub menxsgjl_Click()
If Picture1.Visible = True Then
menxsgjl.Caption = "顯示工具欄"
Picture1.Visible = False
Else
menxsgjl.Caption = "關閉工具欄"
Picture1.Visible = True
End If
End Sub

Private Sub menztlxs_Click()
If Picture3.Visible = True Then
menztlxs.Caption = "狀態欄顯示"
Picture3.Visible = False
Else
menztlxs.Caption = "狀態欄關閉"
Picture3.Visible = True
End If
End Sub

Private Sub mnusysquit_click()           '系統-退出菜單項                                        '關閉數據庫和表，結束程序運行
Dim yn As String
yn = MsgBox("確定要退出系統嗎？", vbYesNo, "退出確定")
If yn = vbYes Then
  End
End If
End Sub
Private Sub mnudataadd_click()       '數據維護-增加菜單項
   frm增加.Cmbbm.Text = ""
   frm增加.txtxm.Text = ""
   frm增加.txtdx.Text = ""
   frm增加.txtbt.Text = ""
   frm增加.txtjj.Text = ""
   frm增加.txtft.Text = ""
   frm增加.txtylbx.Text = ""
   frm增加.txtylbxj.Text = ""
   frm增加.txtzfgjj.Text = ""
   frm增加.Show 1
End Sub
Private Sub mnudatadelete_click()    '數據維護-刪除菜單項
frm刪除.cmbxm.Text = ""
frm刪除.txtbm = ""
frm刪除.txtdx = ""
frm刪除.txtbt = ""
frm刪除.txtjj = ""
frm刪除.txtft = ""
frm刪除.txtylbx = ""
frm刪除.txtylbxj = ""
frm刪除.txtzfgjj = ""
frm刪除.txtyf = ""
frm刪除.txtsds = ""
frm刪除.txtsf = ""
frm刪除.Show 1
End Sub
Private Sub mnudatamodify_click()    '數據維護-修改菜單項
   frm修改.Show 1
End Sub
Private Sub mnucountsectionave_click()    '統計-按部門-平均工資菜單項
   frm部門平均工資.Show 1
End Sub
Private Sub mnucountsectionemp_click()    '統計-按部門-職工人數菜單項
   frm統計部門人數.Text3.Text = ""
   frm統計部門人數.Show 1
End Sub
Private Sub mnucountsectionsum_click()    '統計-按部門-工資總額菜單項
   frm部門工資總數.Show 1
   
End Sub

Private Sub mnucountallave_click()    '統計-按全體-平均工資菜單項
   frm統計平均工資.Show 1
End Sub
Private Sub mnucountallemp_click()    '統計-按全體-職工人數菜單項
   frm統計人數.Show 1
End Sub
Private Sub mnucountallsum_click()    '統計-按全體-工資總額菜單項
   frm統計工資總數.Show 1
End Sub
Private Sub mnuqueryname_click()       '查詢-按姓名菜單項
frm姓名查詢.cmbxm.Text = ""
frm姓名查詢.txtbm = ""
frm姓名查詢.txtdx = ""
frm姓名查詢.txtbt = ""
frm姓名查詢.txtjj = ""
frm姓名查詢.txtft = ""
frm姓名查詢.txtylbx = ""
frm姓名查詢.txtylbxj = ""
frm姓名查詢.txtzfgjj = ""
frm姓名查詢.txtyf = ""
frm姓名查詢.txtsds = ""
frm姓名查詢.txtsf = ""
frm姓名查詢.Show 1
End Sub
Private Sub mnuquerydepart_click()       '查詢-按部門菜單項
   Line4.Visible = True
   frm部門查詢.Show
End Sub
Private Sub mnuHelpAbout_click()       '幫助-關于菜單項
   frm關于.Show 1
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then

    PopupMenu mnucount, vbPopupMenuCenterAlign Or vbpopupmenuright - Button, X, Y
    
    End If
 End Sub

Private Sub mnusystjyh_Click()
FrmUserMan.Show 1
End Sub

Private Sub mnusysxgmm_Click()
With FrmUserEdit
  .Caption = "修改密碼"
  .OriUser = CurUser.name
  .txtUserName = CurUser.name
  If CurUser.User_type = 1 Then
    .ComboType.AddItem "超級用戶"
  ElseIf CurUser.User_type = 2 Then
    .ComboType.AddItem "系統管理員"
  ElseIf CurUser.User_type = 3 Then
    .ComboType.AddItem "系統操作員"
    Else
    .ComboType.AddItem "普通用戶"
  End If
  .ComboType.ListIndex = 0
  .ComboType.Enabled = False
  .txtUserName = Trim(CurUser.name)   '用戶名
  .txtUserName.Enabled = False        '不允許修改用戶名
  .Modify = True
  .Show 1
  End With
                            '添加系統日志信息
  MyLog.Title = "成員:" + Trim(Me.Caption)
  MyLog.Body = "修改用戶密碼"
  MyLog.LogType = "修改"
  MyLog.UserName = CurUser.name
  MyLog.Save
End Sub

Private Sub Timer1_Timer()
    Picture6.Left = Picture6.Left + 20
If Picture6.Left >= Picture5.Width Then Picture6.Left = Picture5.Left - 2000
End Sub

Private Sub Timer2_Timer()
Label1.Caption = "現在：" & Format(Time, "hh:mm:ss")
End Sub

Private Sub Timer3_Timer()
frm側邊欄.Left = b
b = b - 1
End Sub

Private Sub XButton1_Click()
  mnusysquit_click
End Sub


Private Sub XButton2_Click()
frm增加.Cmbbm.Text = ""
frm增加.txtxm.Text = ""
frm增加.txtdx.Text = ""
frm增加.txtbt.Text = ""
frm增加.txtjj.Text = ""
frm增加.txtft.Text = ""
frm增加.txtylbx.Text = ""
frm增加.txtylbxj.Text = ""
frm增加.txtzfgjj.Text = ""
frm增加.Show 1
End Sub

Private Sub XButton3_Click()
frm修改.Show 1
End Sub

Private Sub XButton4_Click()
frm刪除.cmbxm.Text = ""
frm刪除.txtbm = ""
frm刪除.txtdx = ""
frm刪除.txtbt = ""
frm刪除.txtjj = ""
frm刪除.txtft = ""
frm刪除.txtylbx = ""
frm刪除.txtylbxj = ""
frm刪除.txtzfgjj = ""
frm刪除.txtyf = ""
frm刪除.txtsds = ""
frm刪除.txtsf = ""
frm刪除.Show 1
End Sub

Private Sub XButton5_Click()
frm姓名查詢.cmbxm.Text = ""
frm姓名查詢.txtbm = ""
frm姓名查詢.txtdx = ""
frm姓名查詢.txtbt = ""
frm姓名查詢.txtjj = ""
frm姓名查詢.txtft = ""
frm姓名查詢.txtylbx = ""
frm姓名查詢.txtylbxj = ""
frm姓名查詢.txtzfgjj = ""
frm姓名查詢.txtyf = ""
frm姓名查詢.txtsds = ""
frm姓名查詢.txtsf = ""
frm姓名查詢.Show 1
End Sub

Private Sub XButton6_Click()
Line4.Visible = True
frm部門查詢.Show
End Sub

Private Sub XButton7_Click()
frm關于.Show 1
End Sub

Private Sub XButton8_Click()
Line4.Visible = True
FrmLogMan.Show
End Sub

Private Sub XButton9_Click()
Dim X As Single
Dim Y As Single
X = XButton9.Left + 910
Y = Picture1.ScaleHeight + 7
PopupMenu mnusysyhgl, vbPopupMenuCenterAlign Or vbpopupmenuright, X, Y
End Sub
上一頁 1 23
?? 文件大小 1904 K
?? 上傳用戶 z3021440
?? 所屬分類其他數據庫
??? 相關標簽

#網站
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frm開始.frm

?? 快捷鍵說明
