frmsrtx.frm

企业人事管理系统,有考勤,人员管理等功能,值得研究,也是我付费弄来的,绝对超值

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmSRTX 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "生日提醒"
   ClientHeight    =   5580
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6975
   Icon            =   "frmSRTX.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   5580
   ScaleWidth      =   6975
   Begin MSComDlg.CommonDialog cdgMP 
      Left            =   3480
      Top             =   4080
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   5415
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6855
      _ExtentX        =   12091
      _ExtentY        =   9551
      _Version        =   393216
      Tabs            =   2
      TabHeight       =   520
      TabCaption(0)   =   "生日提醒"
      TabPicture(0)   =   "frmSRTX.frx":0442
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "grdSR"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).ControlCount=   1
      TabCaption(1)   =   "设定"
      TabPicture(1)   =   "frmSRTX.frx":045E
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Frame1"
      Tab(1).Control(1)=   "Frame2"
      Tab(1).ControlCount=   2
      Begin VB.Frame Frame2 
         Height          =   1215
         Left            =   -74880
         TabIndex        =   6
         Top             =   1920
         Width           =   6615
         Begin VB.TextBox txtMsg 
            Height          =   270
            Left            =   1440
            MaxLength       =   255
            TabIndex        =   9
            Text            =   "生日提醒！"
            Top             =   720
            Width           =   4695
         End
         Begin VB.CheckBox chkMsg 
            Caption         =   "启动时弹出对话框"
            Height          =   255
            Left            =   1440
            TabIndex        =   7
            Top             =   240
            Width           =   1815
         End
      End
      Begin VB.Frame Frame1 
         Height          =   1455
         Left            =   -74880
         TabIndex        =   2
         Top             =   480
         Width           =   6615
         Begin VB.CommandButton cmdBrower 
            Caption         =   "浏览(&B)..."
            Height          =   255
            Left            =   5040
            TabIndex        =   5
            Top             =   840
            Width           =   1095
         End
         Begin VB.TextBox txtMP 
            Height          =   270
            Left            =   1440
            TabIndex        =   4
            Top             =   840
            Width           =   3375
         End
         Begin VB.CheckBox chkBF 
            Caption         =   "启动时播放音乐"
            Height          =   255
            Left            =   1440
            TabIndex        =   3
            Top             =   360
            Width           =   1695
         End
         Begin MSForms.CommandButton cmdYL 
            Height          =   375
            Left            =   5040
            TabIndex        =   8
            Top             =   240
            Width           =   1095
            Caption         =   "预览"
            Size            =   "1931;661"
            FontName        =   "宋体"
            FontHeight      =   180
            FontCharSet     =   134
            FontPitchAndFamily=   34
            ParagraphAlign  =   3
         End
      End
      Begin MSFlexGridLib.MSFlexGrid grdSR 
         Height          =   4575
         Left            =   120
         TabIndex        =   1
         Top             =   600
         Width           =   6615
         _ExtentX        =   11668
         _ExtentY        =   8070
         _Version        =   393216
         ForeColor       =   -2147483635
         ForeColorFixed  =   -2147483635
         BackColorBkg    =   -2147483634
         GridColor       =   16744576
         SelectionMode   =   1
      End
   End
End
Attribute VB_Name = "frmSRTX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 Dim musicpath As String
Private Sub chkBF_Click()
 If chkBF.Value = 1 Then
   txtMP.Enabled = True
   cmdBrower.Enabled = True
 Else
   txtMP.Enabled = False
   cmdBrower.Enabled = False
 End If
 
End Sub



Private Sub chkMsg_Click()
 If chkMsg.Value = 1 Then
   txtMsg.Enabled = True
 Else
   txtMsg.Enabled = False
 End If
End Sub

Private Sub cmdBrower_Click()
 Dim gv As String
 cdgMP.Filter = "mp3文件(*.mp3)|*.mp3"
 cdgMP.ShowOpen
 If cdgMP.FileName <> "" Then
 txtMP.Text = cdgMP.FileName
 End If
