摘要：The following table lists all defined types for LOCALE_IPAPERSIZE, with DMPAPER_LETTER, DMPAPER_LEGAL, DMPAPER_A3, and DMPAPER_A4 being the most typical. All types other than the ones shown in the table are reserved. Note that the paper size types cannot be combined with one another.TypeValueMeaning 阅读全文

摘要：//可以添加ACTIVE DS TYPE LIBRARY想把自己的东西整理出来已经很久了，可是一直没有时间，自己的水平又太差，也怕耽误别人的时间，所以至今没写出任何东西出来。可是每次看到别人的文章心里也痒痒，于是找来自己在www.delphibbs.com上发表过的一个帖子，以回馈大家。{ *********************************************************************** }{ }{ }{ zhao zhenhua }{ }{ Copyright zhao zhenhua email:zhao-zhenhua@163.net }{ } 阅读全文

摘要：function Kill_Task(ExeFileName: string): integer;const PROCESS_TERMINATE=$0001; //进程的PROCESS_TERMINATE访问权限var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32;begin result:= 0; FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); //获取系统所有进程快照 FProcessEntr 阅读全文

摘要：procedure SetFileDateTime(const Tf: string; now1: TDateTime);var Dt1, Dt2: Integer; Fs: TFileStream; Fct, Flt: TFileTime;begin Dt1 := DateTimeToFileDate(now1); Dt2 := Dt1; try FS := TFileStream.Create(Tf, fmOpenReadWrite); try if DosDateTimeToFileTime(LongRec(DT1).Hi, LongRec(DT1).Lo, Fct) and Local 阅读全文

摘要：type TForm1 = class(TForm) Button1: TButton; ComboBox1: TComboBox; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; {...} procedure TForm1.FormCreate(Sender: TObject); begin { tell printer to go to th 阅读全文

摘要：什么是低值易耗品 低值易耗品(Low-value consumption goods/Low value consumables) 2006年新的会计制度中，将包装物与低值易耗品，合并为包装物及低值易耗品，科目编号为：1412 编辑本段低值易耗品摊销 低值易耗品摊销的主要方法有： 1．一次摊销法； 一次摊销法是指领用低值易耗品时，将其价值全部一次转入产品成本的方法。这种方法适用于价值低、使用期限短，或易于破损的物品如玻璃器皿等。采用这种方法摊销低值易耗品价值时，其最高单价和适用品种必须严格控制，否则会影响各期产品成本负担，以及影响在用低值易耗品的管理，防止损失浪费。 2．分期摊销法； 分期摊销 阅读全文

摘要：取得当前月份的第一天和最后一天的日期StartOfTheMonth(Now)EndOfTheMonth(Now)还要引用DateUtils单元 阅读全文

摘要：var i: Integer;begin //ADOQuery已打开 //在数据集打开的情况下新增加一个字段 with Self.ADOQuery1 do begin TDataSetDesigner.Create(Self.ADOQuery1); try Designer.BeginDesign; //Keep Old Field //保留旧的字段 Designer.DataSet.Fields.Clear; for i := 0 to FieldDefList.Count - 1 do begin with FieldDefList.FieldDefs[i].CreateField(Sel 阅读全文

摘要：1.输入http://sjoracle:1158/em（其中sjoracle为你的oracle服务器名）2.输入用户名和密码登陆3.在数据库实例下面选择作业->创建作业4.输入名称,定时执行的SQL语句，调度页面中输入时间点，然后保存即可。 阅读全文