用户公告
博客基本信息
用户名: 9128
等级: 小学生
在线时间: 478 分钟
日志总数: 43
评论数量: 1
访问次数: 27600
建立时间: 2007-04-28
等级: 小学生
在线时间: 478 分钟
日志总数: 43
评论数量: 1
访问次数: 27600
建立时间: 2007-04-28
最新评论
我的日志
股票知识 2008-03-26
委比=(委买手数－委卖手数)/(委买手数＋委卖手数)×100％ 正值 买盘较强 负值 卖盘较强量比=当日即时为止的总成交量/(过去五日的每分钟平均成交量×当日即时为止的交易时间) >1 成交较过去5日活跃 <1 成交较过去5日不活跃买入=最高委托买入报价=委买价 以“委卖价”实现的成交量=外盘卖出=最低委托卖出报价=委卖价 以“委买价”实现的成交量=内盘以委托买价成交的为委..
设计模式-包装模式(Wrapper Pattern) 2007-12-29
包装模式: TData = class private FVal1: Integer; FVal2: string; public property Val1: Integer read FVal1 write FVal1; property Val2: string read FVal2 write FVal2; end; TDataComponent = class(TComponent) private FData: TData; function GetVal1: Integer; function GetVal2: string; procedure SetVal1(Value..
ListView交替颜色设置和指定列字体颜色设置 2007-12-05
在CustomDrawSubItem事件中编写：
if Item.Index Mod 2 =0 then
Sender.Canvas.Brush.Color:=$00F4FFFF
else Sender.Canvas.Brush.Color:=$00F7F7F0;
case SubItem of
6: begin
if Item.SubItems[5] = STR_AUDIT_BOOL[True] then
Sender.Canvas.Font.Color := clBlue;
end;
end;
if Item.Index Mod 2 =0 then
Sender.Canvas.Brush.Color:=$00F4FFFF
else Sender.Canvas.Brush.Color:=$00F7F7F0;
case SubItem of
6: begin
if Item.SubItems[5] = STR_AUDIT_BOOL[True] then
Sender.Canvas.Font.Color := clBlue;
end;
end;
Delphi format的用法 2007-11-06
一、Format函数的用法Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用： 首先看它的声明：function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的，但并不多用，所以这里只对第一个介绍：function Format(const Format: string; const Args: array of const): string; overload;Format参数是一个格式字符串，用于格式化Args里面的值的。Arg..
Sqlite3支持的数据类型 2007-10-16
Sqlite3支持的数据类型 NULL INTEGER REAL TEXT BLOB但实际上，sqlite3也接受如下的数据类型： smallint 16 位元的整数。 interger 32 位元的整数。 decimal(p,s) p 精确值和 s 大小的十进位整数，精确值p是指全部有几个数(digits)大小值，s是指小数点後有几位数。如果没有特别指定，则系统会设为 p=5; s=0 。 float 32位元的实数。 double 64位元的实数。 char(n) n 长度的字串，n不能超过 254。 varchar(n) 长..
虾仁毛豆 2007-09-27
原料：虾仁、毛豆、茭白、红椒制作： 剥出虾仁：开背去肠、洗净，用生粉、料酒、少许盐腌制30分钟 虾仁过油 起油锅，炒毛豆、茭白（8成熟），放虾仁、红椒、放少许盐、鸡精，起锅
sqlite3_5_0 输出函数说明列表 2007-09-13
EXPORTSsqlite3_aggregate_contextsqlite3_aggregate_countsqlite3_apissqlite3_auto_extensionsqlite3_bind_blobsqlite3_bind_doublesqlite3_bind_intsqlite3_bind_int64sqlite3_bind_nullsqlite3_bind_parameter_countsqlite3_bind_parameter_indexsqlite3_bind_parameter_namesqlite3_bind_textsqlite3_bind_text16sqlite3_bind_valuesqlite3_bind_zeroblobsqlite3_blob_bytessqlite3_blob_closesqlite3_blob_opensqlite3_blob_readsqlite3_blob_writesqlite3_busy_handlersqlite3_busy_timeoutsqlite3_changessqlite3_clear_bindi..
sqlite3 字段类函数 2007-09-13
==================================输出函数名： sqlite3_column_countdelphi定义： Tsqlite_column_count = function(db: Psqlite): Integer; cdecl;说明：返回结果集中包含的列数 db sqlite的数据库句柄返回值： 返回列数 调用成功==================================输出函数名： sqlite3_column_tex..
sqlite3 概要记录 2007-09-12
使用sqlite数据库 只需要一个文件sqlite3.dll，内部的输出函数逐个学习吧！sqlite数据类型的定义：type Psqlite = Pointer; Psqlite_func = Pointer; Psqlite_vm = Pointer;sqlite常量的定义：const SQLITE_OK = 0; 返回成功 SQLITE_ERROR = 1; SQL错误或错误的数据库 SQLITE_INTERNAL = 2; An internal logic error in SQLite S..
Sqlite 收集的相关资源 2007-09-12
SQLite引擎 SQLite http://www.sqlite.org/ SQLite Tools 1、一个非常不错的SQLite Database Explorer and Query Analyzer SQLite Spy http://www.yunqa.de/delphi/sqlitespy/ 2、有免费版本的多数据库管理器，同时支持SQLite DBTools Manager&n..
判断TMSQuery是否更改过 2007-09-06
普通判断： if MSQuery.State in [dsEdit, dsInsert] then //变动过 else //未变动使用缓存控件TMSUpdateSQL MSQuery.CachedUpdates := True MSQuery.UpdateObject := MSUpdateSQL;变动判断： if MSQuery.UpdatesPending then //变动过 else //未变动
源代码文件命名约定 2007-08-27
一、多文件命名 uConst.pas 常量单元，英文单词为[constant] uTypes.pas 类型单元，引用单元如下： type uses uConst; uVariant.pas 变量单元，引用单元入下： type uses uConst, uTypes; uUtils.pas ..
关于团队建设_交流记录(to zzming) 2007-08-23
小峰 16:06:26张忠明，你觉得现在还能用DELPHI写程序吗？牧牛童 16:06:51能写，但不会去写小峰 16:06:58怎么？牧牛童 16:07:24没有这个兴趣了。除非有物资激励牧牛童 16:07:51为什么这么问？小峰 16:08:10海涛有个想法，把认识的人集中起来，承接项目牧牛童 16:08:45这种有物资激励的当然有兴趣小峰 16:09:50现在写代码，各有各的风格了，统一成一个有战斗力的团队感觉还是很困难牧牛童 16:10:34有风格这肯定难免，但是，这么多年的工作经历，相对而言，更懂得容忍与放弃，更加能统一一些思路吧牧牛童 16:10:53因为目标才是最重要的。..
仓库--工作流程 2007-08-21
成品进仓管理流程 1、仓库根据已审核《采购订单》内容准备成品收货。 2、厂家送货到达后，厂家提供《送货清单》给收货仓管员，《送货清单》应清晰显示送货单位名称、送货单位印章或经手人签名、货品的名称、规格、数量、采购订单号。收货仓管员将《送货清单》和对应的《采购订单》相核对。相核不符者拒收。相符者仓管员以《送货清单》和《采购订单》验收货品，收货量大于定购量时，仓库主管要通过营销部同意和取得营销部有权人的书面通知后才能超量收货。 3、仓管员收货无误后..
仓库--出库管理 2007-08-21
1 、各类材料的发出，原则上采用先进先出法。物料（包括原材料、半成品）出库时必须办理出库手续，并做到限额领料，车间领用的物料必须由车间主任（或其指定人员）统一领取，领料人员凭车间主任或计划员开具的流程单或相关凭证向仓库领料，领料员和仓管员应核对物品的名称、规格、数量、质量状况，核对正确后方可发料；仓管员应开具领料单，经领料人签字，登记入卡、入帐。2 、成品发出必须由各销售部开具销售发货单据，仓库管理人员凭盖有财务发货印章和销售部门负责人签字的发货单仓库联发货 , 并登记。3 、仓管员在月末结账前要与..
仓库--入库管理 2007-08-21
1 、物料进库时，仓库管理员必须凭送货单、检验合格单办理入库手续；拒绝不合格或手续不齐全的物资入库，杜绝只见发票不见实物或边办理入库边办理出库的现象。2 、入库时，仓库管理员必须查点物资的数量、规格型号、合格证件等项目，如发现物资数量、质量、单据等不齐全时，不得办理入库手续。未经办理入库手续的物资一律作待检物资处理放在待检区域内，经检验不合格的物资一律退回，放在暂放区域，同时必须在短期内通知经办人员负责处理。3 、收料单的填开必须正确完整，供应单位名称应填写全称并与送货单一致,铸件收料单上还应注明..
仓库--日常管理 2007-08-21
1、仓库保管员必须合理设置各类物资和产品的明细账簿和台账。 1)原材料仓库必须根据实际情况和各类原材料的性质、用途、类型分明别类建立相应的明细账、卡片； 2)半成品、产成品应按照类型及规格型号设立明细账、卡片； 3)财务部门与仓库所建账簿及顺序编号必须互相统一，相互一致。 4)合格品、逾期品、失效品、废料、应分别建账反映。2 、必须严格按照仓库管理规程进行日常操作，仓库保管员对当日发生的业务必须及时逐笔登记台帐，做到日清日结，确保..
DBGridEh 按点击列进行排序 2007-08-21
当前使用TMSQuery作为数据集，在DBGridEh的OnTitleBtnClick事件中编写如下代码：procedure TfrmMain.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer; Column: TColumnEh);begin if (Column.Title.SortMarker = smNoneEh) or (Column.Title.SortMarker = smUpEh) then begin MSQuery.SetOrderBy(Column.FieldName+' desc'); end else begin MSQuery.SetOrderBy(Column.FieldName); end; MSQuery.Active := True;end;