Question

在页面上修改某个字段时,如何在提交时判断该字段有没有被修改过

js代码也行，后台代码也可以

Answer 1

常见方法有两种：
一、在客户端操作。
1 对页面原始值进行保存。
2 提交时，获取当前值。
3 用当前值与原始值进行对比。如果相同则表示没修改过。

二、在服务器端操作。
1 发送页面时不做任何处理。
2 提交时发送当前页面所有内容。
3 在服务器端拿到新数据后，再次读一次数据库，然后逐个字段进行对比。如果完全相同，表示没有修改过。

Answer 2

使用菜单数组
在文件菜单里增加一个菜单项,标题任意,现在假设菜单项的Name属性是mnuDynamic 
更改菜单项mnuDynamic的可见属性,使mnuDynamic.Visible= False 
更改菜单项mnuDynamic的下标(索引)属性,使mnuDynamic.Index=0 
在程序中控制菜单项mnuDynamic的动态装入。
Load mnuDynamic(1)
mnuDynamic(1).Caption = "动态菜单1"
mnuDynamic(1).Visible = True
使用用API函数
新建一个模块，复制以下代码。
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const MF_STRING = &H0&
Public Const MF_BYCOMMAND = &H0&
Public Const GWL_WNDPROC = (-4)
Public Const WM_COMMAND = &H111
Public OldWinProc As Long

Public Function OnMenu(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'{响应菜单事件}
If wMsg = WM_COMMAND Then
If wParam = 1000 Then MsgBox "Dynamic"
End If
OnMenu = CallWindowProc(OldWinProc, hwnd, wMsg, wParam, lParam)
End Function

窗体代码：
Private Sub Form_Load()
Dim hMenu As Long, hSubMenu As Long
hMenu = GetMenu(Me.hwnd)
hSubMenu = GetSubMenu(hMenu, 0)
InsertMenu hSubMenu, 0, MF_BYCOMMAND Or MF_STRING, 1000, "Dynamic"
OldWinProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf OnMenu)
End Sub

Answer 3

用js 吧
1）在页面载入时，保存字段值。
在点击提交时对比字段的现在值和已保存的值查看是否有改变
2）在字段，一般应该是文本框吧。 在其改变事件中（onchange() ），如果此事件激活了
可以认为有改变，稳妥的方式和1）结合起来。

Answer 4

把修改之前的数据读取出来，跟修改之后进行比较，有变化表示有修改啊，在PHP中有一个很好用的函数可以用来做判断的