开发工具:
文件大小: 42kb
下载次数: 0
上传时间: 2008-12-03
详细说明： Option Explicit Dim mrc As ADODB.Recordset Public txtSQL As String Dim MsgText As String Private Sub Form_Load() ShowTitle ShowData flagEdit = True End Sub Private Sub Form_Resize() If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then '边界处理 If Me.ScaleHeight < 10 * lblTitle.Height Then Exit Sub End If If Me.ScaleWidth < lblTitle.Width + lblTitle.Width / 2 Then Exit Sub End If '控制控件的位置 lblTitle.Top = lblTitle.Height lblTitle.Left = (Me.Width - lblTitle.Width) / 2 msgList.Top = lblTitle.Top + lblTitle.Height + lblTitle.Height / 2 msgList.Width = Me.ScaleWidth - 200 msgList.Left = Me.ScaleLeft + 100 msgList.Height = Me.ScaleHeight - msgList.Top - 200 End If End Sub '记录编辑 Public Sub RecordEdit() Dim intCount As Integer If msgList.Rows > 1 Then gintMode = EDIT intCount = msgList.Row gsSql = " where kqid='" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "' and kqdate=cdate('" & Format(msgList.TextMatrix(msgList.Row, 3), "yyyy-mm-dd") & "')" frmCheck1.Show 1 ShowData Call MovCursor(intCount, msgList) Else Call RecordAdd End If End Sub Public Sub FormClose() Unload Me End Sub '删除记录 Public Sub RecordDelete() Dim sSql As String Dim intCount As Integer On Error GoTo myErr If msgList.Rows > 1 Then If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then intCount = msgList.Row sSql = "delete from " & msTableName & " where kqid='" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "' and kqdate=cdate('" & Format(msgList.TextMatrix(msgList.Row, 3), "yyyy-mm-dd") & "')" dbHuaxia.Execute sSql, dbSQLPassThrough ShowData If msgList.Rows > 1 Then If intCount = msgList.Rows Then MovCursor msgList.Rows - 1, msgList Else MovCursor intCount, msgList End If End If End If End If Exit Sub myErr: ShowError End Sub '刷新表格 Public Sub RecordRefresh() '设置msSql msSql = msSelect & msTableName & " where kqdate>='" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "' and kqdate<='" & Format(Now, "yyyy-mm-dd") & "'" & msOrderBy '显示数据 msBarText = "当前数据时间范围：" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "至" & Format(Now, "yyyy-mm-dd") ShowData sOrder0 = "+ {kqdate}" sOrder1 = "" End Sub '记录添加 Public Sub RecordAdd() gintMode = Add frmCheck1.Show 1 ShowData End Sub '记录查询 Public Sub RecordFind() frmCheck2.Show 1 If Trim(frmCheck2.sQSql & " ") <> "" Then msSql = msSelect & msTableName & " where" & frmCheck2.sQSql msSql = msSql & msOrderBy ShowData End If Unload frmCheck2 End Sub '详细显示记录 Public Sub RecordView() If msgList.Rows > 1 = False Then gintMode = View gsSql = " where kqid='" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "' and kqdate=cdate('" & Format(msgList.TextMatrix(msgList.Row, 3), "yyyy-mm-dd") & "')" frmCheck1.Show 1 End If End Sub '显示Grid的内容 Public Sub ShowData() Dim j As Integer Dim i As Integer Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then With msgList .Rows = 1 Do While Not mrc.EOF .Rows = .Rows + 1 For i = 1 To mrc.Fields.Count Select Case mrc.Fields(i - 1).Type Case adDBDate .TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy-mm-dd") Case Else .TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & "" End Select Next i mrc.MoveNext Loop End With End If mrc.Close End Sub '显示Grid表头 Public Sub ShowTitle() Dim i As Integer With msgList .Cols = 22 .TextMatrix(0, 1) = "编号" .TextMatrix(0, 2) = "姓名" .TextMatrix(0, 3) = "日期" .TextMatrix(0, 4) = "本月天数" .TextMatrix(0, 5) = "公休假天数" .TextMatrix(0, 6) = "应出勤天数" .TextMatrix(0, 7) = "出勤" .TextMatrix(0, 8) = "旷工" .TextMatrix(0, 9) = "年休" .TextMatrix(0, 10) = "请假" .TextMatrix(0, 11) = "迟到" .TextMatrix(0, 12) = "早退" .TextMatrix(0, 13) = "忘定卡" .TextMatrix(0, 14) = "假日加班" .TextMatrix(0, 15) = "其他加班" .TextMatrix(0, 16) = "补休天数" .TextMatrix(0, 17) = "出差天数" .TextMatrix(0, 18) = "加班费" .TextMatrix(0, 19) = "扣考核" .TextMatrix(0, 20) = "其它" .TextMatrix(0, 21) = "备注" '固定表头 .FixedRows = 1 '设置各列的对齐方式 For i = 0 To 3 .ColAlignment(i) = 0 Next i For i = 4 To 19 .ColAlignment(i) = 7 Next i For i = 20 To 21 .ColAlignment(i) = 0 Next i '表头项居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 '设置单元大小 .ColWidth(0) = 300 .ColWidth(1) = 1000 .ColWidth(2) = 1000 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 1000 For i = 7 To 13 .ColWidth(i) = 600 Next i For i = 14 To 19 .ColWidth(i) = 800 Next i .ColWidth(20) = 2000 .ColWidth(21) = 1000 .Row = 1 End With End Sub Private Sub Form_Unload(Cancel As Integer) flagEdit = False gintMode = 0 End Sub Private Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) '右键弹出 If Button = 2 And Shift = 0 Then PopupMenu fMainForm.menuCheck End If End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
