主题：预览与上传

通过ftp上到服务器的文件，怎么处理才能先通过pic预览，不上传，确定后再上传。

老师，上传没得问题，但预览时，比如我选择了一个图片，怎么让pic里面预览显示，这个路径怎么写呢？

老师，麻烦看看保存按钮代码有什么问题，没上传成功？

Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
Dim ftp1 As new  ftpclient
ftp1.host="***.*.**.***"
ftp1.Account = "ft***5"
ftp1.password = "1*****"
Dim r As Row = Tables("账号密码").Current
For Each f As String In dlg.FileNames
    Dim file = "/" & r("姓名") & "/" & filesys.GetName(f)
    If ftp1.DirExists("/" & r("姓名")) = False Then
        ftp1.MakeDir("/" & r("姓名"))
    End If
    If  ftp1.Upload(f,file,True) = True Then
        r("头像")=file
    Else
        MessageBox.Show( f & "更换失败,请重新选择文件!" ,"提示" ,MessageBoxButtons.OK,MessageBoxIcon.Question)
    End If
Next
ftp1.Close
e.Form.Close

老师，我保存按钮如下：上传成功了，路径没有添加到了表中，但是重新打开程序，路径又有了，是怎么回事呢

Dim ftp1 As new  ftpclient
ftp1.host="120.00.****.*"
ftp1.Account = "ftp"
ftp1.password = "******"
'Dim dr As Row = Tables("账号密码").Current
Dim r As DataRow= DataTables("账号密码").sqlFind("姓名 = '" & _UserXingMing & "'")
For Each f As String In vars("files")
    Dim file = "/" & r("姓名") & "/" & filesys.GetName(f)
    If ftp1.DirExists("/" & r("姓名")) = False Then
        ftp1.MakeDir("/" & r("姓名"))
    End If
    If  ftp1.Upload(f,file,True) = True Then
        r("头像")=file
        r.save
    Else
        MessageBox.Show( f & "更换失败,请重新选择文件!" ,"提示" ,MessageBoxButtons.OK,MessageBoxIcon.Question)
    End If
Next
ftp1.Close
e.Form.Close

老师，麻烦再看看这个，我动态生成的Pic绑定到了对应的列，我第一次登陆系统，显示的不是自己的头像是怎么回事呢？

Dim pal1 As WinForm.Panel
pal1 =frm.CreateControl("Panel1",ControlTypeEnum.Panel)
pal1.dock = 1  '锚定
pal1.Height= 150 '页面高度
frm.AddControl(pal1)  '增加Panel
'pal1.BackColor = Color.Red  '背景色
Dim pic As WinForm.PictureBox
pic = e.Form.CreateControl("PictureBox1", ControlTypeEnum.PictureBox)
pic.SetBounds(50, 5, 50, 70)  '(x, y, Width, Height)
e.Form.Controls("Panel1").AddControl(pic)
pic.BindingField = "账号密码.头像"
pic.SizeMode = ImageSizeMode.Zoom  '头像缩放方式
Dim piv As WinForm.PictureBox = e.Form.Controls("PictureBox1")
Dim ftp As New FTPClient
ftp.host="000.0.0.0.0"
ftp.Account = "ft"
ftp.password = "19"
piv.FTPclient = ftp

 

我进了系统后，重新登录又是对的。

切换上下行后会自动更新，没问题。

老师，现在是这个问题，我登录时，直接输入用户名和密码，登录后加载的头像没有问题，当我记住用户名和密码，直接登录时，头像就不对，显示的是所属部门的第一个人的头像。

登录按钮代码如下：

Dim bm As WinForm.ComboBox = e.Form.Controls("部门")
Dim zh As WinForm.TextBox = e.Form.Controls("账号")
Dim mm As WinForm.TextBox = e.Form.Controls("密码")
If bm.Value ="" Then
    MessageBox.Show ("请选择机构或部门!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If
If zh.Value ="" Then
    MessageBox.Show ("请输入账号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If
If mm.value = "" Then
    MessageBox.Show ("密码不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If
'判断部门账号是否一致
Dim dr As DataRow= DataTables("账号密码").sqlFind("账号 = '" & zh.text & "'")
If dr Is Nothing Then
    MessageBox.Show ("账号不存在,请确认账号是否注册!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If
_UserPart = dr("机构名称")  '用户账号,给全局代码赋值,对登陆没影响
_UserGroup = dr("部门")  '用户部门,给全局代码赋值,对登陆没影响
_UserPost = dr("职务")   '用户职务,给全局代码赋值,对登陆没影响
_UserXingMing =dr("姓名")   '用户姓名,给全局代码赋值,对登陆没影响
_UserName = dr("账号")  '用户账号,给全局代码赋值,对登陆没影响
_UserPassword = dr("密码")   '用户密码,给全局代码赋值,对登陆没影响
Dim bmyz As String = dr("机构名称")
If bm.value <> bmyz  Then
    MessageBox.Show ("账号与部门不一致,请确认账号是否正确!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If
If  mm.value= dr("密码") Then
    '判断是否通过审核,标记为-1时,提示未通过审核,为1时直接登录
    If dr("标记") = "-1" Then
        MessageBox.Show ("您未通过管理员审核,请与管理员联系!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
        Return
    End If
    Forms("加载进度").open()
    If e.Form.Controls("CheckBox1").checked=True Then
        Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","UserName",_UserName)  '保存登录信息到注册表
    Else
        Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","UserName","")  '保存登录信息到注册表
    End If
    Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","Group",_UserPart)  '保存登录信息到注册表
    If e.Form.Controls("CheckBox2").checked=True Then
        Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","0000",_UserPassword)  '保存登录信息到注册表
    Else
        Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","0000","")  '保存登录信息到注册表
    End If
    User_Control.clear
    User_Control.AddRange(dr("菜单可用集合").Split(",")) '权限集合
    User_Control1.clear
    User_Control1.AddRange(dr("菜单可见集合").Split(",")) '权限集合
    Functions.Execute("Design_Add")
    Forms("登录").close
    MainTable = Tables("主界面")
    Forms("导航窗口上").open
    Forms("导航窗口左").open
    basemainform.opacity = 0  '设置为透明
    basemainform.visible = True  '设置为可见
    Forms("主窗口").open()  
    basemainform.opacity = 1  '设置为不透明
Else
    zh.Value =""
    mm.value = ""
    MessageBox.Show ("密码错误,请重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If

 

记住用户名CheckedChanged事件

If e.Sender.checked=True Then
saveconfigvalue("Group",e.Form.Controls("部门").Value)
saveconfigvalue(UserName, e.Form.Controls("账号").Value)
End If
saveconfigvalue("Remember", e.Sender.checked)

 

记住密码CheckedChanged事件

saveconfigvalue(0000, e.Form.Controls("密码").Value)