人员管理模块代码总结2015/8/12整理

1. 调用窗体代码：var reg =  form.ShowModalDialog(lims.GetFormSource("caoss_UserManagement.addPerson"));
2. 调用SS代码：  var dummy = lims.CallServer("caoss_UserManagement.SS_insert",[reg[0],reg[1],reg[2],reg[3]]);注意的是，参数的传递是以数组的形式存在的。如果是单个参数，也可以只写一个，可以不用数组表示。
3. 调用DS代码：  dataGridShowInfo.Data = lims.GetDataSource("caoss_UserManagement.michael_user_db",[form.Variables["strWhere"],form.Variables["StepCode"],form.Variables["strParams"]]);同样是以数组形式存在的　
4. Refresh和RefreshEx的区别：Refresh是刷新整个DataGrid，RefreshEx是刷新DataGrid之后重新定位到之前选定的列
5. 实现添加之后的定位：思路是先获取新添加的列的唯一值，一般用Origrec，然后返回，后台接收到之后先刷新DataGrid控件，然后根据DataGrid的Find方法来定位，具体的方法是dataGridShowInfo.Find(["ORIGREC"],[dummy[1]]);　　dataGridShowInfo是DataGrid控件的ID，["ORIGREC"]是唯一标示，[dummy[1]]是唯一标示的的具体值。

   function lbtnaddExp_OnClick( sender, eventArgs )
   {
       var USERNAME = dataGridShowInfo.GetCurrentRowData("USERNAME");
       var isTrue = lims.CallServer("caoss_UserManagement.SSaddExp",[USERNAME]);
       if(isTrue[0] == true)
       {
           dgShowExpInfo.Refresh();
           dgShowExpInfo.Find(["ORIGREC"],[isTrue[1]]);
       }
   }

6. 获取唯一标示的值得方法：var USERNAME = dataGridShowInfo.GetCurrentRowData("USERNAME");
7. TabControl优化办法：在DataGrid或者TabControl的OnChange事件里面添加自定义函数RefreshChildren（）；然后再自定义函数RefreshChildren来设置TabControl的页面切换，或者DataGrid的换行；下面提供一个示例：

   function dataGridShowInfo_OnRowChange( sender, eventArgs )
   {
       var USERNAME = dataGridShowInfo.GetCurrentRowData("USERNAME");
       form.Variables["RefreshChildren"] = [ true, true, true,true,true];
       RefreshChildren();
       dataGridShowInfo.RefreshEx();
   }

    

   鼎折覆餗

8. function tcPerson_OnTabChanged( sender, eventArgs )
   {
       RefreshChildren();
   }

9. 实现UP弹窗编辑大文本，首先在需要弹窗的控件列中设置字段的Type为UD，然后调用该控件的OnUdCellEditorRequest事件，在事件中写以下函数：

   function dgShowExpInfo_OnUdCellEditorRequest( sender, eventArgs )
   {
       var ReadOnly = true;
       var bStyle = "";
       if(eventArgs["Column"].Id == 'COMMENTS')//'COMMENTS'为需要UD弹窗的列。
       {
           UpdateUD(eventArgs, dgShowExpInfo, "MICHAEL_EXPERIENCE", "COMMENTS", !ReadOnly, bStyle);
   /*[eventArgs是固定写法，dgShowExpInfo是控件的ID，"MICHAEL_EXPERIENCE"是控件所绑定数据源的数据库表格，"COMMENTS"
                                                   是控件所绑定数据源的数据库表格中的对应的某一列，和上面的UD弹窗对应的列对应，!ReadOnly设置只读属性，]*/
       }
   }

10. 关于实现QBE查询：添加LinkButton按钮，设置其on_click事件：

    function lbtnQuery_OnClick( sender, eventArgs )
    {
        //调用实现QBE查询的弹窗,获取返回值
        var resultValues = form.ShowModalDialog(lims.GetFormSource("QBE.QBE_FORSEARCH"),["Query"]);
        if(resultValues == null )
        {
            return ;
        }
        //    如果返回值不为空，则把返回值赋值给另外一个局部变量，
        //    如果该返回值为null或者为""，则重新把""赋值给该变量。否则用and链接该字符串，以便在SS或者DS中调用。
        //    最后调用自己写的DS函数来获取要查询的值。
        else
        {
            var strQBEWhere = resultValues ;
            if(strQBEWhere == null || strQBEWhere == "")
            {
                strQBEWhere = "";
            }
            else
            {
                strQBEWhere = "and" + strQBEWhere ;
            }
            dataGridShowInfo.Data = lims.GetDataSource("caoss_UserManagement.michael_user_db",[form.Variables["strWhere"],form.Variables["StepCode"],form.Variables["strParams"],strQBEWhere]);        
        }
        
    }

     
11. 工作流中提交操作的实现：设置提交按钮的on_click事件，如下：（需要调用公共代码）

    function lbtnSubmit_OnClick( sender, eventArgs )
    {
        var aOrigrec = dataGridShowInfo.GetSelectedRowsData("ORIGREC");//获取DataGrid的ORIGREC。
        //调用公共窗体-Audit，根据需要传入参数，不一定是代码中的三个参数，可以自定义参数个数。实现更多的功能
        form.ShowModalDialog( lims.GetFormSource("GeneralWorkFlowActions.Audit"),[ form.Variables["WorkFlowCode"], form.Variables["StepCode"], aOrigrec] );    
        dataGridShowInfo.RefreshEx();
    }

     
