IFIX中显示用户信息 点击:916 | 回复:0



opc开发

    
  • 精华:0帖
  • 求助:0帖
  • 帖子:5帖 | 4回
  • 年度积分:0
  • 历史总积分:14
  • 注册:2005年8月08日
发表于:2007-03-06 13:53:00
楼主
在IFIX中如何显示用户信息
  在FIX32产品中,FIX内含一系列系统变量,存储当前系统信息,包括当前用户的注册信息,如#GS_LOGIN.NAME。在IFIX中可通过VBA代码,实现显示或获得用户的注册信息。代码如下:  
Dim sUserID As String
Dim sUserName As String
Dim sGroupName As String

System.FixGetUserInfo sUserID, sUserName, sGroupName
Text1.Caption = sUserName

可以得到用户ID 用户名  用户组名

怎样使用按钮进行用户登录?
提示: 使用iFIX 的LOGIN 程序
在画面中插入一个按钮,按钮后加入如下VBA命令:
Dim strPath As String
strPath = System.BasePath
'此 shell 函数将运行可执行文件Login.exe
Shell strPath & "\Login.exe -m", 1
Private Sub CFixPicture_Initialize()
ComboBox1.Text = "cao"
TextBox1.Text = "123"
User.Username.CurrentValue = ComboBox1.Text
User.Userpas.CurrentValue = TextBox1.Text

End Sub
Private Sub CommandButton1_Click()
Dim cao As String
Dim pas As String
    cao = User.Username.CurrentValue
    pas = User.Userpas.CurrentValue
System.FixLogin cao, pas
MsgBox "登陆成功"
End Sub 
  顺便处理一个IFIX3.5的并口狗,以前做工程留下的,便宜处理的 有要的可以留下联系方式啊 MSN QQ都可以



热门招聘
相关主题

官方公众号

智造工程师