Foxtable(狐表)用户栏目专家坐堂 → 关于表中记录一增加保存时不可再编辑的问题


  共有2262人关注过本帖树形打印复制链接

主题:关于表中记录一增加保存时不可再编辑的问题

帅哥哟,离线,有人找我吗?
scofields
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:564 积分:4561 威望:0 精华:0 注册:2016/4/17 20:05:00
关于表中记录一增加保存时不可再编辑的问题  发帖心情 Post By:2016/6/4 17:52:00 [只看该作者]

红袍老师,我想实现当表中增加保存记录时,不能随便修改,如果要修改的话,需输入指定的密码才可以修改,这个怎么写?写到哪个地方?跪谢

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/5 11:13:00 [只看该作者]

StartEdit事件

 

If e.Row.DataRow.RowState = DataRowState.Unchanged Then
    Dim pwd As String
    If InputPassWord(pwd,"提示","请输入密码:") Then
        Messagebox.Show("您输入的密码是:" & pwd)
        If pwd <> "1234" Then
            Messagebox.Show("密码错误")
            e.cancel = True
        End If
    End If
End If


 回到顶部
帅哥哟,离线,有人找我吗?
scofields
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:564 积分:4561 威望:0 精华:0 注册:2016/4/17 20:05:00
  发帖心情 Post By:2016/6/5 11:40:00 [只看该作者]

红袍老师,如果这段代码放入窗口的某个按钮里,比如说“解锁”,因为所有数据是通过窗口的Textbox与ComboBox控件录入,我的意思是修改记录前,指定的Textbox与ComboBox控件是不可用状态,单击“解锁”按钮输入密码后,就可以修改了。不好意思,第一遍,我没表述清楚。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/5 13:03:00 [只看该作者]

参考代码

 

Dim pwd As String
If InputPassWord(pwd,"提示","请输入密码:") Then
    Messagebox.Show("您输入的密码是:" & pwd)
    If pwd <> "1234" Then
        Messagebox.Show("密码错误")
    Else
        e.Form.controls("TextBox1").Enabled = True
        e.Form.controls("ComboBox1").Enabled = True
    End If
End If


 回到顶部