|
||
|
摘要：
写一个日志的函数,只需要传内容进去即可,自动记录时间的,日志保存在'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 ╰★张志峰★╮ 阅读(2600) 评论(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 ╰★张志峰★╮ 阅读(418) 评论(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 ╰★张志峰★╮ 阅读(648) 评论(0) 推荐(0)
摘要：
Node1.WriteString(HomologousFieldItem.cXMLNodeCode, AnsiToUtf8(FieldByName(HomologousFieldItem.cMappingFieldCode).AsString));还有一种，就是定义成WideString，保存成这种类型的数据， 然后用 Node1.WriteWideString()的方法，也可以避免。 阅读全文
posted @ 2013-08-29 14:56 ╰★张志峰★╮ 阅读(746) 评论(0) 推荐(0)
摘要：
Delphi TcxTreeList 读取 TcxImageComboBoxItem类型的值：Node.Values[wiNodeLevel.ItemIndex]；//值Node.Texts[wiNodeLevel.ItemIndex]；//文本 阅读全文
posted @ 2013-08-28 16:54 ╰★张志峰★╮ 阅读(632) 评论(0) 推荐(0)
摘要：
TcxTreeList 怎们显示下拉列表, 操作如下：1.定义一个TStringlist中存储你的信息。2.然后选定在TcxTreeList的哪个列要变成TCombobox， 如下图： 3. 进行赋值，代码如下： TcxComboBoxProperties(wcMappingFieldCode.Properties).Items.AddStrings(FFieldList); 这样就有值了， 不过这个代码必须保证表格至少有一行，才不会报错。4.设置TcxTreelst显示下拉列表 OK，运行程序，就可以看到效果了。 阅读全文
posted @ 2013-08-28 14:49 ╰★张志峰★╮ 阅读(836) 评论(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 ╰★张志峰★╮ 阅读(2823) 评论(0) 推荐(0)
摘要：
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 ╰★张志峰★╮ 阅读(389) 评论(0) 推荐(0)
摘要：
TF31003错误的解决办法在今天上午机器重新启动后，VS2012突然无法连接TFS2010了。在机器重新启动之前还使用正常。刚开始以为TFS出现了问题，不过其他小组同事使用却正常，问题应该在我这边。几次重新输入密码和用户名之后，都没有登录成功，一直提示：TF31003: 您尚未输入必需的凭据，或您的用户帐户没有连接到 的 Team Foundation Server 的权限。 单击下面的“使用其他凭据”链接，或要求服务器管理员为您的帐户添加适当的权限。在网上找了下，碰到这个问题的不少，解决方案基本一致：1.首先确认一下控制面板-系统和安全-windows防火墙-允许的程序里打开了“文件和打印 阅读全文
posted @ 2013-08-26 17:00 ╰★张志峰★╮ 阅读(1186) 评论(0) 推荐(0)
摘要：
在 Form 上放一个 BarManager鼠标右键它，可以建立一个 MainToolBar，鼠标右键MainToolBar，建什么随便你选。只不过，最后设置一下 BarManager 的 ImageList。双击 BarManager，把 每个 内容的 ImageIndex 设置一下。效果就出来了。步骤1.右键2.建立按钮3.把建立的按钮添加到toolbar上面, 就是把按钮往上面拖拽， 拖拽后的效果图，如下：这样就可以，双击编写代码了。 阅读全文
posted @ 2013-08-23 16:31 ╰★张志峰★╮ 阅读(766) 评论(0) 推荐(0) |
||
浙公网安备 33010602011771号