frmeditbirthremind.frm

很好的个人数字助理软件代码

      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   ":"
      Height          =   225
      Left            =   3000
      TabIndex        =   17
      Top             =   1910
      Width           =   45
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "电话号码:"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   930
      TabIndex        =   16
      Top             =   2385
      Width           =   765
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "E-Mail:"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   1200
      TabIndex        =   15
      Top             =   2865
      Width           =   555
   End
   Begin VB.Line Line2 
      BorderWidth     =   2
      X1              =   5160
      X2              =   5160
      Y1              =   230
      Y2              =   4070
   End
   Begin VB.Line Line3 
      BorderWidth     =   2
      X1              =   0
      X2              =   5160
      Y1              =   4080
      Y2              =   4080
   End
   Begin VB.Label lblEdit 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "编辑"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   1140
      TabIndex        =   14
      Top             =   3615
      Width           =   360
   End
   Begin VB.Label lblCancel 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "取消"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3120
      TabIndex        =   13
      Top             =   3610
      Width           =   1455
   End
   Begin VB.Label Label9 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "DD/MM/YYYY"
      Height          =   225
      Left            =   3240
      TabIndex        =   10
      Top             =   950
      Width           =   1050
   End
   Begin VB.Label Label10 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "DD/MM/YYYY"
      Height          =   225
      Left            =   3240
      TabIndex        =   8
      Top             =   1430
      Width           =   1050
   End
   Begin VB.Shape shapeCaption 
      BackStyle       =   1  'Opaque
      BorderWidth     =   2
      Height          =   255
      Left            =   20
      Top             =   20
      Width           =   5160
   End
   Begin VB.Shape shapeEdit 
      BackStyle       =   1  'Opaque
      Height          =   495
      Left            =   600
      Top             =   3470
      Width           =   1455
   End
   Begin VB.Shape shapeCancel 
      BackStyle       =   1  'Opaque
      Height          =   495
      Left            =   3120
      Top             =   3470
      Width           =   1455
   End
End
Attribute VB_Name = "frmEditBirthRemind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim strUsername

Private Sub Form_Load()
strUsername = frmMain.lblUsername.Caption
Me.BackColor = RGB(145, 155, 100)
txtName.BackColor = RGB(145, 155, 100)
shapeEdit.BackColor = RGB(145, 155, 100)
shapeCancel.BackColor = RGB(145, 155, 100)
txtAP.Width = "375"
txtPHNo.BackColor = RGB(145, 155, 100)
txtBDate.BackColor = RGB(145, 155, 100)
txtRDate.BackColor = RGB(145, 155, 100)
txtEMail.BackColor = RGB(145, 155, 100)
txtHH.BackColor = RGB(145, 155, 100)
txtMM.BackColor = RGB(145, 155, 100)
txtSS.BackColor = RGB(145, 155, 100)
txtAP.BackColor = RGB(145, 155, 100)
shapeCaption.BackColor = vbBlack
lblCaption.ForeColor = RGB(145, 155, 100)

Dim db As Database
Dim ReS As Recordset

Set db = OpenDatabase(App.Path + "\Data\" + strUsername + "\BR.dat")
Set ReS = db.OpenRecordset("BR")

ReS.Move (frmBirthRemind.lstInfo.ListIndex)
txtName.Text = ReS("Name")
txtPHNo.Text = ReS("PHNo")
txtEMail.Text = ReS("EMail")
txtBDate.Text = ReS("BDate")
txtRDate.Text = ReS("RDate")
txtHH.Text = ReS("TimeH")
txtMM.Text = ReS("TimeM")
txtSS.Text = ReS("TimeS")
txtAP.Text = ReS("TimeAP")

ReS.Close
db.Close

Set ReS = Nothing
Set db = Nothing

End Sub

Private Sub lblCancelSupport_Click()
frmBirthRemind.Show
Unload Me
End Sub

Private Sub lblCancelSupport_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblCancel.ForeColor = RGB(145, 155, 100)
shapeCancel.BackColor = vbBlack
End Sub

Private Sub lblCancelSupport_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
shapeCancel.BackColor = RGB(145, 155, 100)
lblCancel.ForeColor = vbBlack
End Sub

Private Sub lblCaptionSupport_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DragForm Me
End Sub

Private Sub lblEditSupport_Click()
Dim db As Database
Dim ReS As Recordset

Set db = OpenDatabase(App.Path + "\Data\" + strUsername + "\BR.dat")
Set ReS = db.OpenRecordset("BR")

ReS.Move (frmBirthRemind.lstInfo.ListIndex)
ReS.Edit
ReS("Name") = txtName.Text
ReS("EMail") = txtEMail.Text
ReS("BDate") = txtBDate.Text
ReS("RDate") = txtRDate.Text
ReS("TimeH") = txtHH.Text
ReS("TimeS") = txtSS.Text
ReS("TimeM") = txtMM.Text
ReS("TimeAP") = txtAP.Text
ReS("PHNo") = txtPHNo.Text
ReS.Update

ReS.Close
db.Close

Set ReS = Nothing
Set db = Nothing

HDDMsgBox "Record Edited Successfully."
Unload frmBirthRemind
frmBirthRemind.Show
Unload Me
End Sub

Private Sub lblEditSupport_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblEdit.ForeColor = RGB(145, 155, 100)
shapeEdit.BackColor = vbBlack
End Sub

Private Sub lblEditSupport_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblEdit.ForeColor = vbBlack
shapeEdit.BackColor = RGB(145, 155, 100)
End Sub