张志峰的博客

水滴石川,积少成多。

导航

上一页 1 ··· 75 76 77 78 79 80 81 82 83 ··· 120 下一页

2013年8月29日

摘要: 写一个日志的函数,只需要传内容进去即可,自动记录时间的,日志保存在'c:\ErpRunLog.txt'下procedure writeWorkLog(sqlstr: string);var filev: TextFile; ss: string;begin sqlstr:=DateTimeToStr(Now)+' Log: '+sqlstr; ss:='c:\ErpRunLog.txt'; if FileExists(ss) then begin AssignFile(filev, ss); append(filev); writeln(file 阅读全文

posted @ 2013-08-29 15:30 ╰★张志峰★╮ 阅读(2593) 评论(0) 推荐(0)

摘要: Delphi的托盘编程 。现在很多程序都用这个,比如傲游,迅雷等,主要代码如下:usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ShellAPI, AppEvnts, StdCtrls, Menus;const WM_NID = WM_User + 1000; //声明一个常量private { Private declarations } // 定义两个函数 procedure SysCommand(var SysMsg: TMessage); message WM_ 阅读全文

posted @ 2013-08-29 15:25 ╰★张志峰★╮ 阅读(413) 评论(0) 推荐(0)

摘要: unit MainUnit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, StdCtrls, Buttons;//涉及到系统编程方面都要用到API函数const WM_NID= WM_USER+1000;//系统规定从WM_USER开始为用户自定义消息。type TForm1 = class(TForm) BitBtn1: TBitBtn; procedure FormCreate(Sender: TObject); proc 阅读全文

posted @ 2013-08-29 15:23 ╰★张志峰★╮ 阅读(643) 评论(0) 推荐(0)

摘要: Node1.WriteString(HomologousFieldItem.cXMLNodeCode, AnsiToUtf8(FieldByName(HomologousFieldItem.cMappingFieldCode).AsString));还有一种,就是定义成WideString,保存成这种类型的数据, 然后用 Node1.WriteWideString()的方法,也可以避免。 阅读全文

posted @ 2013-08-29 14:56 ╰★张志峰★╮ 阅读(740) 评论(0) 推荐(0)

2013年8月28日

摘要: Delphi TcxTreeList 读取 TcxImageComboBoxItem类型的值:Node.Values[wiNodeLevel.ItemIndex];//值Node.Texts[wiNodeLevel.ItemIndex];//文本 阅读全文

posted @ 2013-08-28 16:54 ╰★张志峰★╮ 阅读(627) 评论(0) 推荐(0)

摘要: TcxTreeList 怎们显示下拉列表, 操作如下:1.定义一个TStringlist中存储你的信息。2.然后选定在TcxTreeList的哪个列要变成TCombobox, 如下图: 3. 进行赋值,代码如下: TcxComboBoxProperties(wcMappingFieldCode.Properties).Items.AddStrings(FFieldList); 这样就有值了, 不过这个代码必须保证表格至少有一行,才不会报错。4.设置TcxTreelst显示下拉列表 OK,运行程序,就可以看到效果了。 阅读全文

posted @ 2013-08-28 14:49 ╰★张志峰★╮ 阅读(831) 评论(0) 推荐(0)

摘要: Delphi TcxtreeList控件说明树。cxTreeList属性:Align:布局,靠左,靠右,居中等AlignWithMargins:带边框的布局Anchors:停靠 (akTop上,akBottom下,akLeft左,akRight右)Bands: 分组面板Caption:面板标题 AlignHorz:文字水平位置(居中,靠左,靠右) AlignVert:文字垂直位置(居中,靠左,靠右)Glyph:面板图标 GlyphAlignHorz:图标水平位置(居中,靠左,靠右) GlyphAlignVert:图标垂直位置(居中,靠左,靠右) MultiLine: 面板文字分多行 ShowE 阅读全文

posted @ 2013-08-28 10:39 ╰★张志峰★╮ 阅读(2801) 评论(0) 推荐(0)

2013年8月26日

摘要: Win7无法访问NAS或Samba服务器解决之道http://www.sina.com.cn2010年05月12日01:41IT168.com 【IT168 应用】默认情况下,Windows 7无法正常访问NAS或者Samba服务器上的共享文件夹。原因在于从Vista开始,微软默认只采用NTLM v2协议的认证回应消息了,而目前的NAS系统和Samba还只支持LM或者NTLM。 解决办法:修改本地安全策略或直接修改注册表 1、修改本地安全策略 运行secpol.msc打开“本地安全策略”窗体,依次点开“本地策略”-》“安全选项”,修改“网络安全: LAN 管理器身份验证级别”的值为“发... 阅读全文

posted @ 2013-08-26 21:20 ╰★张志峰★╮ 阅读(384) 评论(0) 推荐(0)

摘要: TF31003错误的解决办法在今天上午机器重新启动后,VS2012突然无法连接TFS2010了。在机器重新启动之前还使用正常。刚开始以为TFS出现了问题,不过其他小组同事使用却正常,问题应该在我这边。几次重新输入密码和用户名之后,都没有登录成功,一直提示:TF31003: 您尚未输入必需的凭据,或您的用户帐户没有连接到 的 Team Foundation Server 的权限。 单击下面的“使用其他凭据”链接,或要求服务器管理员为您的帐户添加适当的权限。在网上找了下,碰到这个问题的不少,解决方案基本一致:1.首先确认一下控制面板-系统和安全-windows防火墙-允许的程序里打开了“文件和打印 阅读全文

posted @ 2013-08-26 17:00 ╰★张志峰★╮ 阅读(1179) 评论(0) 推荐(0)

2013年8月23日

摘要: 在 Form 上放一个 BarManager鼠标右键它,可以建立一个 MainToolBar,鼠标右键MainToolBar,建什么随便你选。只不过,最后设置一下 BarManager 的 ImageList。双击 BarManager,把 每个 内容的 ImageIndex 设置一下。效果就出来了。步骤1.右键2.建立按钮3.把建立的按钮添加到toolbar上面, 就是把按钮往上面拖拽, 拖拽后的效果图,如下:这样就可以,双击编写代码了。 阅读全文

posted @ 2013-08-23 16:31 ╰★张志峰★╮ 阅读(762) 评论(0) 推荐(0)

上一页 1 ··· 75 76 77 78 79 80 81 82 83 ··· 120 下一页