; ; ShowSearchBox("BillSearch","NODEPOT", "cbCreateNo",cbCreateNo.CValue); UpdateForm(false, "cbName"); Search("SearchLinkman",tbNo.CValue); UpdateForm(true, "cbName"); UpdateForm(false, "cbTelephone"); Search("SearchTelephone",tbNo.CValue); UpdateForm(true, "cbTelephone"); UpdateForm(false, "cbFax"); Search("SearchFax",tbNo.CValue); UpdateForm(true, "cbFax"); ShowSearchBox("ProductSearch","INFOMATION",#CustomerReqProduct.No_CustomerReqProduct); Search("SearchUnit"); SetDataGridColumnDataSource(5,"dgProduct"); Search("SearchProperty"); SetDataGridColumnDataSource(8,"dgProduct"); Search("SearchProcess"); SetDataGridColumnDataSource(11,"dgProduct"); Search("SearchContinuity"); SetDataGridColumnDataSource(12,"dgProduct"); Search("SearchOil"); SetDataGridColumnDataSource(13,"dgProduct"); if(Search("SearchFirst", cbCreateNo.CValue,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID())) { ChangeMode("View"); } if(Search("SearchPrevious", cbCreateNo.CValue,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID())) { ChangeMode("View"); } if(Search("SearchNext", cbCreateNo.CValue,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID())) { ChangeMode("View"); } if(Search("SearchLast", cbCreateNo.CValue,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID())) { ChangeMode("View"); } ChangeMode("Search"); ChangeMode("Modify"); Delete(); ChangeMode("Search"); ; ; ; PrintReport(); if(toolBar.ExpandForm==true) { pnRight.Visible=true; } else { pnRight.Visible=false; } if(GetRight("客户基本资料","全权查看")) { FormatString(""); } else { FormatString(" Customer.ID_Creator='{0}' ",GetLoginUserID()); } Empty(); NewInstance(); timeMake.Enabled = false; cbCreateNo.ReadOnly = false; txtCreator.ReadOnly = true; tbNo.ReadOnly = true; txtShortName.ReadOnly = true; txtType.ReadOnly = true; txtName.ReadOnly = true; txtPostalCode.ReadOnly = true; cbName.Enabled = false; cbTelephone.Enabled = false; cbFax.Enabled = false; txtSendAddr.ReadOnly = true; txtComment.ReadOnly = true; dgProduct.ReadOnly = true; toolBar.EnableSubmit=false; toolBar.EnableModify=false; toolBar.EnableDelete=false; toolBar.EnableNew=GetRight(@Title,"新增"); UpdateForm(true, ""); cbCreateNo.Focus(); @Status=0; Empty(); NewInstance(); timeMake.Enabled = true; cbCreateNo.ReadOnly = true; txtCreator.ReadOnly = true; tbNo.ReadOnly = false; txtShortName.ReadOnly = true; txtType.ReadOnly = true; txtName.ReadOnly = true; txtPostalCode.ReadOnly = true; cbName.Enabled = true; cbTelephone.Enabled = true; cbFax.Enabled = true; txtSendAddr.ReadOnly = false; txtComment.ReadOnly = false; dgProduct.ReadOnly = false; toolBar.EnableSubmit=GetRight(@Title,"新增"); toolBar.EnableModify=false; toolBar.EnableDelete=false; toolBar.EnableNew=false; #CustomerReqInfo.CreateDate_CustomerReqInfo = DateTimeNow(); #CustomerReqInfo.ID_Creator = GetLoginUserID(); #CustomerReqInfo.ID_CustomerReqInfo = NewGuid(); #CustomerReqInfo.Name_User = GetCurrentUser(); UpdateForm(true, ""); tbNo.Focus(); @Status=1; timeMake.Enabled = false; cbCreateNo.ReadOnly = true; txtCreator.ReadOnly = true; tbNo.ReadOnly = true; txtShortName.ReadOnly = true; txtType.ReadOnly = true; txtName.ReadOnly = true; txtPostalCode.ReadOnly = true; cbName.Enabled = false; cbTelephone.Enabled = false; cbFax.Enabled = false; txtSendAddr.ReadOnly = true; txtComment.ReadOnly = true; dgProduct.ReadOnly = true; toolBar.EnableSubmit=false; toolBar.EnableModify=GetRight(@Title,"修改"); toolBar.EnableNew = GetRight(@Title,"新增"); toolBar.EnableDelete=GetRight(@Title,"删除"); UpdateForm(true, ""); @Status=2; timeMake.Enabled = true; cbCreateNo.ReadOnly = true; txtCreator.ReadOnly = true; tbNo.ReadOnly = false; txtShortName.ReadOnly = true; txtType.ReadOnly = true; txtName.ReadOnly = true; txtPostalCode.ReadOnly = true; cbName.Enabled = true; cbTelephone.Enabled = true; cbFax.Enabled = true; txtSendAddr.ReadOnly = false; txtComment.ReadOnly = false; dgProduct.ReadOnly = false; toolBar.EnableSubmit=GetRight(@Title,"修改"); toolBar.EnableModify=false; toolBar.EnableDelete=false; toolBar.EnableNew=false; #CustomerReqInfo.CreateDate_CustomerReqInfo = DateTimeNow(); #CustomerReqInfo.ID_Creator = GetLoginUserID(); UpdateForm(true, ""); tbNo.Focus(); @Status=3;