Form-公共代码

Attachments //对应的添加、删除、查看附件内代码都在Attachments中。一般情况下可以直接调用
功能：
　　添加，删除，浏览附件（通常作为frame的数据源显示附件列表）
参数：
　　{TableName,Origrec} TableName表名，Origrec唯一标识符
返回值：无

function Form1_OnLoad( sender, eventArgs )
{
    form.Variables["OnlineEdit"] = false;            //设置在线编辑默认为假，即不可用
    if(lims.Len(form.formArguments) > 1)            //form.formArguments[]用来获取从上个页面传过来的值，以数组形式存在
    {
        var isReadOnly        = false;                //设置只读属性，默认为false；
        var rTable    = form.formArguments[0];        //设置变量，把传递来的第一个值赋值给该变量
        var rOrigrec= form.formArguments[1];        //设置变量，把传递来的第二个值赋值给该变量
        var colComment: DataGridColumn = dgdAtt.RootTable.FindColumn ("COMMENTS");
        if(lims.Len(form.formArguments) > 2)        //如果传过来的值大于2个
        {
            isReadOnly = form.formArguments[2];        //设置变量，把传递来的第三个值赋值给该变量
        }
        //add by Michael 2013-5-19 在线编辑（修订）
        if(lims.Len(form.formArguments) > 3)                //如果传过来的值大于三个
        {
            form.Variables["OnlineEdit"] = form.formArguments[3];        //设置变量，把传递来的第四个值赋值给该变量
        }
        if(lims.Len(form.formArguments) > 4)
        {
            form.Variables["WorkFlowCode"] = form.formArguments[4];        //设置变量，把传递来的第五个值赋值给该变量
        }
        //end
        
        form.Variables.Set("relatedTable", rTable);                //把rTable的值赋值给窗体变量relatedTable
        form.Variables.Set("relatedOrigrec", rOrigrec);            //把rOrigrec的值赋值给窗体变量relatedOrigrec
        form.Variables.Set("readOnly", isReadOnly);                //把isReadOnly的值赋值给窗体变量readOnly
        
        if(isReadOnly)                                            //判断isReadOnly，为真执行下面语句
        {
            lbtnViewAtt.Left = lbtnAddAtt.Left;  
            lbtnAddAtt.Visible = false;                            //这里的语句可以自定义，按照自己的需求进行更改
            lbtnDelAtt.Visible = false;
            lbtnViewAtt.Visible = true;
        }
        else                                                    //为假，执行下面的语句
        {
            lbtnAddAtt.Visible = true;
            lbtnDelAtt.Visible = true;
            lbtnViewAtt.Visible = true;
            var canedit : Boolean    = (rOrigrec != null);            //如果rOrigrec不为空，则把true赋值给canedit变量
            lbtnAddAtt.Enabled        = canedit;                        //用anedit变量控制控件的显示，为真可用
            colComment.ReadOnly        = (!canedit);                    //用anedit变量控制控件的显示，为假只读
        }
        
        dgdAtt.Data =  lims.GetDataSource( "Sunway.ListAttachments", [rTable,rOrigrec] );        //把表格名字和选中行的rOrigrec传给公共函数Sunway.ListAttachments
                                                                                        //DS的作用是根据传递过去的Related（关联的）表格名、Origrec查找公共表的中内容
        lbtnDelAtt.Enabled = ( dgdAtt.RowCount > 0 );                    //如果控件的行数不为空，则让删除控件显示
    }
    else                //如果传过来的值为空。则制定下面的代码，清楚控件中内容
    {
        lbtnViewAtt.Left = lbtnAddAtt.Left;
//        lbtnViewAtt.Visible = true;
        dgdAtt.ClearData();                //清楚控件中内容
    }
    
    if(form.Variables["OnlineEdit"] == true)            //如果在线编辑变量的值为真，则让Visible属性为真，btnWordOnline控件可见
    {
        btnWordOnline.Visible = true;
    }
    else                                                ////如果在线编辑变量的值为假，则让Visible属性为真，btnWordOnline控件不可见
    {
        btnWordOnline.Visible = false;
    }
}

AuditHistory
功能：
　　查看审核历史记录，右键菜单功能有复制到剪切板，导出到Excel
参数：
　　{WorkFlowCode,relatedOrigrec} WorkFlowCode工作流代码，relatedOrigrec关联表的唯一标识符
返回值：无

