- 博客(41)
- 问答 (10)
- 收藏
- 关注
RSS订阅转载 ZendStudio的常用设置
1、安装颜色主题① 顶部菜单栏② 帮助（help）③ 安装新软件（install new software）④ 输入路径: http://eclipse-color-theme.github.com/update/ ，右侧添加 ⑤ 勾选 Eclipse Color Theme 下一步安装完成即可2、设置主题及字体① 窗口（window）② 首选项（prefe
2015-06-04 09:05:19
668
原创 wamp中因root密码修改，而导致无法直接登录phpMyAdmin的解决方法
wamp装完，root用户密码默认为空；有时安装集成框架包时，会先在phpMyAdmin里修改root密码，再安装集成框架包(因为有些安装root密码不能为空)；这时，再用wamp直接访问phpMyAdmin，就无法正常访问了，需要做如下设置：路径：C:\wamp\apps\phpmyadmin4.1.14文件：config.inc.php修改：$cfg['Servers'][
2015-04-29 21:42:16
3852
转载 win7最大内存设置问题，导致系统无法启动的解决方法
cmd-msconfig-引导-高级选项-最大内存不能随便勾！否则可能会出现系统无法启动的情况！最便捷的解决办法，亲测可用：1、拔掉主板电池，用PS2口键盘按F8进入安全模式，然后在相同路径下去掉最大内存前面的勾，关机！2、装上主板电池，开机正常启动！
2015-04-22 10:43:38
12927
转载 XP桌面背景文件路径
XP下当前正在使用的桌面背景图片路径（需要显示全部文件和文件夹）：C:\Documents and Settings\Administrator\Local Settings\Application Data\Microsoft\Wallpaper1.bmpXP默认壁纸路径C:\WINDOWS\Web\Wallpaper
2015-04-22 10:35:42
1958
转载 解决运行wamp提示“MSVCR110.dll”丢失（win7 x64）
打开：http://www.microsoft.com/zh-CN/download/details.aspx?id=30679 下载：vcredist_x64.exe安装下载文件即可。
2015-04-22 10:30:01
8305
转载 SublimeText 3的下载、安装及使用
1、官网下载：www.sublimetext.com/3，下载系统对应版本安装2、ctrl+` : 打开命令行(注意屏蔽键值冲突，如遨游的老板键)2、复制下列代码，回车执行import urllib.request,os,hashlib; h = 'eb2297e1a458f27d836c04bb0cbaf282' + 'd0e7a3098092775ccb37ca9d6b2e4b7d
2015-04-15 09:09:54
4422
转载 PHP用jQuery实现无刷新验证
$(function(){ $("#codeno").blur(function(){ //文本框鼠标焦点消失事件 $.post("postCard.php?codeno="+$("#codeno").val(),null,function(data) //post方式按需求调整 { $("#check").html(data); //向ID为check的元素内添加html代码
2015-04-10 00:21:03
954
转载 在SAE上用PHP连接MySQL
<?php $con = mysql_connect(SAE_MYSQL_HOST_M.':'.SAE_MYSQL_PORT,SAE_MYSQL_USER,SAE_MYSQL_PASS); mysql_select_db("app_XXX", $con) or die("选择数据库失败"); ?>将上面代码保存为conn.php，其他页面里：include("conn.p
2015-04-09 09:24:18
594
转载 MySQL 用phpMyAdmin导入Excel中的数据
1、将Excel另存为：CSV（逗号分隔）文档；2、修改字段分隔符为","；3、点击右下角"执行"。
2015-04-09 09:21:24
2446
转载 mysql 数据库导入frm文件
1、wamp装完以后，在新数据库下建立一个与老数据库的同名文件夹。参考路径：C:\wamp\bin\mysql\mysql5.6.17\data2、把mysql停止[停止所有服务]，net stop mysql。3、把老数据库的frm数据复制到新文件夹下。4、把老数据库data目录下的ibdata1文件复制到新数据库的data目录
2015-04-09 09:19:49
2634
转载 PHP mysql_fetch_array遍历数据时的问题(指针需要复位)
遍历时少一行数据，将指针复位即可<?phpinclude("conn.php");$sql=mysql_query("select price from ticprice");$row=mysql_fetch_array($sql);mysql_data_seek($sql,0); //指针复位while($row=mysql_fetch_array($sql)){?>">
2015-04-09 09:12:49
7772
转载 微信公众平台开发 获取用户基本信息(nickname等)
<?php $appid = "wxXXXXXXXXXXXXXXXXXX"; $appsecret = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"; $url = "https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid=$appid&secret=$appsecret"
2015-04-09 09:04:41
17333
1
转载 微信公众平台开发 获得公众号的access_token
$appid = "wxXXXXXXXXXXXXXX";$appsecret = "XXXXXXXXXXXXXXXXXXXXXXXXX";$url = "https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid=$appid&secret=$appsecret"; $ch = curl_init()
2015-04-09 09:00:40
1472
转载 微信公众平台开发 获得所有关注者的Openid
<?php $appid = "wxXXXXXXXXXXXXXXXXXXX"; $appsecret = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"; $url = "https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid=$appid&secret=$app
2015-04-09 08:58:30
11896
转载 delphi 按回车选中下一个控件
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);begin if Key = #13 then begin Key := #0; SelectNext(ActiveControl, True, True); end;end;
2015-04-09 08:51:06
3980
转载 delphi 通过事务插入数据
orsn1.StartTransaction; try qry1.Sql.Clear; qry1.Sql.Text:=' select * from log '; qry1.Open; qry1.Insert; qry1.FieldByName('Rq').AsDateTime:=StrToDate(FormatDate
2015-04-09 08:46:03
852
转载 delphi 让程序状态栏显示今天星期几
procedure TForm1.FormShow(Sender: TObject);const cWeek:array[1..7] of string = ('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');begin rzstspn1.Caption:=cWeek[DayofWeek(Now)];end;
2015-04-09 08:37:48
1955
转载 delphi ”invalid argument to date encode“的解决方法
yy,mm,dd:word; // 同比(去年同期) 闰年2月29日无同比，就取去年的2月28日 decodedate(dtp1.Date,yy,mm,dd); if MonthDays[IsLeapYear(yy - 1), mm] < dd then QnDate := FormatDateTime('yyyy.mm.dd',EncodeDate(yy-1,mm,dd-1
2015-04-08 15:46:04
11652
转载 delphi Application.MessageBox 添加数据提示
Application.MessageBox(Pchar('号码：' + dm.qry1.ParamByName('p_1').AsString+ '删除成功！'), '提示', MB_OK + MB_ICONINFORMATION); Application.MessageBox(Pchar('注意，昨天的日期是：' + dateToStr(now-1) + '！'), '提示', MB_O
2015-04-08 15:41:18
1934
转载 delphi 字符截取函数LeftStr/MidStr/RightStr以及Copy的使用
如字符串是 Dstr:= 'Delphi is the BEST', 那么 LeftStr(Dstr, 5) :='Delph' 从左往右截取，长度是5MidStr(Dstr, 6, 7) :='i is th' 从第6个字符开始截取，长度是7RightStr(Dstr, 6) := 'e BEST' 从右往左截取，长度是6注意：这几个函数都包含
2015-04-08 15:09:34
19931
转载 delphi locate函数的使用
loc1:= qry1.FieldbyName('SPBM').AsString; //商品编码loc2:= qry1.FieldbyName('XH').AsString; //型号qry.Locate('XH;SPBM', VarArrayOf([loc2,loc1]), [loCaseInsensitive]); //
2015-04-08 15:05:52
9367
转载 delphi 设置本程序的日期格式
客户端的日期格式: yyyy-mm-dd，程序里想用 yyyy.mm.dd 但又不想更改客户端的日期格式。方法：在程序第一个form的create事件中加入：DateSeparator:='.';ShortDateFormat:='yyyy.mm.dd';
2015-04-08 15:00:00
1317
转载 delphi 在程序中实现跳转到某个网页
USES ShellApiprocedure TForm1.Button1Click(Sender: TObject);begin shellexecute(handle,nil,pchar('http://www.csdn.net'),nil,nil,sw_shownormal);end;
2015-04-08 14:57:58
2458
转载 delphi 将F1Book生成的报表保存到Excel
begin SaveDialog1.DefaultExt:='xls'; SaveDialog1.Filter:='Excel文件(*.xls)|*.xls'; if SaveDialog1.Execute then begin f1main.write(SaveDialog1.FileName,f1fileexcel5); Application.MessageB
2015-04-08 14:56:27
1079
转载 delphi 几个日期函数介绍
需要 USER:DateUtils①本月的第一天和最后一天StartOfTheMonth(NOW) 和 EndOfTheMonth(NOW) 函数获取。②本年的第一天和最后一天StartOfTheYear(NOW) 和 EndOfTheYear(NOW) 函数获取。
2015-04-08 14:53:46
473
转载 delphi DBTreeview与数据库连接的数据存取
//操作：procedure TForm1.act_GetListExecute(Sender: TObject);begin FieldList := TStringList.create; TreeView1.items.BeginUpdate; Table1.Close; // 关键！这样才能在插入、更新、删除表数据后实现实时更新 Table1.Open;
2015-04-08 14:48:31
3441
原创 delphi F1Book的行列动态合计
const cColumn:array[1..13] of string = ('B','C','D','E','F','G','H','I','J','K','L','M','N');//行合计：行合计所在列为N列F1Main.FormulaRC[i,14]:= 'sum(B'+IntToStr(i)+':'+'M'+IntToStr(i)+')';//列合计：列合计从第二列开
2015-04-08 10:29:39
1079
原创 delphi 将Query的结果与字符串一条条按顺序组合插入新表
var i:integer; //...... qry1.First; i:=0; while not qry1.Eof do begin qry2.Close; qry2.Sql.Clear; qry2.Sql.Text:='insert into Table1 values (:BM,:JE) '; st:=Tstrin
2015-04-08 10:24:40
1302
转载 delphi BDE配置文件路径
路径: C:\Program Files\Common Files\Borland Shared\BDEBDE的配置文件名: idapi32.cfg直接复制即可使用，免去了重新配置的麻烦。
2015-04-08 10:20:37
1924
转载 delphi 将本地系统时间设置为数据库(Oracle)时间
var systemtime:Tsystemtime; DateTime:TDateTime;begin dm0.qry1.close; dm0.qry1.SQL.Clear; dm0.qry1.SQL.Text:='select sysdate from dual'; dm0.qry1.Open; DateTime:=dm0.qry.FieldByName('sy
2015-04-08 10:12:50
1245
转载 delphi 用鼠标滚轮控制Form的垂直滚动条
Form的OnMouseWheel事件 procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin
2015-04-08 10:09:51
3169
原创 delphi F1book快速填充数据
//填充日期(纵向) rq:=dtp1.Date; for i:=6 to daysbetween(dtp1.Date,dtp2.Date)+6 do // 6是起始行号 begin F1Main.TextRc[i,1]:=FormatDateTime('yyyy-mm-dd',rq); rq:=rq+1;
2015-04-08 10:05:21
852
转载 delphi 设置程序不能同时打开多个
Interface Uses： Windows, Forms//登录Form OnCreate事件 if AppRunning = True then begin Application.MessageBox('对不起，程序已运行！', '提示', MB_OK + MB_ICONINFORMATION); Application.Termina
2015-04-08 09:59:37
723
原创 delphi 判断两个日期是否相等
delphi中判断日期相等：if (dtp1.Date=Now) and (dtp2.Date=Now) then 这样是不行的，可以参考以下方法： if (FormatDateTime('yyyy-mm-dd',dtp1.Date)=FormatDateTime('yyyy-mm-dd',Now)) and (FormatDateTime('yyyy-mm-dd',dtp2.Da
2015-04-08 09:56:50
3123
转载 delphi 获得程序名称及所在路径
procedure TForm1.FormCreate(Sender: TObject);begin lbl1.caption:=ExtractFileName(Application.EXEname); // 获得程序名称 lbl2.caption:=ExtractFilePath(Application.EXEname); // 获得程序路径end;
2015-04-08 09:50:32
2482
转载 delphi Dbgrid 根据值的不同显示不同颜色
DBGrid1DrawColumnCell 事件中：if Column.FieldName='STATUS' then begin if dm.qry1.FieldByName('STATUS').AsInteger=1 then begin dbgrid1.Canvas.Font.Colo
2015-04-08 09:49:17
2045
原创 delphi Richedit控件的用法
dm.qryTmp.First; while not dm.qryTmp.eof do begin edt_re.Lines.Add (dm.qryTmp.FieldByName('Field01').AsString +' '+dm.qryTmp.FieldByName('Field02').AsString +' '+dm.qryTmp.Field
2015-04-07 17:00:48
6580
转载 delphi Dbgrid隔行数据显示奇偶色
目标：Dbgrid隔行数据显示奇偶色DBGrid1DrawColumnCell 事件：var RowHeight,Row:INteger;begin RowHeight := Rect.Bottom - Rect.Top + 1; //Rect矩形 Row := (Rect.Top div RowHeight); if row mod 2 = 0 then
2015-04-07 16:49:54
1137
转载 delphi 将Query的结果导出到Excel
目标：将Query的查询结果输出到ExcelinterfaceusesComObj, DB;var function DataSetToExcel(DataSet:TDataSet;FieldTagMax:Integer;Visible:Boolean;ExcelFileName:String=''): Boolean; function DataSetToExcel
2015-04-07 16:41:23
930
空空如也
爬虫：期望自动打开多个网页中标题包含aaa的网页链接，但始终不成功，求助！
2018-04-27
不修改nginx配置，能否修改tp5路由，使得tp5在强制模式下运行在nginx？
2018-04-06
php中，如何用正则提取字符串中位数不确定的数字？
2018-03-16
Mysql5.7.18 存储过程跨日处理 求助！
2018-03-16
icomoon字体图标对应的content为何会发生变化？
2015-11-28
JS提示框如何传值，以及方式的选用问题
2015-04-13
SELECT控件通过innerHTML插入，接下来该如何传值的问题（PHP）
2015-04-11
json_decode解析的问题
2015-04-10
php jQuery 实现无刷新验证问题
2015-04-09
多个ajax请求，返回值后覆盖掉之前的请求结果，求各位解答！万分感谢！
2015-02-26
TA创建的收藏夹 TA关注的收藏夹
TA关注的人