暂无个人介绍
type TForm1 = class(TForm) Button1: TButton; ComboBox1: TComboBox; procedure Button1Click(Sender: TObject); procedure FormCreate(S...
什么是低值易耗品 低值易耗品(Low-value consumption goods/Low value consumables) 2006年新的会计制度中,将包装物与低值易耗品,合并为包装物及低值易耗品,科目编号为:1412 编辑本段 低值易耗品摊销 低值易耗品摊销的主要方法有: 1.一次摊销法; 一次摊销法是指领用低值易耗品时,将其价值全部一次转入产品成本的方法。
取得当前月份的第一天和最后一天的日期 StartOfTheMonth(Now) EndOfTheMonth(Now) 还要引用DateUtils单元
var i: Integer;begin //ADOQuery已打开 //在数据集打开的情况下新增加一个字段 with Self.ADOQuery1 do begin TDataSetDesigner.
1.输入http://sjoracle:1158/em(其中sjoracle为你的oracle服务器名) 2.输入用户名和密码登陆 3.在数据库实例下面选择作业->创建作业 4.输入名称,定时执行的SQL语句,调度页面中输入时间点,然后保存即可。
var GPage,GIndex,FGIndex:integer; PageList:array of integer; PageLine: integer; PageMaxRow: integer=28; procedure PageFooter1OnB...
function BytesToStr(const i64Size: Int64): string;const i64GB = 1024 * 1024 * 1024; i64MB = 1024 * 1024; i64KB = 1024;begin if i64Size div i64GB > 0 then Result := Format('%.
(1)控件属性设置RecvBufferSize说明(默认值为8192字节):该属性为整型变量,用于指定连接所用的接受缓冲区大小。这些属性是indyftp里面的。 SendBufferSize说明(默认值为32768字节):该属性也为整型变量,用于指定连接所用的发送缓冲区的最大值。
打印纸的长度尺寸2孔为1英寸,1英寸等于2.54mm,11英寸等于27.94cm(2.54*11) 所以6孔的纸尺寸为7.62(2.54*3) 附: 1英寸=2.54厘米1厘米=0.3937008英寸1英尺=12英寸 1英尺=30.
如何用idftp遍历整个目录----下载、删除_delphi教程 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ...
DCC32參數2007-03-30 11:25用过DELPHI都应对DCC32有所耳闻了,它的参数翻译过来如下:DCC32參數它的編譯器參數如下: 选项 描述 Aunit=alias 设置单元别名 B 编译所有单元 CC 编译控制台程序 CG 编译图形界面程序 Dde...
使用 {$INCLUDE} 或 {$I} 指令管理和调用自定义函数 这是一个简单、方便而又实用的小技巧. 譬如这段代码中有四个定义函数: MyAdd、MyDec、MyMul、MyDiv ---------------------------------------------------------...
一.要使用Codesite,需要引用csintf单元二.CodeSite的基本方法 (一)AddCheckPoint方法 codesite.AddCheckPoint 加入监测点 (二)AddSeperator方法 codesite.
比如在一个窗体里有一个“取消”和“确定”按钮,“取消”按钮批次取消所有修改,“确定”按钮批次提交:1.设置QryDef(数据集)的LockType为ltBatchOptimistic,CursorType为ctStatic,CursorLocation为clUseClient2.
这种方法是响应了OnColumnClick和OnCompare这两个事件,其中在OnColumnClick中调用TListView中的CustomSort函数,并把此函数的第一个参数设为nil把OnCompare事件激活的。
一.事务级临时表是指该临时表与事务相关,当进行事务提交或者事务回滚的时候,临时表中的数据将自行被截断,其他的内容和会话级的临时表的一致(后面加入ON COMMIT PRESERVE ROWS) CREATE GLOBAL TEMPORARY TABLE admin_work_area ...
组件程序的装载和卸载 ------------------------------------------------------------------------------- 进程内组件的装载: 客户程序调用COM 库的 CoCreateInstance 或 CoGetClassObject ...
Adobe Acrobat PDF控件AcroPDF.ocx退出窗体报错的解决方法: 在Form的Destroy事件中写入(需引用ole2单元) if APDF1nil then begin APDF1.
1、远程桌面的功能 当某台计算机开启了远程桌面连接功能后我们就可以在网络的另一端控制这台计算机了,通过远程桌面功能我们可以实时的操作这台计算机,在上面安装软件,运行程序,所有的一切都好像是直接在该计算机上操作一样。
unit TransferThread; //////////////////////////////////////////////////////////////////////////////// // 模块说明: FTP传输核心模块类 // 功能: 指定一个下载(上传)的日期或文件名,系统执行传输功能(支持续传) // 备注:该模块属于传输类的一个子线程模块.
Serv-U使用方法及应用技巧(一) 2007年03月30日 星期五 17:08 1.1 Serv-U的安装 Serv-U的安装很简单,和其他windows程序一样,执行setup.exe,即可开始安装;全部选默认选项即可。
很多场合下我们会用到纯文本编辑器,Windows自带的记事本功能很简陋,因此我们从网友的投票提名中选取了前五个最佳的文本编辑器(实际上有六个)。这些编辑器实际上主要适合程序员使用,他们的清单如下。 Notepad++ (Windows) 优于Windows记事本的一个文本编辑器,完全免费且开源,对于不同的编程语言可以实现语法高亮,代码折叠以及宏,起可定制性非常强。
系统运行的命令集锦 gpedit.msc-----组策略 sndrec32-------录音机 Nslookup-------IP地址侦测器 explorer-------打开资源管理器 logoff---------注销命令 tsshutdn-------60秒倒计时关机命令 lusrmgr.
VIM操作指南 一. 移动 h,j,k,l 对应左,下,上,右 w 移动光标向前一个单词 b 移动光标向后一个单词 nw 移动光标向前n个单词 nb 移动光标向后n个单词 $ 移动光标到行首 ^ 移动光标到当前行的第一个字母处 ) 移动光标到下一...
Implementation goes this way: type TSampleEnumType = (seNone, seONE, seTWO, seTHREE, seFOUR); TSampleRecord = record SampEType: TSampleEnumTyp...
const DayList: array[0..6,1..4] of SmallInt =((1, 5,11,1), ...
1.FastReport中如何共用TFrxreport及TfrxDBDataSet 一个程序中,不管多么大的程序,只要打印或预览时是模式的,则完全可以共用一个TFrxreport 变量及几个TfrxDBDataSet。
动态创建Fastreport分以下几个步骤: 1.首先清空Fastreport,定义全局变量,并加载数据集 frReport.Clear; frReport.DataSets.Add(frxDBDataset1); DataHeight :=28; DataWidth :=80; FirstTop := 50; FirstLeft := 15; 2.
by tinyANT on 三月 24, 2009, under FASTREPORT, 包裹, 民本, 碎末, 1,758 views 写在前面的话:翻译水平有限,只为更加方便查阅和使用,如果翻译不准确的地方欢迎指正,资料来源于FastReport官方网站。
想删除文件夹里的所有OBJ文件,找了半天,最后发现其实一个命令就解决了:del /S .\*.obj
值得关注的十个优秀的CSS框架 时间:2010-01-02 22:26来源:CSS中国 作者:秩名 点击: 371次 大多数做过网页设计的都知道 CSS框架 ,而且肯定有很多设计师已经开始在作品中使用CSS框架。
为了帮朋友解决在WINDOWS XP系统上无法安装SQL server服务器版的问题,只好也装了一套WINDOWS XP系统,参考网上以及其它资料,现已经成功的在WINDOWS XP系统安装了SQL server服务器版,希望对需要的网友会有一定的帮助,不多说,步骤如下: 一、找一张SQL server服务器版光盘,在光盘上找到目录“MSDE”并进入,运行SETUP.EXE文件,并按照程序要求进行安装。
Mozilla公布火狐4详情:更快 更支持开放标准 火狐公布火狐4.0版的更多技术详情 北京时间5月11日消息,据国外媒体报道,火狐(Firefox)浏览器开发商Mozilla技术开发副总裁迈克·贝尔泽纳(Mike Beltzner)今天公布了火狐4.0版的更多技术详情,称火狐4.0版整体运行速度将更快,将更多支持开放互联网浏览标准,同时把隐私保护控制权完全交给用户。
网上查了下,貌似WriteComponentResFile,ReadComponentResFile可以,但是必须是一个TComponet的对象,我要串行化一个OleVariant的对象,大大们,怎么做? 要持久对象,必须继承TPersistent.
CreateFontIndirect - 根据字体结构建立逻辑字体 //声明: CreateFontIndirect( const p1: TLogFont {字体结构} ): HFONT; {返回新字体指针} //TLogFont 是 tagLO...
procedure SetPrinterPaper(APaperNo: Integer; APaperWidth, APaperHeight: Double); //设置当前打印机的纸张大小 //纸张号 9 A4 13 B5 //页宽和页高,单位mm var Device: array[0.
TMyString = class(TObject) private FStrBeginTran: string; FStrEndTran: string; protected function GetData(myData: TMyField): st...
function GetIDInfoGetDInfo(const CardNo: string; var Sex, BirthDay: string; var Age: Integer; var Area: string): Integer; var iCardNo: Int64...
procedure CloseEDTIME(edt: TEdit); var KeyStates: TKeyboardState; begin GetKeyboardState(KeyStates); if (KeyStates[VK_CAPITAL] = 1) then...
//去除左边的全角 function MyTrimLeft(const S: string): string; var ci, sl: integer; c: char; begin ci := 1; sl := length(S); while (ci = 0)...
C++常用排序法研究 上一篇 / 下一篇 2008-05-22 13:59:17 查看( 877 ) / 评论( 0 ) / 评分( 0 / 0 ) 首先介绍一个计算时间差的函数,它在头文件中定义,于是我们只需这样定义2个变量,再相减就可以计算时间差了。
//Delphiprocedure TForm1.ButtonLevelUpClick(Sender: TObject);var ARecord: TcxCustomGridRecord;begin with TcxCustomGridTableView(Grid.
在TdxDBTreeView控件的OnKeyDown事件中写入if Key = VK_F2 thenbegin if DBTreeMain.DBSelected = nil then Exit; DBTreeMain.DBSelected.EditText;end;
利用TdxDBTreeView控件(此处设为DBTreeMain)时,可以从表中直接显示出树结构,有时需要拖动对节点进行排序,而且数据表中有字段SortCode用于排序码,此时需要编写对应代码,步骤如下1.
假设cxgrid为cxMain,TableView为ViewSelData,现在要根据数据集的colColorMark来改变本行的颜色,则可在ViewSelData的OnCustomDrawCell写入if AViewInfo.
键值大全 日期:2004年8月31日 作者: 人气:147 查看:[大字体 中字体 小字体] 在keydown事件里面 showmessage(inttostr(key)); 在keypress事件里面 showmessage(key); 就知道了。
一.参数类型 Object Pascal语言允许五种类型的参数(不是指参数的数据类型),分别是数值参数、常量参数、变量参数、 无类型的参数、开放数组参数。 不管是哪一种参数类型,在调用过程或函数时,实参跟形参在个数上必须相同,在数据类型上必须赋 值相容。
1。代码模板 : CTRL+J 2。代码整块移动 : CTRL+SHIFT+I(右移) CTRL+SHIFT+U(左移) 3。选中窗体 : 先选中任一控件,SHIFT+鼠标左键 4。将鼠标指向变量名、单元名、类名,再用 CTRL+鼠标左键,可找到相应的说明 5。
#include #include #define ERROR 0 #define TRUE 1 #define FALSE 0 #define OK 1 #define EQUAL 1 #define OVERFLOW -1 #define STACK_INIT_SIZE 10...
DevC++4.9.9.2中,按 F8 开始调试。提示信息为:工程没有调试信息,您想打开工程的调试选项并重新生成吗?选择是后,再按F8,仍旧是这个信息。什么原因呢? 按照帮助,Frequently Asked Questions (FAQ)中提示How do i enable Debuggi...