哪里不对吗

哪里不对?

07-01

Query3->Open() ;rn Query3->SQL->Clear( );rn Query3->SQL->Add("Insert Into m_sample_info (lab_flow_id,intr_id,lab_id,check_date,check_time,rece_datetime,user_code,batch_no,prioruty,sample_type,status,data_flag");rn Query3->SQL->Add("Values(:lab_flow_id,:intr_id,:lab_id,:check_date,:check_time,:rece_datetime,:user_code,:batch_no,:Priority,:SampleType,:Status,:DataFlag)");rn Query3->Params->Items[0]->DataType = ftString ;rn Query3->Params->Items[0]->ParamType = ptInput ;rn Query3->Params->Items[0]->AsString = SetSample.Str_LabFlowId ;rn Query3->Params->Items[1]->DataType = ftString ;rn Query3->Params->Items[1]->ParamType = ptInput ;rn Query3->Params->Items[1]->AsString = SetSample.Str_IntrID ;rn Query3->Params->Items[2]->DataType = ftString ;rn Query3->Params->Items[2]->ParamType = ptInput ;rn Query3->Params->Items[2]->AsString = SetSample.Str_LabID ;rn Query3->Params->Items[3]->DataType = ftString ;rn Query3->Params->Items[3]->ParamType = ptInput ;rn Query3->Params->Items[3]->AsString = SetSample.Str_CheckDate ;rn Query3->Params->Items[4]->DataType = ftString ;rn Query3->Params->Items[4]->ParamType = ptInput ;rn Query3->Params->Items[4]->AsString = SetSample.Str_Time ;rn Query3->Params->Items[5]->DataType = ftString ;rn Query3->Params->Items[5]->ParamType = ptInput ;rn Query3->Params->Items[5]->AsString = SetSample.Str_ReceDateTime ;rn Query3->Params->Items[6]->DataType = ftString ;rn Query3->Params->Items[6]->ParamType = ptInput ;rn Query3->Params->Items[6]->AsString = SetSample.Str_UserCode ;rn Query3->Params->Items[7]->DataType = ftString ;rn Query3->Params->Items[7]->ParamType = ptInput ;rn Query3->Params->Items[7]->AsString = SetSample.Str_BatchNo ;rn Query3->Params->Items[8]->DataType = ftString ;rn Query3->Params->Items[8]->ParamType = ptInput ;rn Query3->Params->Items[8]->AsString = SetSample.Str_Priority ;rn Query3->Params->Items[9]->DataType = ftString ;rn Query3->Params->Items[9]->ParamType = ptInput ;rn Query3->Params->Items[9]->AsString = SetSample.Str_SampleType ;rn Query3->Params->Items[10]->DataType = ftString ;rn Query3->Params->Items[10]->ParamType = ptInput ;rn Query3->Params->Items[10]->AsString = SetSample.Str_Status ;rn Query3->Params->Items[11]->DataType = ftString ;rn Query3->Params->Items[11]->ParamType = ptInput ;rn Query3->Params->Items[11]->AsString = SetSample.Str_DataFlag ;rn Query3->ExecSQL( );

JS哪里不对

07-03