function Form1_OnLoad( sender, eventArgs )
{

    var arrActions =                                         //设置一个数组，类似于一个二维数组
    [
        ["btnCopy",form.Resources["Copy"],true],            
        ["btnExport",form.Resources["Export"],true]
    ];
    
    CreateContextMenu(dgAuditHistory,arrActions);                //？？？？？？？
    if(lims.Len(form.formArguments) == 1)                        //如果只有工作流代码，执行下面语句
    {
        var WorkFlowCode    = form.formArguments[0];
        form.Variables["WorkFlowCode"]= WorkFlowCode;
        dgAuditHistory.Data = lims.GetDataSource("Sunway.GET_AUDIT_HISTORY",  [WorkFlowCode]);    //执行公共代码，查询公共表格GENERAL_WORKFLOW_HISTORY和GENERAL_WORKFLOW_STEPS
    }
    else if(lims.Len(form.formArguments) > 1)             //如果传过来的值大于1，则把唯一值Origrec赋值给relatedOrigrec
    {
        var WorkFlowCode    = form.formArguments[0];
        var relatedOrigrec    = form.formArguments[1];
            form.Variables["WorkFlowCode"]= WorkFlowCode;                //把工作流代码赋值给窗体变量form.Variables["WorkFlowCode"]
            form.Variables["relatedOrigrec"]= relatedOrigrec;            //把工作流代码赋值给窗体变量form.Variables["relatedOrigrec"]
            
            //执行公共代码，查询公共表格GENERAL_WORKFLOW_HISTORY和GENERAL_WORKFLOW_STEPS
        dgAuditHistory.Data = lims.GetDataSource("Sunway.GET_AUDIT_HISTORY",  [WorkFlowCode,relatedOrigrec]);
    }
    else
    {
        dgAuditHistory.ClearData();                //如果没有传过来值，就把控件的数据全部清空。
    }
    
}

RichTextDialog

功能：
　　浏览或修改多行文本
参数：

　　{formText,Text,readOnly} { formText此窗体标题，Text内容，readOnly只读(默认可写=false)}
返回值：Text修改的文本内容

function Form1_OnLoad( sender, eventArgs )                //[窗体标题，窗体内文本内容，readonly只读，默认为false]
{
    if(lims.Len(form.formArguments) > 0)  form.Text = form.formArguments[0];
    if(lims.Len(form.formArguments) > 1)  rtxtContent.Text = form.formArguments[1];
    //Add by LEOLEE 04/17/2008
    if(lims.Len(form.formArguments) > 2)  
    {
        if( form.formArguments[2] == true )                //如果传过来的第三个参数为真，则执行下面的代码控制控件的属性
        {
            btnClose.Left        = btnCancel.Left;
            btnOK.Visible        = false;
            btnCancel.Visible    = false;
            btnClose.Visible    = true;
            rtxtContent.ReadOnly=true;
        }
    }
    //END Add by LEOLEE 04/17/2008
}

ModifyOrDeleteOrView（与之相关的还有ModifyOrDelete，没有查看操作）

功能：
　　选择“编辑”或“删除”或查看操作
参数：　　步骤代码
返回值：
　　选择“编辑”操作返回“Modify”，选择“删除”操作返回“Delete”，选择“查看”操作返回“View”

function Form1_OnLoad( sender, eventArgs )
{
    if(lims.Len(form.formArguments) > 0)
    {
        form.Variables["StepCode"] = form.formArguments[0];
            //如果传过来的步骤代码为为真，则执行下面的代码，控制控件属性。可以自定义
        if(form.Variables["StepCode"] == "SearchReport" || form.Variables["StepCode"] == "Approve" || form.Variables["StepCode"] == "Release")
        {
            rbxModify.Enabled = false;
            rbxDelete.Enabled = false;
            rbxView.Checked = true;
        }
    }
}

FileImportForm(上传文件用的模块)

路径： Application-> Sunwayworld-> form->FileImportForm
功能：
　　调用窗体上传文件
返回值：上传文件的路径(数组形式返回)

ImportExcel

功能：通过Excel导入结果，此时会自动导入结果并计算结果

参数：无

返回值：无 

SearchBySpellCode

功能：

　　根据拼音选择数据

参数：

　　{control,ValueMember,DisplayMember}　　　　control控件只能是COMBOBOX或DATASET，ValueMember值字段，DisplayMember显示字段

返回值：

　　[SelectText,SelectValue]选择的键值对（注：返回值是键值对形式，并不是真正的键值对，这里为了好理解，下同）

SearchBySpellCodeMutil

功能：

　　根据拼音多重选择数据

参数：

　　{dataset,SelectedValues,ValueType}　　　　　　Dataset数据源，SelectedValues已经选择的数据，ValueType数据类型

返回值：

　　{Texts，Values}选中的键值对列表

SelectBox

功能：

　　多重选择指定数据源数据（没有拼音搜索功能）

参数：

　　{ dataset,FormText,onlyOne}　　Dataset数据源，FormText此窗体标题，onlyOne是否单选

返回值：

　　{Texts，Values}选中的键值对（或列表）

SSLPicker

功能：

　　选择一个SSL文件

参数：

　　{searchKey,DISPLAYTEXT}　　　　searchKey查询关键字，DISPLAYTEXT SSL文件显示名称

返回值：

　　CATEGORY名称+SSL文件名

WebBrower

功能：

　　显示URl页面,就是传入一个url地址，然后在这里显示出来这个地址的页面

参数：　　{URL}　　URL页面地址

返回值：无

XFDCodeViewer

功能：

　　显示Form窗体和后台代码

参数：

　　{Formid,LangId}　　Formid窗体ID, LangId语言ID

返回值：无