开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > SQL Server > 查看源码
XianGaiKQ.frm
资源名称：20080403.rar　[点击查看]
上传用户：linhua1013
上传日期：2014-12-05
资源大小：375k
文件大小：30k
源码类别：

SQL Server

开发平台：

Visual Basic

XianGaiKQ.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form XiuGaiKQ 
  3.    Caption         =   "修改员工考勤"
  4.    ClientHeight    =   5535
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   6360
  8.    LinkTopic       =   "Form1"
  9.    MDIChild        =   -1  'True
  10.    ScaleHeight     =   5535
  11.    ScaleWidth      =   6360
  12.    Begin VB.CommandButton Shang_KQ 
  13.       Caption         =   "上 一 条"
  14.       Height          =   375
  15.       Left            =   240
  16.       TabIndex        =   23
  17.       Top             =   5040
  18.       Visible         =   0   'False
  19.       Width           =   1095
  20.    End
  21.    Begin VB.CommandButton Next_KQ 
  22.       Caption         =   "下 一 条"
  23.       Height          =   375
  24.       Left            =   5040
  25.       TabIndex        =   22
  26.       Top             =   5040
  27.       Visible         =   0   'False
  28.       Width           =   1095
  29.    End
  30.    Begin VB.CommandButton QuXiao_KQ 
  31.       Caption         =   "取   消"
  32.       Height          =   375
  33.       Left            =   3600
  34.       TabIndex        =   8
  35.       Top             =   5040
  36.       Width           =   1095
  37.    End
  38.    Begin VB.CommandButton QueDing_KQ 
  39.       Caption         =   "修   改"
  40.       Height          =   375
  41.       Left            =   1680
  42.       TabIndex        =   7
  43.       Top             =   5040
  44.       Width           =   1095
  45.    End
  46.    Begin VB.Frame Frame2 
  47.       Caption         =   "考勤信息"
  48.       Height          =   1215
  49.       Left            =   120
  50.       TabIndex        =   11
  51.       Top             =   1320
  52.       Width           =   6135
  53.       Begin VB.ComboBox KQleixing 
  54.          Height          =   300
  55.          ItemData        =   "XianGaiKQ.frx":0000
  56.          Left            =   1680
  57.          List            =   "XianGaiKQ.frx":0016
  58.          TabIndex        =   19
  59.          Top             =   240
  60.          Width           =   1455
  61.       End
  62.       Begin VB.ComboBox texRi_KQ 
  63.          Height          =   300
  64.          Left            =   4080
  65.          TabIndex        =   6
  66.          Text            =   "31"
  67.          Top             =   660
  68.          Width           =   615
  69.       End
  70.       Begin VB.ComboBox texYue_KQ 
  71.          Height          =   300
  72.          Left            =   3000
  73.          TabIndex        =   5
  74.          Text            =   "12"
  75.          Top             =   660
  76.          Width           =   615
  77.       End
  78.       Begin VB.ComboBox texNian_KQ 
  79.          Height          =   300
  80.          Left            =   1680
  81.          TabIndex        =   4
  82.          Text            =   "1984"
  83.          Top             =   660
  84.          Width           =   855
  85.       End
  86.       Begin VB.Label Label13 
  87.          AutoSize        =   -1  'True
  88.          Caption         =   "*"
  89.          ForeColor       =   &H008080FF&
  90.          Height          =   180
  91.          Left            =   5160
  92.          TabIndex        =   29
  93.          Top             =   720
  94.          Width           =   90
  95.       End
  96.       Begin VB.Label Label12 
  97.          AutoSize        =   -1  'True
  98.          Caption         =   "*"
  99.          ForeColor       =   &H008080FF&
  100.          Height          =   180
  101.          Left            =   3240
  102.          TabIndex        =   28
  103.          Top             =   300
  104.          Width           =   90
  105.       End
  106.       Begin VB.Label Label11 
  107.          AutoSize        =   -1  'True
  108.          Caption         =   "条记录"
  109.          Height          =   180
  110.          Left            =   4560
  111.          TabIndex        =   26
  112.          Top             =   300
  113.          Visible         =   0   'False
  114.          Width           =   540
  115.       End
  116.       Begin VB.Label TiaoShu_KQ 
  117.          AutoSize        =   -1  'True
  118.          Height          =   180
  119.          Left            =   4320
  120.          TabIndex        =   25
  121.          Top             =   300
  122.          Visible         =   0   'False
  123.          Width           =   90
  124.       End
  125.       Begin VB.Label Label9 
  126.          AutoSize        =   -1  'True
  127.          Caption         =   "该员工有"
  128.          Height          =   180
  129.          Left            =   3480
  130.          TabIndex        =   24
  131.          Top             =   300
  132.          Visible         =   0   'False
  133.          Width           =   720
  134.       End
  135.       Begin VB.Label Label8 
  136.          AutoSize        =   -1  'True
  137.          Caption         =   "考勤结果："
  138.          Height          =   180
  139.          Left            =   480
  140.          TabIndex        =   18
  141.          Top             =   300
  142.          Width           =   900
  143.       End
  144.       Begin VB.Label Label6 
  145.          AutoSize        =   -1  'True
  146.          Caption         =   "日"
  147.          Height          =   180
  148.          Left            =   4800
  149.          TabIndex        =   15
  150.          Top             =   720
  151.          Width           =   180
  152.       End
  153.       Begin VB.Label Label5 
  154.          AutoSize        =   -1  'True
  155.          Caption         =   "月"
  156.          Height          =   180
  157.          Left            =   3720
  158.          TabIndex        =   14
  159.          Top             =   720
  160.          Width           =   180
  161.       End
  162.       Begin VB.Label Label4 
  163.          AutoSize        =   -1  'True
  164.          Caption         =   "年"
  165.          Height          =   180
  166.          Left            =   2640
  167.          TabIndex        =   13
  168.          Top             =   720
  169.          Width           =   180
  170.       End
  171.       Begin VB.Label Label3 
  172.          AutoSize        =   -1  'True
  173.          Caption         =   "考勤时间："
  174.          Height          =   180
  175.          Left            =   480
  176.          TabIndex        =   12
  177.          Top             =   720
  178.          Width           =   900
  179.       End
  180.    End
  181.    Begin VB.Frame Frame1 
  182.       Caption         =   "员工信息"
  183.       Height          =   1095
  184.       Left            =   120
  185.       TabIndex        =   0
  186.       Top             =   120
  187.       Width           =   6135
  188.       Begin VB.ComboBox YGbianhao_KQ 
  189.          Height          =   300
  190.          Left            =   1440
  191.          TabIndex        =   1
  192.          Top             =   240
  193.          Width           =   1455
  194.       End
  195.       Begin VB.TextBox BuMen_KQ 
  196.          BackColor       =   &H80000011&
  197.          Enabled         =   0   'False
  198.          Height          =   270
  199.          Left            =   1440
  200.          TabIndex        =   3
  201.          Top             =   650
  202.          Width           =   4335
  203.       End
  204.       Begin VB.TextBox XingMing_KQ 
  205.          BackColor       =   &H80000011&
  206.          Enabled         =   0   'False
  207.          Height          =   270
  208.          Left            =   4320
  209.          TabIndex        =   2
  210.          Top             =   240
  211.          Width           =   1455
  212.       End
  213.       Begin VB.Label Label10 
  214.          AutoSize        =   -1  'True
  215.          Caption         =   "*"
  216.          ForeColor       =   &H008080FF&
  217.          Height          =   180
  218.          Left            =   3000
  219.          TabIndex        =   27
  220.          Top             =   280
  221.          Width           =   90
  222.       End
  223.       Begin VB.Label Label7 
  224.          AutoSize        =   -1  'True
  225.          Caption         =   "工作部门："
  226.          Height          =   180
  227.          Left            =   360
  228.          TabIndex        =   17
  229.          Top             =   720
  230.          Width           =   900
  231.       End
  232.       Begin VB.Label Label1 
  233.          AutoSize        =   -1  'True
  234.          Caption         =   "员工编号："
  235.          Height          =   180
  236.          Left            =   360
  237.          TabIndex        =   10
  238.          Top             =   285
  239.          Width           =   900
  240.       End
  241.       Begin VB.Label Label2 
  242.          AutoSize        =   -1  'True
  243.          Caption         =   "员工姓名："
  244.          Height          =   180
  245.          Left            =   3240
  246.          TabIndex        =   9
  247.          Top             =   285
  248.          Width           =   900
  249.       End
  250.    End
  251.    Begin VB.Frame Frame3 
  252.       Height          =   4695
  253.       Left            =   120
  254.       TabIndex        =   16
  255.       Top             =   120
  256.       Width           =   6135
  257.       Begin VB.Frame Frame4 
  258.          Caption         =   "备注"
  259.          Height          =   1815
  260.          Left            =   0
  261.          TabIndex        =   20
  262.          Top             =   2520
  263.          Width           =   6135
  264.          Begin VB.TextBox KQbeizhu 
  265.             Height          =   1335
  266.             Left            =   240
  267.             MultiLine       =   -1  'True
  268.             ScrollBars      =   2  'Vertical
  269.             TabIndex        =   21
  270.             Top             =   360
  271.             Width           =   5655
  272.          End
  273.       End
  274.       Begin VB.Label Label15 
  275.          AutoSize        =   -1  'True
  276.          Caption         =   "*"
  277.          ForeColor       =   &H008080FF&
  278.          Height          =   180
  279.          Left            =   4800
  280.          TabIndex        =   31
  281.          Top             =   4380
  282.          Width           =   90
  283.       End
  284.       Begin VB.Label Label14 
  285.          AutoSize        =   -1  'True
  286.          Caption         =   "为必填项！"
  287.          Height          =   180
  288.          Left            =   5040
  289.          TabIndex        =   30
  290.          Top             =   4380
  291.          Width           =   900
  292.       End
  293.    End
  294. End
  295. Attribute VB_Name = "XiuGaiKQ"
  296. Attribute VB_GlobalNameSpace = False
  297. Attribute VB_Creatable = False
  298. Attribute VB_PredeclaredId = True
  299. Attribute VB_Exposed = False
  300. 'Dim LieShu As Integer
  301. 'Dim Nian_KQ As Integer
  302. 'Dim Yue_KQ As Integer
  303. ''Dim Ri_KQ As Integer
  304. 'Dim RiShu_KQ As Integer
  305. 'Dim ShJquzhi_KQ As Integer
  306. 'Dim ShJzancun_KQ As String
  307. 'Dim ShJnianPD_KQ As Boolean
  308. 'Dim ShiJian_KQ As String
  309. 'Dim LShmima_KQ As String
  310. Dim CaoZuo_KQ As Integer
  311. 'Dim ZongJieRiQi_KQ As String
  312. 'Dim PDriqiTex_KQ As String
  313. 'Dim LPDriqiTex_KQ As String
  314. 'Dim PDriqiShu_KQ As Integer
  315. Dim LShbiao_KQ As New ADODB.Recordset
  316. '
  317. 'Private Sub Form_Load()
  318. '  Me.Height = 6495
  319. '  Me.Width = 6480
  320. '  Nian_KQ = 1990
  321. '
  322. '  If KQbiaoCZ.State = adStateOpen Then KQbiaoCZ.Close
  323. '  KQbiaoCZ.Open "select * from checkin", MySQL, adOpenKeyset, adLockPessimistic
  324. '  Do While Not KQbiaoCZ.EOF
  325. '     YGbianhao_KQ.AddItem KQbiaoCZ.Fields(0)
  326. '     KQbiaoCZ.MoveNext
  327. '  Loop
  328. '  KQbiaoCZ.MoveFirst
  329. ''  YGbianhao_KQ.ListIndex = 0
  330. '  Do While Nian_KQ < 2010
  331. '     texNian_KQ.AddItem Nian_KQ
  332. '     Nian_KQ = Nian_KQ + 1
  333. '  Loop
  334. '  For Yue_KQ = 1 To 12
  335. '     texYue_KQ.AddItem Yue_KQ
  336. '  Next Yue_KQ
  337. '  For RiShu_KQ = 1 To 31
  338. '     texRi_KQ.AddItem RiShu_KQ
  339. '  Next RiShu_KQ
  340. '  If TianJiaKQ_PD Then
  341. '     If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
  342. '     ChaKanJB.Open "select ygid,ygname from manrecord", MySQL, adOpenKeyset, adLockPessimistic
  343. '     YGbianhao_KQ.Clear
  344. '     Do While Not ChaKanJB.EOF
  345. '        YGbianhao_KQ.AddItem ChaKanJB.Fields(0)
  346. '        ChaKanJB.MoveNext
  347. '      Loop
  348. '     XiuGaiKQ.Caption = "添加员工考勤信息"
  349. '     QueDing_KQ.Caption = "添   加"
  350. '  ElseIf XiuGaiKQ_PD Then
  351. '     XiuGaiKQ.Caption = "修改员工考勤信息"
  352. '     QueDing_KQ.Caption = "修   改"
  353. '     textFuZhi_KQ
  354. '  ElseIf ShanChuKQ_PD Then
  355. '     XiuGaiKQ.Caption = "删除员工考勤信息"
  356. '     QueDing_KQ.Caption = "删   除"
  357. '     textFuZhi_KQ
  358. '  End If
  359. 'End Sub
  360. '
  361. 'Sub textFuZhi_KQ()
  362. '  For LieShu = 0 To 16
  363. '     If LieShu = 0 Or LieShu = 3 Then
  364. '     Else
  365. '        If KQbiaoCZ.Fields(LieShu) <> "" Then
  366. '           text_KQ(LieShu) = KQbiaoCZ.Fields(LieShu)
  367. '        Else
  368. '           If LieShu = 2 Then
  369. '              text_KQ(LieShu) = ""
  370. '           Else
  371. '              text_KQ(LieShu) = "0"
  372. '           End If
  373. '        End If
  374. '     End If
  375. '  Next LieShu
  376. '  YGbianhao_KQ.Text = KQbiaoCZ.Fields(0)
  377. ''  For ShJquzhi_KQ = 1 To Len(KQbiaoCZ.Fields(3)) + 1
  378. ''     ShJzancun_KQ = Mid(KQbiaoCZ.Fields(3), ShJquzhi_KQ, 1)
  379. ''     If ShJzancun_KQ = "-" Then
  380. ''        If ShJnianPD_KQ Then
  381. ''           texYue_KQ.Text = ShiJian_KQ
  382. ''           ShiJian_KQ = ""
  383. ''           ShJnianPD_KQ = False
  384. ''        Else
  385. ''           texNian_KQ.Text = ShiJian_KQ
  386. ''           ShiJian_KQ = ""
  387. ''           ShJnianPD_KQ = True
  388. ''        End If
  389. ''     ElseIf ShJzancun_KQ = "" Then
  390. ''        RiShu_KQ = RiJS(Trim(texNian_KQ), Trim(texYue_KQ))
  391. ''        texRi_KQ.Clear
  392. ''        For Ri_KQ = 1 To RiShu_KQ
  393. ''          texRi_KQ.AddItem Ri_KQ
  394. ''        Next Ri_KQ
  395. ''        texRi_KQ.Text = ShiJian_KQ
  396. ''        ShiJian_KQ = ""
  397. ''     Else
  398. ''        ShiJian_KQ = ShiJian_KQ & ShJzancun_KQ
  399. ''     End If
  400. ''  Next ShJquzhi_KQ
  401. '   RiQiFuZhi (Trim(Str(KQbiaoCZ.Fields(3))))
  402. '   texNian_KQ.Text = Nian
  403. '   texYue_KQ.Text = Yue
  404. '   texRi_KQ.Clear
  405. '   For RiShu_KQ = 1 To RiShu
  406. '     texRi_KQ.AddItem RiShu_KQ
  407. '   Next RiShu_KQ
  408. '   texRi_KQ.Text = Ri
  409. '  If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
  410. '  ChaKanJB.Open "select ygname from manrecord where ygid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
  411. '
  412. 'End Sub
  413. '
  414. 'Private Sub Form_Unload(Cancel As Integer)
  415. '  Set ChaKanJB = Nothing
  416. '  Set KQbiaoCZ = Nothing
  417. '  Set GZbiaoCZ = Nothing
  418. 'End Sub
  419. '
  420. 'Private Sub QueDing_KQ_Click()
  421. '  LShmima_KQ = InputBox("请输入当前管理员密码！", "公司员工管理系统")
  422. '  If LShmima_KQ <> DLyonghuMM Then
  423. '     MsgBox "密码错误！无法执行操作！", 48, "公司员工管理系统"
  424. '  Else
  425. '    If QueDing_KQ.Caption = "修   改" Then
  426. '        CaoZuo_KQ = MsgBox("密码正确！" & vbCrLf & "确定修改相关项吗？", 67, "公司员工管理系统")
  427. '        Select Case CaoZuo_KQ
  428. '           Case 6
  429. '             If YGbianhao_KQ.Text = "" Or texNian_KQ.Text = "" Or texYue_KQ.Text = "" Or texRi_KQ.Text = "" Then
  430. '                MsgBox "员工编号、考勤总结日期的年月日，均不能为空！" & vbCrLf & "请检查数据的正确完整性！", 48, "公司员工管理系统"
  431. '             Else
  432. ''                LShbiao_KQ.Open "select 总结日期 from checkin where 员工编号='" & YGbianhao_KQ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
  433. ''                If LShbiao_KQ.RecordCount = 0 Then
  434. ''                   Set LShbiao_KQ = Nothing
  435. ''                   ShuJuKufuzhi_KQ
  436. ''                Else
  437. ''                   Do While Not LShbiao_KQ.EOF
  438. ''                      If ZongJieRiQi_KQ = LShbiao_KQ.Fields(0) Then
  439. ''
  440. ''                   Loop
  441. '                ShuJuKufuzhi_KQ
  442. '             End If
  443. ''           Case 7
  444. ''             KQbiaoCZ.MoveFirst
  445. ''           Case 2
  446. ''              KQbiaoCZ.MoveFirst
  447. '           End Select
  448. '    ElseIf QueDing_KQ.Caption = "添   加" Then
  449. '       CaoZuo_KQ = MsgBox("密码正确！" & vbCrLf & "确定添加相关项吗？", 67, "公司员工管理系统")
  450. '       Select Case CaoZuo_KQ
  451. '           Case 6
  452. '             If YGbianhao_KQ.Text = "" Or texNian_KQ.Text = "" Or texYue_KQ.Text = "" Or texRi_KQ.Text = "" Then
  453. '                MsgBox "员工编号、考勤总结日期的年月日，均不能为空！" & vbCrLf & "请检查数据的正确完整性！", 48, "公司员工管理系统"
  454. '             Else
  455. '                ZongJieRiQi_KQ = texNian_KQ.Text & "-" & texYue_KQ.Text
  456. '                LShbiao_KQ.Open "select ygid from manrecord where ygid='" & YGbianhao_KQ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
  457. '                If LShbiao_KQ.RecordCount = 0 Then
  458. '                   MsgBox "数据库里面不存在这个编码的员工！请先添加员工的基本信息！", 48, "公司员工管理系统"
  459. '                   Set LShbiao_KQ = Nothing
  460. '                   Exit Sub
  461. '                Else
  462. '                   Set LShbiao_KQ = Nothing
  463. '                End If
  464. '                LShbiao_KQ.Open "select kqdata from checkin where kqid='" & YGbianhao_KQ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
  465. '                If LShbiao_KQ.RecordCount = 0 Then
  466. '                   Set LShbiao_KQ = Nothing
  467. '                   KQbiaoCZ.AddNew
  468. '                   ShuJuKufuzhi_KQ
  469. '                   KQbiaoCZ.Update
  470. '                Else
  471. '                   Do While Not LShbiao_KQ.EOF
  472. '                      PDriqiShu_KQ = 0
  473. '                      For ShJquzhi_KQ = 1 To Len(LShbiao_KQ.Fields(0))
  474. '                          LPDriqiTex_KQ = Mid(LShbiao_KQ.Fields(0), ShJquzhi_KQ, 1)
  475. '                          If LPDriqiTex_KQ = "-" Then
  476. '                             If PDriqiShu_KQ = 0 Then
  477. '                                PDriqiShu_KQ = 1
  478. '                                PDriqiTex_KQ = PDriqiTex_KQ & LPDriqiTex_KQ
  479. '                             Else
  480. '                                Exit For
  481. '                             End If
  482. '                          Else
  483. '                             PDriqiTex_KQ = PDriqiTex_KQ & LPDriqiTex_KQ
  484. '                          End If
  485. '                      Next ShJquzhi_KQ
  486. '                      If ZongJieRiQi_KQ = PDriqiTex_KQ Then
  487. '                         MsgBox "此人此月的考勤信息已经存在！", 48, "公司员工管理系统"
  488. '                         Set LShbiao_KQ = Nothing
  489. '                         Exit Sub
  490. '                      Else
  491. '                         LShbiao_KQ.MoveFirst
  492. '                      End If
  493. '                   Loop
  494. '                   Set LShbiao_KQ = Nothing
  495. '                   KQbiaoCZ.AddNew
  496. '                   ShuJuKufuzhi_KQ
  497. '                   KQbiaoCZ.Update
  498. '                End If
  499. '             End If
  500. ''           Case 2
  501. ''             KQbiaoCZ.MoveFirst
  502. '       End Select
  503. '    ElseIf QueDing_KQ.Caption = "删   除" Then
  504. '       CaoZuo_KQ = MsgBox("密码正确！" & vbCrLf & "确定删除此条记录吗？", 67, "公司员工管理系统")
  505. '       Select Case CaoZuo_KQ
  506. '           Case 6
  507. '             KQbiaoCZ.Delete
  508. '             KQbiaoCZ.MoveFirst
  509. '             textFuZhi_KQ
  510. '       End Select
  511. '    End If
  512. '  End If
  513. 'End Sub
  514. '
  515. 'Private Sub QuXiao_KQ_Click()
  516. '  Unload Me
  517. 'End Sub
  518. '
  519. 'Private Sub texNian_KQ_Click()
  520. '  BenYueTSh
  521. '  RiShu = RiJS(Trim(texNian_KQ), Trim(texYue_KQ))
  522. '  texRi_KQ.Clear
  523. '  For RiShu_KQ = 1 To RiShu
  524. '    texRi_KQ.AddItem RiShu_KQ
  525. '  Next RiShu_KQ
  526. '  texRi_KQ.Text = "1"
  527. 'End Sub
  528. '
  529. 'Private Sub texRi_KQ_Click()
  530. '  BenYueTSh
  531. 'End Sub
  532. '
  533. 'Private Sub text_KQ_Change(Index As Integer)
  534. '  Select Case Index
  535. '    Case 16
  536. '      text_KQ(12) = Val(Trim(text_KQ(16))) - 4 - Val(Trim(text_KQ(9)))
  537. '    Case 12
  538. '      text_KQ(13) = Val(Trim(text_KQ(12))) - Val(Trim(text_KQ(4))) - Val(Trim(text_KQ(5))) - Val(Trim(text_KQ(6))) - Val(Trim(text_KQ(8))) + Val(Trim(text_KQ(10))) + Val(Trim(text_KQ(11)))
  539. '    Case 9
  540. '      text_KQ(12) = Val(Trim(text_KQ(16))) - 4 - Val(Trim(text_KQ(9)))
  541. '    Case 4
  542. '      text_KQ(13) = Val(Trim(text_KQ(12))) - Val(Trim(text_KQ(4))) - Val(Trim(text_KQ(5))) - Val(Trim(text_KQ(6))) - Val(Trim(text_KQ(8))) + Val(Trim(text_KQ(10))) + Val(Trim(text_KQ(11)))
  543. '      text_KQ(15) = Val(Trim(text_KQ(4))) * 10 + Val(Trim(text_KQ(5))) * 15 + Val(Trim(text_KQ(6))) * 30 + Val(Trim(text_KQ(8))) * 100
  544. '    Case 5
  545. '      text_KQ(13) = Val(Trim(text_KQ(12))) - Val(Trim(text_KQ(4))) - Val(Trim(text_KQ(5))) - Val(Trim(text_KQ(6))) - Val(Trim(text_KQ(8))) + Val(Trim(text_KQ(10))) + Val(Trim(text_KQ(11)))
  546. '      text_KQ(15) = Val(Trim(text_KQ(4))) * 10 + Val(Trim(text_KQ(5))) * 15 + Val(Trim(text_KQ(6))) * 30 + Val(Trim(text_KQ(8))) * 100
  547. '    Case 6
  548. '      text_KQ(13) = Val(Trim(text_KQ(12))) - Val(Trim(text_KQ(4))) - Val(Trim(text_KQ(5))) - Val(Trim(text_KQ(6))) - Val(Trim(text_KQ(8))) + Val(Trim(text_KQ(10))) + Val(Trim(text_KQ(11)))
  549. '      text_KQ(15) = Val(Trim(text_KQ(4))) * 10 + Val(Trim(text_KQ(5))) * 15 + Val(Trim(text_KQ(6))) * 30 + Val(Trim(text_KQ(8))) * 100
  550. '    Case 7
  551. '      text_KQ(14) = Val(Trim(text_KQ(10))) * 200 + Val(Trim(text_KQ(11))) * 150 + Val(Trim(text_KQ(7))) * 20
  552. '    Case 8
  553. '      text_KQ(13) = Val(Trim(text_KQ(12))) - Val(Trim(text_KQ(4))) - Val(Trim(text_KQ(5))) - Val(Trim(text_KQ(6))) - Val(Trim(text_KQ(8))) + Val(Trim(text_KQ(10))) + Val(Trim(text_KQ(11)))
  554. '      text_KQ(15) = Val(Trim(text_KQ(4))) * 10 + Val(Trim(text_KQ(5))) * 15 + Val(Trim(text_KQ(6))) * 30 + Val(Trim(text_KQ(8))) * 100
  555. '    Case 10
  556. '      text_KQ(13) = Val(Trim(text_KQ(12))) - Val(Trim(text_KQ(4))) - Val(Trim(text_KQ(5))) - Val(Trim(text_KQ(6))) - Val(Trim(text_KQ(8))) + Val(Trim(text_KQ(10))) + Val(Trim(text_KQ(11)))
  557. '      text_KQ(14) = Val(Trim(text_KQ(10))) * 200 + Val(Trim(text_KQ(11))) * 150 + Val(Trim(text_KQ(7))) * 20
  558. '    Case 11
  559. '      text_KQ(13) = Val(Trim(text_KQ(12))) - Val(Trim(text_KQ(4))) - Val(Trim(text_KQ(5))) - Val(Trim(text_KQ(6))) - Val(Trim(text_KQ(8))) + Val(Trim(text_KQ(10))) + Val(Trim(text_KQ(11)))
  560. '      text_KQ(14) = Val(Trim(text_KQ(10))) * 200 + Val(Trim(text_KQ(11))) * 150 + Val(Trim(text_KQ(7))) * 20
  561. '  End Select
  562. 'End Sub
  563. '
  564. 'Private Sub texYue_KQ_Click()
  565. '  BenYueTSh
  566. '  RiShu = RiJS(Trim(texNian_KQ), Trim(texYue_KQ))
  567. '  texRi_KQ.Clear
  568. '  For RiShu_KQ = 1 To RiShu
  569. '    texRi_KQ.AddItem RiShu_KQ
  570. '  Next RiShu_KQ
  571. '  texRi_KQ.Text = "1"
  572. 'End Sub
  573. '
  574. 'Private Sub YGbianhao_KQ_Click()
  575. '  If TianJiaKQ_PD Then
  576. '    Set ChaKanJB = Nothing
  577. '    ChaKanJB.Open "select ygname from manrecord where ygid='" & YGbianhao_KQ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
  578. ''    For LieShu = 1 To 2
  579. ''      If ChaKanJB.Fields(LieShu) <> "" Then
  580. ''         text_KQ(LieShu) = ChaKanJB.Fields(LieShu)
  581. ''      Else
  582. ''         text_KQ(LieShu) = ""
  583. ''      End If
  584. ''    Next LieShu
  585. '    text_KQ(1) = ChaKanJB.Fields("ygname")
  586. '    Set GZbiaoCZ = Nothing
  587. '    GZbiaoCZ.Open "select * from manappraise where wid='" & YGbianhao_KQ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
  588. '    If GZbiaoCZ.RecordCount = 0 Then
  589. '      MsgBox "没有此编号员工的工作信息！请及时添加或询问管理员！", 48, "公司员工管理系统"
  590. '    Else
  591. '      If GZbiaoCZ.Fields("wdept") = "" Then
  592. '        MsgBox "此编号员工的工作信息不全，请及时添加或询问管理员！", 48, "公司员工管理系统"
  593. '      Else
  594. '        text_KQ(2) = GZbiaoCZ.Fields("wdept")
  595. '      End If
  596. '    End If
  597. '  Else
  598. '    Set KQbiaoCZ = Nothing
  599. '    KQbiaoCZ.Open "select * from checkin where kqid='" & YGbianhao_KQ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
  600. '    textFuZhi_KQ
  601. '  End If
  602. 'End Sub
  603. '
  604. 'Sub ShuJuKufuzhi_KQ()
  605. '  KQbiaoCZ.Fields(0) = YGbianhao_KQ.Text
  606. '  For LieShu = 0 To 16
  607. '     If LieShu = 0 Or LieShu = 3 Then
  608. '     Else
  609. '        If text_KQ(LieShu).Text = "" Then
  610. '           KQbiaoCZ.Fields(LieShu) = 0
  611. '        Else
  612. '           KQbiaoCZ.Fields(LieShu) = Trim(text_KQ(LieShu).Text)
  613. '        End If
  614. '     End If
  615. '  Next LieShu
  616. '  KQbiaoCZ.Fields(3) = texNian_KQ.Text & "-" & texYue_KQ.Text & "-" & texRi_KQ.Text
  617. '  KQbiaoCZ.Update
  618. 'End Sub
  619. '
  620. 'Sub BenYueTSh()
  621. '  RiQi1 = texNian_KQ & "/" & texYue_KQ & "/" & 1
  622. '  RiQi2 = texNian_KQ & "/" & texYue_KQ & "/" & texRi_KQ
  623. '  text_KQ(16).Text = Trim(Str(DateDiff("d", RiQi1, RiQi2)))
  624. '
  625. '
  626. 'End Sub
  628. Sub TextFuZhi_KQ()
  629.   YGbianhao_KQ.Text = KQbiaoCZ.Fields(0)
  630.   KQleixing.Text = KQbiaoCZ.Fields(1)
  631.   KQbeizhu = IIf(KQbiaoCZ.Fields(3) = Null, "", KQbiaoCZ.Fields(3))
  632.    RiQiFuZhi (Trim(Str(KQbiaoCZ.Fields(2))))
  633.    texNian_KQ.Text = Nian
  634.    texYue_KQ.Text = Yue
  635.    texRi_KQ.Clear
  636.    For RiShu_KQ = 1 To RiShu
  637.      texRi_KQ.AddItem RiShu_KQ
  638.    Next RiShu_KQ
  639.    texRi_KQ.Text = Ri
  640.    If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
  641.    ChaKanJB.Open "select ygname from manrecord where ygid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
  642.    XingMing_KQ = IIf(ChaKanJB.Fields(0) = Null, "", ChaKanJB.Fields(0))
  643.    If GZbiaoCZ.State = adStateOpen Then GZbiaoCZ.Close
  644.    GZbiaoCZ.Open "select wdept from manappraise where wid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
  645.     If GZbiaoCZ.RecordCount <> 0 Then
  646.       BuMen_KQ = IIf(GZbiaoCZ.Fields(0) = Null, "", GZbiaoCZ.Fields(0))
  647.     Else
  648.       MsgBox "此编号员工没有相应的工作信息！请及时向管理员反映！", 48, "公司员工管理系统"
  649.       BuMen_KQ = ""
  650.     End If
  651.    If LShbiao_KQ.State = adStateOpen Then LShbiao_KQ.Close
  652.    LShbiao_KQ.Open "select * from checkin where kqid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
  653.    TiaoShu_KQ.Caption = LShbiao_KQ.RecordCount
  654. End Sub
  656. Private Sub Form_Load()
  657.   Me.Height = 6045
  658.   Me.Width = 6480
  659.   Nian_KQ = 1990
  660.   If KQbiaoCZ.State = adStateOpen Then KQbiaoCZ.Close
  661.   KQbiaoCZ.Open "select * from checkin", MySQL, adOpenKeyset, adLockPessimistic
  662.   If LShbiao_KQ.State = adStateOpen Then LShbiao_KQ.Close
  663.   LShbiao_KQ.Open "select kqid from checkin group by kqid", MySQL, adOpenKeyset, adLockPessimistic
  664.   Do While Not LShbiao_KQ.EOF
  665.      YGbianhao_KQ.AddItem LShbiao_KQ.Fields(0)
  666.      LShbiao_KQ.MoveNext
  667.   Loop
  668.   KQbiaoCZ.MoveFirst
  669.   Do While Nian_KQ < 2010
  670.      texNian_KQ.AddItem Nian_KQ
  671.      Nian_KQ = Nian_KQ + 1
  672.   Loop
  673.   For Yue_KQ = 1 To 12
  674.      texYue_KQ.AddItem Yue_KQ
  675.   Next Yue_KQ
  676.   For RiShu_KQ = 1 To 31
  677.      texRi_KQ.AddItem RiShu_KQ
  678.   Next RiShu_KQ
  679.   If TianJiaKQ_PD Then
  680.      If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
  681.      ChaKanJB.Open "select ygid,ygname from manrecord", MySQL, adOpenKeyset, adLockPessimistic
  682.      YGbianhao_KQ.Clear
  683.      Do While Not ChaKanJB.EOF
  684.         YGbianhao_KQ.AddItem ChaKanJB.Fields(0)
  685.         ChaKanJB.MoveNext
  686.       Loop
  687.      XiuGaiKQ.Caption = "添加员工考勤信息"
  688.      QueDing_KQ.Caption = "添   加"
  689.      QuXiao_KQ.Visible = False
  690.      QueDing_KQ.Left = 2760
  691.   ElseIf XiuGaiKQ_PD Then
  692.      XiuGaiKQ.Caption = "修改员工考勤信息"
  693.      QueDing_KQ.Caption = "修   改"
  694.      Next_KQ.Visible = True
  695.      Shang_KQ.Visible = True
  696.      TiaoShu_KQ.Visible = True
  697.      Label11.Visible = True
  698.      Label9.Visible = True
  699.      TextFuZhi_KQ
  700.   ElseIf ShanChuKQ_PD Then
  701.      XiuGaiKQ.Caption = "删除员工考勤信息"
  702.      QueDing_KQ.Caption = "删   除"
  703.      Next_KQ.Visible = True
  704.      Shang_KQ.Visible = True
  705.      TiaoShu_KQ.Visible = True
  706.      Label11.Visible = True
  707.      Label9.Visible = True
  708.      TextFuZhi_KQ
  709.   End If
  710. End Sub
  712. Private Sub Next_KQ_Click()
  713.   KQbiaoCZ.MoveNext
  714.   If KQbiaoCZ.EOF Then KQbiaoCZ.MovePrevious
  715. '    KQbiaoCZ.MoveLast
  716. '    TextFuZhi_KQ
  717.     TextFuZhi_KQ
  718. End Sub
  720. Private Sub QueDing_KQ_Click()
  721.   If QueDing_KQ.Caption = "添   加" Then
  722.     CaoZuo_KQ = MsgBox("确定添加此条记录么？", 51, "公司员工管理系统")
  723.     If CaoZuo_KQ = 6 Then
  724.       If YGbianhao_KQ.Text = "" Or KQleixing.Text = "" Or texNian_KQ.Text = "" Or texYue_KQ.Text = "" Or texRi_KQ.Text = "" Then
  725.         MsgBox "员工编号、考勤结果、考勤时间均为考勤信息的基本项目！不能为空！", 48, "公司员工管理系统"
  726.         YGbianhao_KQ.SetFocus
  727.         YGbianhao_KQ.SelStart = 0
  728.         YGbianhao_KQ.SelLength = Len(YGbianhao_KQ)
  729.       Else
  730. '        If LShbiao_KQ.State = adstaeopen Then LShbiao_KQ.Close
  731. '        If KQbiaoCZ.State = adStateOpen Then KQbiaoCZ.Close
  732. '        KQbiaoCZ.Open ""
  733. '        If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
  734. '        ChaKanJB.Open "select * from manrecord where ygid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
  735. '        If ChaKanJB.RecordCount = 0 Then
  736. '          MsgBox "没有此编号员工的基本信息！请先添加员工基本信息！", 48, "公司员工管理系统"
  737. '          Exit Sub
  738. '        Else
  739.           KQbiaoCZ.AddNew
  740.           KQbiaoCZ.Fields(0) = Trim(YGbianhao_KQ.Text)
  741.           KQbiaoCZ.Fields(1) = Trim(KQleixing.Text)
  742.           KQbiaoCZ.Fields(2) = Trim(texNian_KQ.Text) & "-" & Trim(texYue_KQ.Text) & "-" & Trim(texRi_KQ.Text)
  743.           KQbiaoCZ.Fields(3) = Trim(KQbeizhu)
  744.           KQbiaoCZ.Update
  745.           MsgBox "添加成功！", , "恭喜！^_^"
  746.           YGbianhao_KQ.Text = ""
  747.           XingMing_KQ = ""
  748.           BuMen_KQ = ""
  749.           KQleixing.Text = ""
  750. '          exNian_KQ.Text = ""
  751.           KQbeizhu = ""
  752. '        End If
  753.       End If
  754.     End If
  755.   ElseIf QueDing_KQ.Caption = "修   改" Then
  756.     CaoZuo_KQ = MsgBox("确定修改么？", 51, "公司员工管理系统")
  757.     If CaoZuo_KQ = 6 Then
  758.       If YGbianhao_KQ.Text = "" Or KQleixing.Text = "" Or texNian_KQ.Text = "" Or texYue_KQ.Text = "" Or texRi_KQ.Text = "" Then
  759.         MsgBox "员工编号、考勤结果、考勤时间均为考勤信息的基本项目！不能为空！", 48, "公司员工管理系统"
  760.         YGbianhao_KQ.SetFocus
  761.         YGbianhao_KQ.SelStart = 0
  762.         YGbianhao_KQ.SelLength = Len(YGbianhao_KQ)
  763.       Else
  764.         KQbiaoCZ.Fields(0) = Trim(YGbianhao_KQ.Text)
  765.         KQbiaoCZ.Fields(1) = Trim(KQleixing.Text)
  766.         KQbiaoCZ.Fields(2) = Trim(texNian_KQ.Text) & "-" & Trim(texYue_KQ.Text) & "-" & Trim(texRi_KQ.Text)
  767.         KQbiaoCZ.Fields(3) = Trim(KQbeizhu)
  768.         KQbiaoCZ.Update
  769.         MsgBox "修改成功！", , "恭喜！^_^"
  770.       End If
  771.     End If
  772.   ElseIf QueDing_KQ.Caption = "删   除" Then
  773.     CaoZuo_KQ = MsgBox("确定要删除此条记录么？", 51, "公司员工管理系统")
  774.     If CaoZuo_KQ = 6 Then
  775.       KQbiaoCZ.Delete
  776.       KQbiaoCZ.MoveNext
  777.       If KQbiaoCZ.EOF Then KQbiaoCZ.MovePrevious
  778.       TextFuZhi_KQ
  779.     End If
  780.   End If
  781. End Sub
  783. Private Sub QuXiao_KQ_Click()
  784.   Unload Me
  785. End Sub
  787. Private Sub Shang_KQ_Click()
  788.   KQbiaoCZ.MovePrevious
  789.   If KQbiaoCZ.BOF Then KQbiaoCZ.MoveNext
  790. '    KQbiaoCZ.MoveFirst
  791. '    TextFuZhi_KQ
  792.     TextFuZhi_KQ
  793. End Sub
  795. Private Sub YGbianhao_KQ_Click()
  796.   If TianJiaKQ_PD Then
  797.     If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
  798.     ChaKanJB.Open "select ygname from manrecord where ygid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
  799.     XingMing_KQ = IIf(ChaKanJB.Fields(0) = Null, "", ChaKanJB.Fields(0))
  800.     If GZbiaoCZ.State = adStateOpen Then GZbiaoCZ.Close
  801.     GZbiaoCZ.Open "select wdept from manappraise where wid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
  802.     If GZbiaoCZ.RecordCount <> 0 Then
  803.       BuMen_KQ = IIf(GZbiaoCZ.Fields(0) = Null, "", GZbiaoCZ.Fields(0))
  804.     Else
  805.       MsgBox "此编号员工没有相应的工作信息！请及时向管理员反映！", 48, "公司员工管理系统"
  806.       BuMen_KQ = ""
  807.     End If
  808.   Else
  809.     If KQbiaoCZ.State = adStateOpen Then KQbiaoCZ.Close
  810.     KQbiaoCZ.Open "select * from checkin where kqid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
  811.     TextFuZhi_KQ
  812.   End If
  813. End Sub
  815. Private Sub YGbianhao_KQ_LostFocus()
  816.     If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
  817.     ChaKanJB.Open "select ygname from manrecord where ygid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
  818.     If ChaKanJB.RecordCount = 0 Then
  819.       MsgBox "没有此编号员工的基本信息！请先添加员工基本信息！", 48, "公司员工管理系统"
  820.       YGbianhao_KQ.SetFocus
  821.       YGbianhao_KQ.SelStart = 0
  822.       YGbianhao_KQ.SelLength = Len(YGbianhao_KQ)
  823.   '    Exit Sub
  824.     Else
  825.       XingMing_KQ = IIf(ChaKanJB.Fields(0) = Null, "", ChaKanJB.Fields(0))
  826.     End If
  827.     If GZbiaoCZ.State = adStateOpen Then GZbiaoCZ.Close
  828.     GZbiaoCZ.Open "select wdept from manappraise where wid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
  829.     If GZbiaoCZ.RecordCount <> 0 Then
  830.       BuMen_KQ = IIf(GZbiaoCZ.Fields(0) = Null, "", GZbiaoCZ.Fields(0))
  831.     Else
  832.       MsgBox "此编号员工没有相应的工作信息！请及时向管理员反映！", 48, "公司员工管理系统"
  833.       BuMen_KQ = ""
  834.     End If
  835. End Sub