上传文件控件 - VFP论坛 - 编程论坛档案馆

得分:0

以下是引用freejike在2013-12-23 21:03:14的发言：

帮忙看下登陆代码

我在数据环境已经添加数据库user

c_name=Alltrim(Thisform.text1.Value)
c_password=Alltrim(Thisform.text2.Value)

c_messageTitle='登陆系统'    &&指定对话框标题栏中的文本
nDialogType=4+32                             &&定义对话框内容

seek 用户名
If Alltrim(User.用户名)==''  &&用户名为空
。。。。。。。。。。。。。。。。

你所说数据表要定位，是这句问题
seek 用户名

第 42 楼

得分:0

回复 40楼 bccn0906

我用case也写了个，，表中有记录但是总是找不到，提示账号错误信息，我在表中已经建立你主索引和普通索引，在程序中也定义了索引

程序代码：

If c_name=='' And c_password==''
    c_messageText='请输入用户名和密码'
    nAnswer=Messagebox(c_messageText,nDialogType,c_messageTitle)
    Do Case
        Case nAnswer=6
            Thisform.text1.Value=''
            Thisform.text2.Value=''
            Thisform.text1.SetFocus
        Case nAnswer=7
            Thisform.Release
    Endcase
Else
    SET ORDER TO 编号   && 编号 
    GO TOP
    SEEK c_name
    If Found()
        Do Case
            Case User.密码==c_password
                Do Form Index.scx
                Thisform.Release
            Case  User.密码!=c_password
                c_messageText='请重新输入密码'
                nAnswer=Messagebox(c_messageText,nDialogType,c_messageTitle)
                Do Case
                    Case nAnswer=6
                        Thisform.text2.Value=''
                        Thisform.text2.SetFocus
                    Case nAnswer=7
                        Thisform.Release
                Endcase
        Endcase
    Else
        c_messageText='账号错误'
        nAnswer=Messagebox(c_messageText,nDialogType,c_messageTitle)
        Do Case
            Case nAnswer=6
                Thisform.text1.Value=''
                Thisform.text2.Value=''
                Thisform.text1.SetFocus
            Case nAnswer=7
                Thisform.Release
        Endcase

    Endif
ENDIF
ENDWITH

[ 本帖最后由 freejike 于 2013-12-23 22:36 编辑 ]

第 43 楼

得分:0

回复 40楼 bccn0906

谢谢，这个简介好懂

第 44 楼

得分:0

回复 41楼 bccn0906

你的简单实用，谢谢
但是为何我用的seek不能找到呢？

第 45 楼

得分:0

以下是引用freejike在2013-12-23 22:33:44的发言：

.....
    SET ORDER TO 编号   && 编号
    GO TOP
    SEEK c_name
    If Found()
..............

.............................
   *SET ORDER TO 编号 &&???不是按用户名索引吗
    set ORDER TO 用户名 in user
    if seek(c_name,'user')
...............................

第 46 楼

得分:0

回复 45楼 bccn0906

不行哦

第 47 楼

得分:0

回复 46楼 freejike

其实是很简单的代码，不行的话你就把代码和数据表贴上来，都不知你的实际情况，而你又不动下脑筋检一下数据，怎么回你。

第 48 楼

得分:0

回复 47楼 bccn0906

谢谢，我用你的了，把之前的删了。

第 49 楼

得分:0

回复 41楼 bccn0906

你好，请教vfp编译的程序怎么实现局域网内共享并行操作数据。并根据不同需求分配个人权限你好，1，请教vfp编译的程序怎么实现局域网内共享并行操作数据。并根据不同需求分配个人权限

[ 本帖最后由 freejike 于 2014-1-2 09:42 编辑 ]