memo.frm

delphi财务管理系统.rar delphi财务管理系统.rar

VERSION 5.00
Begin VB.Form Form13 
   BorderStyle     =   1  'Fixed Single
   Caption         =   " 备注"
   ClientHeight    =   3735
   ClientLeft      =   3540
   ClientTop       =   3255
   ClientWidth     =   4530
   Icon            =   "memo.frx":0000
   LinkTopic       =   "Form13"
   MaxButton       =   0   'False
   Picture         =   "memo.frx":0442
   ScaleHeight     =   3735
   ScaleWidth      =   4530
   Begin VB.Timer Timer1 
      Left            =   2760
      Top             =   3480
   End
   Begin VB.Data Data2 
      Caption         =   "Data2"
      Connect         =   "Access"
      DatabaseName    =   "C:\人事管理系统\data\rsda.mdb"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   285
      Left            =   1320
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "zgbh"
      Top             =   3480
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "C:\人事管理系统\data\rsda.mdb"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   285
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "rsda"
      Top             =   3480
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      ForeColor       =   &H00FF0000&
      Height          =   3255
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   480
      Width           =   4575
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "职工编号:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   240
      TabIndex        =   4
      Top             =   120
      Width           =   975
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      DataField       =   "职工编号"
      DataSource      =   "Data1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   1080
      TabIndex        =   3
      Top             =   120
      Width           =   1095
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "职工姓名:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   2400
      TabIndex        =   2
      Top             =   120
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      DataField       =   "职工姓名"
      DataSource      =   "Data1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   3240
      TabIndex        =   1
      Top             =   120
      Width           =   1095
   End
   Begin VB.Menu mnus 
      Caption         =   "保存(&S)"
   End
   Begin VB.Menu mnuc 
      Caption         =   "清除(&E)"
   End
   Begin VB.Menu mnuca 
      Caption         =   "取消(&C)"
   End
   Begin VB.Menu mnuq 
      Caption         =   "退出(&Q)"
   End
End
Attribute VB_Name = "Form13"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim save, msg
Private Sub Data1_Validate(Action As Integer, save As Integer)
save = 0
End Sub

Private Sub Form_Activate()
On Error GoTo a0
Form13.Visible = True
'Form13.Height = 0
Timer1.Interval = 1
Timer1.Enabled = True
Dim a, c
a = Data2.Recordset("zgbh")
c = " 职工编号 Like '" & a & "'"
Data1.Recordset.FindFirst c
Data2.Recordset.Edit
Data2.Recordset("zgbh") = ""
Data2.Recordset.Update
Dim b, i As Integer, d As String, e, f
a = Data1.Recordset("备注")
e = Left(a, 1)
e = Asc(e) - 50
f = e
c = ""
For i = 2 To Len(a) - 1
b = Mid$(a, i, 1)
b = Chr(Asc(b) Xor e)
c = c + b
e = e + f
f = (-f)
Next i
Text1.Text = c
a0:
End Sub

Private Sub Form_Initialize()
Form13.Height = 0
End Sub

Private Sub Form_Load()
Form13.Height = 0
End Sub

Private Sub mnuc_Click()
On Error GoTo a0
Data1.Recordset.Edit
msg = MsgBox("确定要清除数据吗", vbQuestion + vbOKCancel, "提示信息")
If msg = vbCancel Then
Else
Text1.Text = ""
Data1.Recordset("备注") = "