2012年5月30日
摘要: --1、创建序列create sequence seq_testincrement by 1 -- 每次加几个start with 1 -- 从1开始计数nomaxvalue -- 不设置最大值nocycle -- 一直累加,不循环cache 10 --缓存数量--2、直接使用序列insert into test values(SEQ_TEST.NEXTVAL,'刘备',27);insert into test values(SEQ_TEST.NEXTVAL,'张飞',28);-- id name age----... 阅读全文
posted @ 2012-05-30 08:54 天 火 阅读(5939) 评论(0) 推荐(0) 编辑
  2012年5月29日
摘要: { 可用于下拉框的值,因为不经常变,就算变可改变INI文件一次。 一、ini文件结构 ; 注释,独占一行,否则认为是关键字的值 [小节名] 关键字=值 二、定义 uses IniFiles [UserInfo] userName=moon userPas=123456 isHun=1 [UserPro] userAge=26} //定义 filePath:String; myIniFile:TIniFile; //创建 fileP... 阅读全文
posted @ 2012-05-29 16:09 天 火 阅读(302) 评论(0) 推荐(0) 编辑
摘要: 1、将OpenDialog打开的图片显示到image控件://如果需要打开jpg图片,需要引用单元 uses jpeg;image1.Picture.LoadFromFile(OpenDialog1.FileName);2、产生随机数//uses math;Randomize; //初始化随机种子,否则结果相同。Randomrange(0,5); //随机产生0至4的随机数。random(5); //随机产生0到4的随机数。3、修改Delphi工具控件的默认字体:注册表:Delphi 6: HKEY_CURRENT_USER\Software\Borland\Delphi\6.0Del... 阅读全文
posted @ 2012-05-29 13:54 天 火 阅读(280) 评论(0) 推荐(0) 编辑
摘要: 1、提示框TbsSkinMessageuses Dialogs; bsSkinMessage1.MessageDlg2(value,'提示',mtInformation,[mbOk],0); 阅读全文
posted @ 2012-05-29 10:54 天 火 阅读(265) 评论(0) 推荐(0) 编辑
摘要: 1、右键选择行procedure TFZu.SG_dataMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var MousePos: TSmallPoint;begin if Button = mbRight then begin MousePos.x := x; MousePos.y := y; SendMessage(SG_data.Handle, WM_LBUTTONDOWN, ... 阅读全文
posted @ 2012-05-29 09:30 天 火 阅读(5606) 评论(0) 推荐(0) 编辑
  2012年5月28日
摘要: 一、创建XML类1、把字符串对象转换为XML:var xmlStr:String="<students><student><name>吕布</name><sex>男</sex><age>27</age></student>";xmlStr+="<student><name>貂蝉</name><sex>女</sex><age>26</age></student>&l 阅读全文
posted @ 2012-05-28 14:36 天 火 阅读(13489) 评论(0) 推荐(0) 编辑
摘要: 1、新建AS类,用于为Tree生成复选框,及一些选择事件。package com.th.myUtils{ import flash.events.Event; import flash.events.MouseEvent; import mx.controls.Alert; import mx.controls.CheckBox; import mx.controls.Tree; import mx.controls.treeClasses.TreeItemRenderer; import mx.controls.treeClasses.Tre... 阅读全文
posted @ 2012-05-28 13:41 天 火 阅读(7052) 评论(1) 推荐(1) 编辑
  2012年5月25日
摘要: 1、屏蔽系统菜单:工程目录“html-template”文件夹-->“index.template.html”文件中,在var params = {};语句下添加新语句: params.wmode = "opaque";2、新建Tree右键菜单工具类:TreeRightClickManager.aspackage com.th.rightClickManager{ import flash.display.InteractiveObject; import flash.events.ContextMenuEvent; import flash.events.Mouse 阅读全文
posted @ 2012-05-25 15:22 天 火 阅读(7056) 评论(2) 推荐(0) 编辑
摘要: 一、Java端:1、新建WebServiceProject,在项目名称中输入:FlexWebService,下面Framework选择XFire,点击完成。2、新建包:com.th.services ,包上右击新建-->其它-->Web Services-->Web Service(在Strategy中选择:Create web service from java class(Bottom-up scenario),将下面的Create new Java bean 选中)-->下一步(Web service name:FlexService,Java package选择 阅读全文
posted @ 2012-05-25 11:35 天 火 阅读(2696) 评论(1) 推荐(2) 编辑
摘要: 1、在JavaWeb项目中新建Servlet(FlexLoginServelt) :public void doPost(HttpServletRequest request, HttpServletResponse response) throws ServletException, IOException { response.setContentType("text/html"); response.setContentType("text/xml;charset=utf-8"); PrintWriter out = res... 阅读全文
posted @ 2012-05-25 10:56 天 火 阅读(4826) 评论(0) 推荐(1) 编辑