Jump to content

55143681

uniGUI Subscriber
  • Posts

    625
  • Joined

  • Last visited

  • Days Won

    3

55143681 last won the day on March 8 2020

55143681 had the most liked content!

Recent Profile Visitors

1777 profile views

55143681's Achievements

Advanced Member

Advanced Member (4/4)

21

Reputation

  1. Unigui1563+XE11.1 I set UniComboBox's height to 22 and save my project, but when I open the project again, the height will be 28, in the same form, only some UniComboBoxs have this problem, why?
  2. In my project ,some form works well with unigui1561 manby older. but now with unigui1563,when I call the form, I will have the error,why?
  3. Yes,If I set this,then error will comes out.
  4. Because I set: UniTreeView1->Selected->Selected=true;
  5. Oh,UniDAC new version cause the problem. In my project,I like set UniQuery's fetchRows=65535, then I have the error, If I change the parameter to 25, It works well.
  6. Maybe that is UniDAC's bug.
  7. Shezod: It seems that my UniQuery2 can not select too many fields,otherwise it will give me an error "Out of memory" you can see,If I only select 5 fields,it works well, but if I select too many fields I have the error, Why? Is there some property need to setup? The follow code works well. void __fastcall TUniFormXSWT::UniDBGrid1CellClick(TUniDBGridColumn *Column) { //表格选择记录 String tmpStr; if(UniDBGrid1->SelectedRows->Count==0) { return; } // UniQuery2->Close(); UniQuery2->SQL->Clear(); mySql="select wt_no 问题编号,"; mySql+="wt_name 问题描述,wt_advice 整改建议,wt_pub1 是否同业共性问题,wt_pub2 同业共性问题描述,"; mySql+="rowid from xs_xswt where xs_year =:w1 and xs_name=:w2 and wt_no=:w3"; UniQuery2->SQL->Add(mySql); UniQuery2->ParamByName("w1")->Value=UniComboBox1->Text; UniQuery2->ParamByName("w2")->Value=UniComboBox2->Text; UniQuery2->ParamByName("w3")->Value=UniQuery1->FieldByName("问题编号")->AsString; UniQuery2->Open(); UniEdit1->Text=UniQuery2->FieldByName("问题编号")->AsString; UniEdit2->Text=UniQuery2->FieldByName("问题描述")->AsString; UniEdit3->Text=UniQuery2->FieldByName("整改建议")->AsString; UniComboBox5->Text=UniQuery2->FieldByName("是否同业共性问题")->AsString; UniEdit4->Text=UniQuery2->FieldByName("同业共性问题描述")->AsString; rowId=UniQuery1->FieldByName("rowid")->AsString; }
  8. It seems like that I can not select too many fields one time, I select 28 fields from my table. UniQuery2->Close(); UniQuery2->SQL->Clear(); mySql="select wt_no 问题编号,"; mySql+="wt_name 问题描述,wt_advice 整改建议,wt_pub1 是否同业共性问题,wt_pub2 同业共性问题描述,"; mySql+="wt_his1 是否历届巡视问题,wt_his2 历届巡视问题描述,wt_inst 问题归属机构,wt_bank1 主办行领导,"; mySql+="wt_bank2 协办行领导,wt_part1 主办部门,wt_part2 协办部门,wt_level 决策层级,wt_diff 难度系数,"; mySql+="wt_ask 整改时限要求类别,wt_dead 整改完成时限,wt_over 完成时间,wt_week 反馈周期,wt_days 周几反馈,"; mySql+="wt_fk_stat 完成状态,wt_fk_perc 已完成百分比,wt_fk_prog 主要进展,xs_year 巡视年度,xs_name 巡视名称,"; mySql+="wt_type1 问题大类,wt_type2 问题小类,wt_see1 是否重点关注,wt_see2 重点关注原因,"; // mySql+="rowid from xs_xswt where xs_year =:w1 and xs_name=:w2 order by xs_year desc,xs_name,wt_no"; mySql+="rowid from xs_xswt where xs_year =:w1 and xs_name=:w2 and wt_no=:w3"; UniQuery2->SQL->Add(mySql); UniQuery2->ParamByName("w1")->Value=UniComboBox1->Text; UniQuery2->ParamByName("w2")->Value=UniComboBox2->Text; UniQuery2->ParamByName("w3")->Value=UniQuery1->FieldByName("问题编号")->AsString; UniQuery2->Open();
  9. UniDBGrid1 <-> UniQuery1. XE11.1+unigui1663 I add some code to UniDBGrid's OnCellClick events as follow: UniQuery2->Close(); UniQuery2->SQL->Clear(); mySql="select wt_no 问题编号,.................................."; mySql+="rowid from xs_xswt where xs_year =:w1 and xs_name=:w2 and wt_no=:w3"; UniQuery2->SQL->Add(mySql); UniQuery2->ParamByName("w1")->Value=UniComboBox1->Text; UniQuery2->ParamByName("w2")->Value=UniComboBox2->Text; UniQuery2->ParamByName("w3")->Value=UniQuery1->FieldByName("问题编号")->AsString; UniQuery2->Open(); UniEdit1->Text=UniQuery2->FieldByName("问题编号")->AsString; UniEdit2->Text=UniQuery2->FieldByName("问题描述")->AsString; UniEdit3->Text=UniQuery2->FieldByName("整改建议")->AsString; When I click UniDBGrid1,I get an error as follow.And my project works well with older version.
  10. Solved. If I move the code from void __fastcall TUniFormMindYear::UniFormBeforeShow(TObject *Sender) into void __fastcall TUniFormMindYear::UniFormOnCreate(TObject *Sender) It works well, why? What's the difference between BeforeShow() and OnCreate()???
  11. Dear Sherzod: I use UniHTMLFrame to call jsmind to draw a mind picture, but I find something strange, I click a button to call a form with UniHTMLFrame, if I click the button to test 10 times, 1、3、5、7、9 runs normal, 2、4、6、8 10 have nothing to display, why? void __fastcall TUniFormMindYear::UniFormBeforeShow(TObject *Sender) { int lineNo=0,lineNo1=0,lineNo2=0,lineNo3=0; String yearNo,instName,partName,teamName,rowId,rowId1,rowId2,rowId3,taskName1,taskName2,taskName3; String planDate1,planDate2,overDate1,overDate2,execStat,nodeText,holdUser; String screenWidth=UniApplication->ScreenWidth; String screenHeight=UniApplication->ScreenHeight; UniHTMLFrame1->HTML->Add("<!doctype html>") ; UniHTMLFrame1->HTML->Add("<html>") ; UniHTMLFrame1->HTML->Add("<head>") ; UniHTMLFrame1->HTML->Add(" <meta charset=\"utf-8\">") ; UniHTMLFrame1->HTML->Add(" <meta http-equiv=\"Content-Type\" content=\"text/html\"; charset=\"utf-8\">") ; UniHTMLFrame1->HTML->Add(" <title>年度计划思维导图</title>") ; UniHTMLFrame1->HTML->Add(" <link type=\"text/css\" rel=\"stylesheet\" href=\"filesHome/jsmind-master/style/jsmind.css\" />") ; UniHTMLFrame1->HTML->Add(" <style type=\"text/css\">") ; UniHTMLFrame1->HTML->Add(" #jsmind_container{") ; UniHTMLFrame1->HTML->Add(" width:"+screenWidth+"px;") ; UniHTMLFrame1->HTML->Add(" height:"+screenHeight+"px;") ; UniHTMLFrame1->HTML->Add(" border:solid 1px #ccc;") ; UniHTMLFrame1->HTML->Add(" background:#f4f4f4;") ; UniHTMLFrame1->HTML->Add(" }") ; UniHTMLFrame1->HTML->Add(" </style>") ; UniHTMLFrame1->HTML->Add("</head>") ; UniHTMLFrame1->HTML->Add("<body>") ; UniHTMLFrame1->HTML->Add("<div id=\"jsmind_container\"></div>") ; UniHTMLFrame1->HTML->Add("<script type=\"text/javascript\">") ; UniHTMLFrame1->HTML->Add(" function load_jsmind(){") ; UniHTMLFrame1->HTML->Add(" var mind = {") ; UniHTMLFrame1->HTML->Add(" \"meta\":{") ; UniHTMLFrame1->HTML->Add(" \"name\":\"年度工作计划思维导图\",") ; UniHTMLFrame1->HTML->Add(" \"author\":\"zhangweihou@126.com\",") ; UniHTMLFrame1->HTML->Add(" \"version\":\"1.0\",") ; UniHTMLFrame1->HTML->Add(" },") ; UniHTMLFrame1->HTML->Add(" \"format\":\"node_array\",") ; UniHTMLFrame1->HTML->Add(" \"data\":[") ; UniHTMLFrame1->HTML->Add(" {\"id\":\"root\", \"isroot\":true, \"topic\":\""+UniMainModule()->selectYear+"年度计划\"},") ; UniHTMLFrame1->HTML->Add(" ]") ; UniHTMLFrame1->HTML->Add(" };") ; UniHTMLFrame1->HTML->Add(" var options = {") ; UniHTMLFrame1->HTML->Add(" container:'jsmind_container',") ; UniHTMLFrame1->HTML->Add(" editable:true,") ; UniHTMLFrame1->HTML->Add(" theme:'primary'") ; UniHTMLFrame1->HTML->Add(" }") ; UniHTMLFrame1->HTML->Add(" var jm = jsMind.show(options,mind);") ; UniHTMLFrame1->HTML->Add(" jm.set_readonly(true);") ; //UniHTMLFrame1->HTML->Add(" var mind_data = jm.get_data();") ; //UniHTMLFrame1->HTML->Add(" alert(mind_data);") ; //UniHTMLFrame1->HTML->Add(" jm.add_node(\"sub2\",\"sub23\", \"new node\", {\"background-color\":\"red\"});") ; //UniHTMLFrame1->HTML->Add(" jm.set_node_color('sub21', 'green', '#ccc');") ; UniHTMLFrame1->HTML->Add(" }") ; UniHTMLFrame1->HTML->Add(" load_jsmind();") ; UniHTMLFrame1->HTML->Add("</script>") ; UniHTMLFrame1->HTML->Add("</body>") ; UniHTMLFrame1->HTML->Add("</html>
×
×
  • Create New...