[code=javascript]var deviceId = null;rnvar arrayMsg = null;rnvar arrayMsgPower = null;rn//ywqrnvar favorite=null;rnjQuery(function($)rnrn var startTime = new Date().getTime();rn var endTime = 0;rn rn content.showLoadingDialog();rn var url = decodeURI(location.href);rn var split = url.substring(url.indexOf("?")+1, url.length).split("&");rn var data = new Object();rn data.id = split[0].substring(split[0].indexOf("=")+1, split[0].length);rn //ywqrn data.isFavorite=split[1].substring(split[1].indexOf("=")+1, split[1].length);rn favorite=data.isFavorite;rn if(favorite=='true')rn $('#favorite').html('已收藏'); rn //$('#collectimg').src('../img/favorited.jpg');rn //alert($('#collectimg').src);rn rn rn deviceId = data.id;rn content.searchDetail(deviceId);rn rn rn /*data.longitude = 113.320236;//pages.setJSLongitude();rn data.latitude = 23.096179;//pages.setJSLatitude();rn $.post(App.serviceURL('eqDetail'), data, function(ret)rn $('#contentName').html(ret.locationname);rn $('#contentOwner').html(ret.ownerdept);rn $('#contentVoltage').html(ret.voltage + ' ' + ret.feeder);rn $('#contentTeam').html('负责班组:--');rnrn $('#contentLoc').html(ret.locationname);rn $('#contentContact').html("--");rn content.closeLoadingDialog();rn );*/rn rn // 关闭按钮rn $('#search-back').on('tap', function(event)rn event.preventDefault();rn content.hideContent();rn )rn rn // 拍照按钮rn $('#takingPictrue').on('tap', function(event)rn event.preventDefault();rn content.takeingPicture();rn )rn rn // 业务处理rn $('#taskDeal').on('tap', function(event)rn event.preventDefault();rn content.showLoadingDialog();rn content.showSVG();rn )rn rn // 导航功能rn $('#navi').on('tap', function(event) rn event.preventDefault();rn rn endTime = new Date().getTime();rn if(endTime - startTime > 1000) rn event.preventDefault();rn content.startNavi(data.id);rn rn startTime = endTime;rn )rn rn // 路线功能rn $('#route').on('tap', function(event) rn event.preventDefault();rn content.searchRoute(data.id);rn )rn // 收藏功能rn $('#collect').on('tap', function(event) rn event.preventDefault();rn content.collect();rn $('#collectimg').src('../img/favorited.jpg');rn )rn rn // 技术参数rn $('#techMsg').on('click', function(event) rn $('body,html').animate(scrollTop:0,1); rn var html = "";rn for(var i = 0 ; i < arrayMsg.length ; i++) rn html += " " + rn arrayMsg[i].label + rn " " + rn arrayMsg[i].value + rn "";rn rn $('#detail').html(html);rn $('#p3').show();rn $('#p2').hide();rn )rn rn $('#detail-back').on('click', function(event) rn $('#p2').show();rn $('#p3').hide();rn )rn rn // 缺陷记录rn $('#quexian').on('click', function(event) rn rn content.searchQuexianDetail(deviceId); rn var ret = eval("(" + content.setQXDetailResultMessages() + ")"); rn $('body,html').animate(scrollTop:0,1); rn var html = ""; rn for(var i=0;i " + rn ret[i].detect_time + rn ""+rn " " + rn "缺陷类型" + rn " " + rn ret[i].detect_type + rn ""+rn " " + rn "缺陷内容" + rn " " + rn ret[i].content + rn ""+rn " " + rn "缺陷发现人" + rn " " + rn ret[i].detect_person + rn ""; rn rn $('#p2').hide(); rn $('#p4').show(); rn $('#detail_quexian').html(html);rn alert(html); rn )rn rn $('#quexian-back').on('click', function(event) rn $('#p2').show();rn $('#p4').hide();rn $('#p3').hide();rn $('#p5').hide();rn )rn rn $('#quexian-back').on('click', function(event) rn $('#p2').show();rn $('#p4').hide();rn )rn //低压集超箱rn $('.jichao').on('click', function(event) rn alert("tishi");rn /** var id = this.getAttribute('id');rn html += " " + rn "GDH"+ rn " " + rn arrayMsg[i].GDH + rn "";rn $('#detail_jichao').html(html);rn $('#p5').show();rn $('#p2').hide();rn $('#p3').hide();rn $('#p4').hide();*/rn )rn rn);rnrnfunction setFavorite()rn$('#favorite').html('已收藏');rnrnrnfunction detailResults() rn var ret = eval("(" + content.setDetailResultMessages() + ")");rn $('#contentName').html(ret.name);rn $('#contentOwner').html(ret.area);rn $('#contentVoltage').html(ret.kuixian);rn $('#contentTeam').html('负责班组:' + ret.banzu);rnrn $('#contentLoc').html(ret.address);rn $('#contentContact').html(ret.mhost); rn arrayMsg = ret.arrayMsg; rn content.closeLoadingDialog();rnrnrn//低压集超箱rnfunction detailResultsPower() rn var ret = eval("(" + content.setDetailResultMessagesPower() + ")");rn $('#contentName').html(ret.name);rn $('#contentOwner').html(ret.area);rn $('#contentVoltage').html(ret.kuixian);rn $('#contentTeam').html('负责班组:' + ret.banzu);rn $('#detail-back').hide();rnrn $('#contentLoc').html(ret.address);rn $('#contentContact').html(ret.mhost); rn arrayMsgPower = ret.arrayMsgPower; rn for(var i = 0 ; i < arrayMsgPower.length ; i++) rn $('#inner_content').append(" " + arrayMsgPower[i].YDH + "");rn rn content.closeLoadingDialog();rnrnfunction quexianDetailResults() rn rnrn[/code]这个JS有什么不对吗,为啥点击低压集超箱没探探反应rn

哪里不对

11-04