End Sub

Private Sub cmdYL_Click()
  musicpath = txtMP.Text
 If cmdYL.Caption = "预览" Then
   playmusic musicpath
   cmdYL.Caption = "停止"
 Else
   stopmusic musicpath
  cmdYL.Caption = "预览"
 End If
End Sub

Private Sub Form_Load()
    Me.Left = ReadIni("生日提醒", "left")
    Me.Top = ReadIni("生日提醒", "top")


    Call GetSRList
    SSTab1.Tab = 0
    
    '从设置里读取配置信息
    Dim bfyy As Integer
    chkBF.Value = ReadIni("生日提醒", "启动时播放音乐")
   If chkBF.Value = 1 Then
      txtMP.Enabled = True
      cmdBrower.Enabled = True
   Else
      txtMP.Enabled = False
     cmdBrower.Enabled = False
   End If
    
   txtMP = ReadSIni("生日提醒", "音乐路径")
   chkMsg.Value = ReadIni("生日提醒", "启动时弹出对话框")
    If chkMsg.Value = 1 Then
    txtMsg.Enabled = True
      Else
      txtMsg.Enabled = False
    End If

   txtMsg.Text = ReadSIni("生日提醒", "提示文本")
End Sub
Private Sub GetSRList()
 Dim rs As ADODB.Recordset
  Dim strSql As String
  Dim strMsg As String
  Dim sr As Date '生日
  Dim rz As Date '今天的date
  
  strSql = "select * from t_br"
  Set rs = ExecuteSQL(strSql, strMsg)
  
  rs.MoveFirst

  With grdSR
  .Cols = rs.Fields.Count + 1
   For i = 1 To rs.Fields.Count
            .TextMatrix(0, i) = rs.Fields(i - 1).Name
       Next
  grdSR.Rows = 1
  Do While Not rs.EOF
  sr = rs.Fields("生日").Value
  rz = Date
  If isBirthday(rz, sr) = True Then
     grdSR.Rows = grdSR.Rows + 1
     '写入grid
      For i = 1 To rs.Fields.Count
        If IsNull(rs.Fields(i - 1)) Then
          .TextMatrix(.Rows - 1, i) = ""
        Else
          .TextMatrix(.Rows - 1, i) = rs.Fields(i - 1)
        End If
      Next
  End If
  rs.MoveNext
  Loop
  End With
  Set rs = Nothing
End Sub

Public Sub srtx()
  Dim rs As ADODB.Recordset
  Dim strSql As String
  Dim strMsg As String
  Dim sr As Date '生日
  Dim rz As Date '今天的date
  
  strSql = "select * from t_br"
  Set rs = ExecuteSQL(strSql, strMsg)
     rs.MoveFirst
   Do While Not rs.EOF
  sr = rs.Fields("生日").Value
  rz = Date
  If isBirthday(rz, sr) = True Then
     playmusic ReadSIni("生日提醒", "音乐路径")
     'Unload Me
     Exit Sub
  End If
  Loop
  Set rs = Nothing
End Sub

'比较今天和生日的月日，得出今天 是不是生日
Private Function isBirthday(ByVal td As Date, ByVal bd As Date) As Boolean
        If Month(td) = Month(bd) And Day(td) = Day(bd) Then
           isBirthday = True
           Exit Function
        End If
        isBirthday = False
End Function
 

Private Sub Form_Unload(Cancel As Integer)
  Call WriteIni("生日提醒", "left", Me.Left)
  Call WriteIni("生日提醒", "top", Me.Top)

   Call WriteIni("生日提醒", "启动时播放音乐", chkBF.Value)
   Call WriteSIni("生日提醒", "音乐路径", txtMP.Text)
   Call WriteIni("生日提醒", "启动时弹出对话框", chkMsg.Value)
   Call WriteSIni("生日提醒", "提示文本", txtMsg.Text)
End Sub


Private Sub grdSR_Click()

End Sub