摘要： Edit1.text := ((wbmap.document as IHTMLDocument2).all.item('tname', 0) as ihtmlinputelement).valuedit1.text:= wbmap.OleObject.document.getElementByID('tname').value;wbmap：webbrowser;tname:网页标签ID名； 阅读全文

摘要： //显示批量 车辆的位置信息function TFormMain.ShowCarsPosition: Boolean;var lyr: layer; //层 fts: feature; //特征 pt: MapXLib_TLB.point; //点 mstyle: style; //样式 str: string; //特征标注 speed, x, y: double; Vehiclelist: TStringList; direction, i: Integer;begin Map1.Layers.Remove(1); lyr := Map1.Layers.CreateLa... 阅读全文

摘要： --首先自定义一种名为：row_month_report类型typecreate or replace type row_month_report as object(m_month varchar2(30),m_SluiceName varchar2(30),m_OneSluiceCount number,m_TwoSluiceCount number,m_OneUpEmptyCount number,m_OneDownemptyCount number,m_TwoUpemptyCount number,m_TwoDownemptyCount number,----------------- 阅读全文

摘要： 1.首先要创建一个类型集合；create or replace type row_month_report as object---声明一种类型(m_month varchar2(30),m_SluiceName varchar2(30),m_OneSluiceCount number,m_TwoSluiceCount number,m_OneUpEmptyCount number,m_OneDownemptyCount number,m_TwoUpemptyCount number,m_TwoDownemptyCount number,------------------------这是写要 阅读全文

摘要： 列子：Select name,num from test where rowid!=(select max(rowid) from test b where b.names=test.names andb.num=test.num);----------------------------------------- 速度优化，前一语句比后一语句的速度快几十倍select names,dates from test,bwhere test.names = b.names(+) and b.names is null and b.dates > date('2003-01-01 阅读全文

摘要： procedure TFrmMain.edtKeyPressInPut(Sender: TObject; var Key: Char);begin if not (Key in ['0'..'9', '.', #08]) then begin Key := #0; end;end;主要是['''''''']里面的表达，两者之间用‘,’号隔开，相关的键盘代码是：vk_LButton = $01; vk_RButton = $02; vk_Cancel = $03; vk_MButton 阅读全文

摘要： 欲得到 如:SQL: select t.operatoroid 编号 ,t.operatorname||'('||t.rolename||')' 用户 from v_operatorinfo t 阅读全文

摘要： declare pageSize number; currentPage number; row_count number;--表的总行数 firstRow number;--分页查询第一条 lastRow number;-- 分页查询最后一条 pageTotalNum number;--总页数 process number;--过程 cur_1 number;--游标 table_name varchar2(100);--输入的表名 column_num number;--列数 tmp_sql varchar2(500); --动态sql语句 ... 阅读全文

摘要： using System;using System.Collections;using System.Data;using System.Linq;using System.Web;using System.Web.Services;using System.Web.Services.Protocols;using System.Xml.Linq;using System.Web.Security;using System.Web.UI;using System.Web.UI.HtmlControls;using System.Web.UI.WebControls;using System.W 阅读全文

摘要： --这句是执行语句exec sp_PublicTurnPage 'student',20,2,'SID','DESC','*','',''--创建存储过程create proc sp_PublicTurnPage2(@TBName nvarchar(2000)='student',--表名,如 pinyin@PageSize int =10,--每页的记录数,默认为 10@CurPage int =1,--表示当前页 1@KeyField nvarchar(100) ='SI 阅读全文