rn<%@ Language=VBScript %>rnrnrn rn rn rn 评估申请与审批信息查询rn rnrnrn rn rn <%rn dim rs,sql,sql1,sql2,sql3,sql4,sql5,rs1,rs2,rs3,rs4,rsBrn set rs=server.createobject("adodb.recordset")rn sql="select sqmc from mgb01 where spjl='尚未审批'" rn set rs=conn.execute(sql)rn sql1="select sqmc from mgb01 where spjl='正在论证'"rn set rs1=conn.execute(sql1)rn sql2="select sqmc from mgb01 where spjl='审批通过正在执行'"rn set rs2=conn.execute(sql2)rn sql3="select sqmc from mgb01 where spjl='审批通过执行完成'"rn set rs3=conn.execute(sql3)rn sql4="select sqmc from mgb01 where spjl='审批未通过'"rn set rs4=conn.execute(sql4)rn%>rn rn rnrn rn rn rn 评估申请与审批信息查询rn rn rn rn 尚未审批: rn rn <%rs.MoveFirst ()%>rn <%do until rs.EOF%>rn ">rn <%=rs.Fields("sqmc").Value %>rn <% rs.MoveNext%><%loop%>rn rn rn rn rn rn 用户提交申请rnrn rn rn rn rn rn 正在论证: rn rn <%rs1.MoveFirst ()%>rn <%do until rs1.EOF%>rn ">rn <%=rs1.Fields("sqmc").Value %>rn <% rs1.MoveNext%><%loop%> rn rn rn rn rn rn rn rn 审批通过正在执行: rn rn <%rs2.MoveFirst ()%>rn <%do until rs2.EOF%>rn ">rn <%=rs2.Fields("sqmc").Value %>rn <% rs2.MoveNext%><%loop%>rn rn rn rn rn rn rn rn 审批通过执行完成:rn rn <%rs3.MoveFirst ()%>rn <%do until rs3.EOF%>rn ">rn <%=rs3.Fields("sqmc").Value %>rn <% rs3.MoveNext%><%loop%>rn rn rn rn rn rn rn rn 审批未通过:rn rn <%rs4.MoveFirst ()%>rn <%do until rs4.EOF%>rn ">rn <%=rs4.Fields("sqmc").Value %>rn <% rs4.MoveNext%><%loop%>rn rn rn rn rn rnrnrn rn <%rn sql5="select * from mgb01 where sqmc='"&request.QueryString("n")&"'"rn set rsB=conn.execute(sql5)rn'rsB.Open sql1,conn,1rn if rsB.EOF thenrn response.write "论坛版面不存在:("rn elsern%>rnrn rn rn 申请标志rn 申请名称rn 申请内容rn 申请时间rnrn<%do while NOT rsB.EOF%>rn rn <%=rsB("sqbz")%> rn <%=rsB("sqmc")%> rn <%=rsB("sqnr")%> rn <%=rsB("sqsj")%>rnrn<%rn rsB.MoveNextrn looprn end ifrnrsB.Closern%>rnrnrnrn rn rn rnrn

无法安装字体,哪里不对

03-26

小弟本人通过程序加载一个“微软雅黑”字体,但是总是不成功(系统中原先没有安装过该字体),rn以下是程序代码,望达人指点一下,哪里不对,需要在那里改一下。rnrnImports System.IOrnPublic Class Form1rn Private Declare Function CreateScalableFontResource Lib "gdi32" Alias "CreateScalableFontResourceA" (ByVal fHidden As Integer, ByVal lpszResourceFile As String, ByVal lpszFontFile As String, ByVal lpszCurrentPath As String) As Integerrn Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Integerrn Private Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Integerrn Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integerrn 'Private Declare Auto Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtrrnrn Private Const HWND_BROADCAST As Long = &HFFFF&rn Private Const WM_FONTCHANGE As Long = &H1Drnrn Dim strFontFile As Stringrn Dim FontName As String = Environment.CurrentDirectory & "\MSYH.TTF" '这是微软雅黑字体rn Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadrn AddAppFont()rn End Subrnrn Public Sub AddAppFont()rn Dim lResult As Longrn strFontFile = Environment.CurrentDirectory & "\TEMP.FOT"rn If CreateScalableFontResource(0, strFontFile, FontName, vbNullString) <> 0 Thenrn lResult = AddFontResource(FontName)rn SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) '通知程序字体已经更改rn Elsern Endrn End Ifrn End Subrn Public Sub RemoveAppFont()rn Dim lResult As Longrn lResult = RemoveFontResource(FontName)rn SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)rn File.Delete(strFontFile)rn End Subrn Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickrn With Label1rn .Font = New Font("微软雅黑", 20, FontStyle.Regular, GraphicsUnit.Pixel, CType(134, Byte))rn .Text = "这个字体是不是微软雅黑"rn End Withrn Debug.Print(Label1.Font.ToString)rn End Subrn Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClickrn RemoveAppFont()rn Endrn End SubrnEnd Classrnrnrn程序的字体就是不能显示出来,是那里不对呀?

没有更多推荐了,返回首页

私密
私密原因:
请选择设置私密原因
  • 广告
  • 抄袭
  • 版权
  • 政治
  • 色情
  • 无意义
  • 其他
其他原因:
120
出错啦
系统繁忙,请稍后再试