项目事件

计划管理

表事件

表A_DoubleClick

e.Cancel = True

Dim s As String = e.Row("第二列") & "\\" & e.Row("第三列")

Functions.Execute("xopen",s)

窗口表事件

窗口与控件事件

系统操作_Button1_Click

Dim t As Table = Tables("表A")

\'DataTables("表A").DeleteFor("")

t.Select(0,0,t.Rows.Count-1,t.Cols.Count-1)

Syscmd.Row.Delete()

t.CloseFilterTree

系统操作_Button2_Click

Functions.Execute("csh")

自定义函数

bianli_wjj

\'遍历文件夹

Dim path As String = args(0)

Dim ls = args(1)

\'ls.add(file.SubString(file.LastIndexOf("\\")+1,FileSys.GetName(file).Length))

ls.add(path)

For Each p As String In FileSys.GetDirectories(path)

    Functions.Execute("bianli_wjj", p, ls)

Next

For Each p1 As String In filesys.GetFiles(path)

    ls.add(p1)

Next

wenjianchuli

Dim wb As new WeUI

Dim ls As new List(of String)

Functions.Execute("bianli_wjj","d:\\xszjzx",ls)

output.Show(FileSys.GetDirectories("d:\\xszjzx").Count)

Dim t As Table =  CurrentTable

For i As Integer = 0  To  ls.Count-1

    t.AddNew

    t.Rows(i)("第一列")= ls(i)

    t.Rows(i)("第二列")= FileSys.GetParentPath(ls(i))

    t.Rows(i)("第三列")= filesys.GetName(ls(i))

    output.Show(ls(i) & "---" & FileSys.GetName(ls(i)) & ">")

Next

output.show("OK"  &   ls.Count)

xopen

Dim s As String = args(0)

Dim Proc As New Process

Proc.File = s

PopMessage(s,"Today",PopIconEnum.Alert,3)

Proc.Start()

csh

Dim ls As new List(of String)

Dim path As String = SpecialFolder.DesktopDirectory & "\\教学管理"

If FileSys.DirectoryExists(path) = False Then

   PopMessage("你访问的文件夹不存在","提示",PopIconEnum.Error,3)

   Return ""

End If

Functions.Execute("bianli_wjj",path,ls)

Dim t As Table = Tables("表A")

For i As Integer = 0  To  ls.Count-1

    t.AddNew

    t.Rows(i)("第一列")= ls(i)

    t.Rows(i)("第二列")= FileSys.GetParentPath(ls(i))

    t.Rows(i)("第三列")= filesys.GetName(ls(i))

    t.Rows(i)("第四列")= t.Rows(i)("第二列").SubString(path.IndexOf("教学管理")-1)

Next

t.OpenFilterTree("第四列")

全局代码

菜单事件

标准按钮3_Click

If user.Name = "开发者"

    Syscmd.Project.OpenSystemMenu()

End If

标准按钮4_Click

DataTables.Save

标准按钮5_Click

Dim s As String = StrToWide("  ")

PopMessage("老师,您辛苦啦!" & vbcrlf & vbcrlf & s & "保定市徐水区职业技术教育中心",Date.Now.Date,PopIconEnum.Infomation,3)

标准按钮6_Click

Dim nl As new Lunar(Date.now)

PopMessage("今天农历日期为:" & vbcrlf & nl.LunarDate,"提示",PopIconEnum.Infomation,5)

系统管理_功能组1_标准按钮1_Click

\'If Forms("系统操作").Opened Then

    \'Dim t As WinForm.Button = Forms("系统操作").Controls("Button1")

    \'t.PerformClick()

\'Else

    \'Forms("系统操作").Open

\'End If

Dim t As Table = Tables("表A")

DataTables("表A").DeleteFor("")

t.CloseFilterTree

系统管理_功能组1_标准按钮2_Click

\'Dim t As WinForm.Button = Forms("系统操作").Controls("Button2")

\'t.PerformClick()

Functions.Execute("csh")

系统管理_功能组1_标准按钮7_Click

Forms("系统操作").Open()