12. 页面中实现图片添加、显示功能：在页面中添加Image控件，设置其Onclick事件如下：

    function imgPicture_OnClick( sender, eventArgs )
    {
        var Origrec = dataGridShowInfo.GetCurrentRowData("ORIGREC");
        if(Origrec == null || Origrec == "") return;
        //调用窗体来让用户选择图片，然后把返回的图片路径赋值给file。
        var file = Dialogs.ShowOpenFileDialog("JPEG Files (*.jpg)|*.jpg|GIF Files (*.gif)|*.gif|PNG Files (*.png)|*.png");
        if (file == "")
            return;
        //把图片路径赋值给要显示图片的路径属性控件ID.ImageSource
        imgPicture.ImageSource = file;
        //图片路径经过一定的格式编码，然后赋值给StarDocID用来表示路径
        var serverFile : Byte[] = lims.FileToByteArray(file);
        var StarDocID = lims.CallServer("Sunway.UploadFileToStarDoc_Multi",
                                        [file, serverFile ]);
        //传入参数更新数据库表格中图片列的值[表格名称，表格列id，表格列对应的值，寻找该列对应的参数也就是where后边的内容]
        lims.CallServer("Sunway.Update",["MICHAEL_USERS","PICTURE",StarDocID,Origrec]);
        //如果StarDocID为真，则刷新控件，然后获取数据库表格中该字段的的值，赋值给一个本地变量，
        //然后把它赋值给控件的ImageSource属性来显示控件
        if(StarDocID)
        {
            dataGridShowInfo.RefreshEx();
            var localFile = csDownloadAttachment(StarDocID);
            imgPicture.ImageSource = localFile;
        }    
    }

     
13. 调用系统函数来删除DataGrid中的行（支持多行删除），下面的是我自定义的删除函数：

    function DeleteRows_diy(dg, TableName )
    {
        if(TableName == null || TableName == "")        //判断传过来的数据库表格名字是否为空，如果为空，则根据控件获取表格名字
        {
            TableName = dg.RootTable.DataMember;        //获取表格名字
        }
        if(dg.RowCount < 1)                                //如果删除的表格行数少于1，则返回，删除失败
            return;
            
            //调用弹出窗，确定是否删除，返回值为YES和其他值NO。，然后赋值给okToDelete
        var okToDelete = Dialogs.MessageBox(form.Resources("mesAreYouSureDel"), form.Resources["Question"], "YESNO", "QUESTION");
        if (okToDelete == "YES")    //如果为YES    ，则执行删除
        {
            var OrigrecList = dg.GetSelectedRowsData("ORIGREC");        //获取当前行。可多行
            lims.CallServer("Sunway.DeleteRows",[TableName,OrigrecList]);        //往DeleteRows传入表格名和唯一值Origrec，执行删除操作
            dg.Refresh();                                    //刷新表格
            return true;                                    //返回刷新成功
        }
        else return;                                //返回
    }

     
14. 在新添加用户的时候，可以通过textbox的OnValidating事件来验证是否存在该用户名。他在鼠标离开该textbox时触发：

    function txtUserName_OnValidating( sender, eventArgs )
    {
        var USERNAME = txtUserName.Text;
        var isTrue = lims.CallServer("caoss_UserManagement.selValidating",[USERNAME]);
        if(isTrue == true)
        {
            Dialogs.MessageBox(form.Resources["用户已存在，请重新输入！"],form.Resources["ok"],"OK","INFORMATION");
            txtUserName.Text = null;
            txtUserName.Focus();
        }
    }

     
15. form窗体通过form.returnValue = [UserName,UserFullName,Dept,Sex];向上一个窗体返回值，另一个窗体用var定义的变量接收，是一个数组变量。
16. 涉及到工作流的查询操作

    :PARAMETERS strWhere := "", StepCode := "", strParams :="" , strQBEWhere :="" ;
    
    :DECLARE strSQl, arrParams;
    arrParams := {};
    :IF .not. Empty(strParams);
        ExecUDF("arrParams := {"+strParams+"};");
    :ENDIF;
    
    :IF StepCode == "Search";
        strWhere :="";
    :ENDIF;
    
    strSQl :="select ORIGREC, ORIGSTS, DEPT, SERVGRP,PICTURE,
                     USERNAME, USERFULLNAME, STATUS,  
                    (case   when ISREJECT='Y' then DISPSTATUS || '||red'
                             when DISPSTATUS='审核' then DISPSTATUS || '||yellow' 
                            when DISPSTATUS='审批' then DISPSTATUS || '||orange'
                            when DISPSTATUS='新建' then DISPSTATUS || '||green'
                            when DISPSTATUS='完成' then DISPSTATUS || '||blue'
                             end) as 
                    DISPSTATUS, SEX, USEDNAME, NATION,
                    POLITICALSTATUS, BIRTHDAY, WORKNUMBER,
                    HIGHTESTEDU, HIGHTESTDEGREE, EMAIL, HOMEADDRESS,
                    NOWLIVEADDRESS, POSTCODE, FAX, PHONE, PHONENUMBER,
                    COMMENTS, ISREJECT
            from MICHAEL_USERS
            where 1=1 "+strWhere +strQBEWhere+" order by ORIGREC";
    :RETURN GetDataSet(strSQL,arrParams);