摘要: 问:当multiselect:=true的时候,并不是只能连续的选择多个item,而是可以中间间隔任意数量item选择。这样一来,怎样得到所选择的非连续的items呢?答:var First, secord: TListItem;begin First := listview1.GetNextItem(listview1.TopItem, sdall, [isSelected]); //取得第一个select secord := listview1.GetNextItem(First, sdall, [isSelected]); //取得第二个selectend; 阅读全文
posted @ 2012-04-07 11:55 bingege 阅读(490) 评论(0) 推荐(0) 编辑
摘要: 解决速达软件提示将numeric转换为数据类型numeric时发生算术溢出错误问题 速达软件在查询库存报表提示出错信息如:将numeric转换为数据类型numeric时发生算术溢出错误问题原因:货品的成本溢出,高于10亿的成本价,超出数据库范围.解决方法:对帐套反结帐2个月,然后给参考进价设为0的货品都加上真实参考进价,再重算成本。最后再结帐,问题解决。对帐套反结帐2个月,然后把成本核算方法是移动加权法的货品的成本核算方法均改为全月一次法,再重算成本。最后再结帐,问题解决。此问题会出现在速达以前版本如:速达3000STD,速达3000PRO,速达3000XP,速达5000,速达3G5000 遇 阅读全文
posted @ 2012-03-24 00:18 bingege 阅读(9451) 评论(0) 推荐(0) 编辑
摘要: 没有旅行的生活,只能称之为生存。一生中至少要有两次冲动,一次为奋不顾身的爱情,一次为说走就走的旅行。 旅行在乎的就是途中过程的感受。 阅读全文
posted @ 2012-03-06 22:48 bingege 阅读(187) 评论(0) 推荐(0) 编辑
摘要: 都知道修改注册表可以在我的电脑中隐藏硬盘分区的吧!找到HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer后,看到的NoDrives是二进制值,也可以是十进制值。而且一个驱动器的值是前面驱动器的值的两倍:A = 1 , B = 2 , C = 4 , D = 8 , E = 16 ......依次类推。例如:如果想隐藏盘符C和盘符E,就要将 4 和 16 相加,结果是 4 + 16 = 20 ,然后调用 HideDriver(20);uses Registry; procedure HideD 阅读全文
posted @ 2012-02-17 09:06 bingege 阅读(325) 评论(0) 推荐(0) 编辑
摘要: 1. 单据中有多行数据,但预览时只显示部分内容,或者打印内容行与行之间有间隔FASTREPOR属性中:设置RowCount=0,Start New Page为False;Stretched为True.说明: RowCount:控制总共打印几行;RowCount=0是打印全部; Start New Page:打印前先跳页;每页打印一行; Stretch:表身自动伸缩根据表身内容; 2. 在打印中设置金额或数量的小数位数FASTREPOR属性中:使用DisplayFormat(数据显示格式)——数字——1234.50 %2.0f:以整数形式显示; %2.2f:显示两位小数; %2.3... 阅读全文
posted @ 2012-02-10 13:51 bingege 阅读(1229) 评论(0) 推荐(0) 编辑
摘要: 打开SQL企业管理器,找到你要导出用户表字段信息的那个数据库,点击工具上的Sql查询分析器 直接copy下面的Sql语句到查询分析器中,点击F5运行----------------------------------------------------------------------------------------------------------SELECT (case when a.colorder=1 then d.name else '' end)表名, a.colorder 字段序号, a.name 字段名, (case when COLUMNPROPERT 阅读全文
posted @ 2012-02-06 18:38 bingege 阅读(937) 评论(0) 推荐(0) 编辑
摘要: XH:序号字段,计算性质的字段。procedure TfrmTingTaiInfo.ADOQitemXHGetText(Sender: TField; var Text: string; DisplayText: Boolean);begin inherited; Text := IntToStr(Sender.DataSet.RecNo);end; 阅读全文
posted @ 2012-02-03 12:53 bingege 阅读(218) 评论(0) 推荐(0) 编辑
摘要: 在进销存系统中,经常会将商品信息放在一个数据表中,把销售明细(采购明细)放在另一个表中,两个表通过商品的编号相联,于是经常会遇到要在销售明细(采购明细表中显示商品名称、规格等信息,就在DBGrid中采用Lookup的方法显示。但是当新插入数据时就提示“发生未知错误”的信息。解决办法: 例:一个ADOQuery1,包含了“商品编号”,“数量”等字段,然后再新建立“商品名称”,“规格”等几个临时Lookup字段,以“商品编号”为索引字段,从另一个ADOQuery2中取值。之后,用一个DBGrid连接ADOQuery1。 程序运行时,在DBGrid中修改,删除数据都没有问题。但添加记录时出现“发生. 阅读全文
posted @ 2012-02-03 09:58 bingege 阅读(858) 评论(0) 推荐(0) 编辑
摘要: 1.获取所有用户名: SELECT name FROM Sysusers where status='2' and islogin='1' islogin='1'表示帐户 islogin='0'表示角色 status='2'表示用户帐户 status='0'表示糸统帐户2.获取所有数据库名: SELECT Name FROM Master..SysDatabases ORDER BY Name3.获取所有表名: SELECT Name FROM DatabaseName..SysObjects Wh 阅读全文
posted @ 2012-02-01 11:35 bingege 阅读(529) 评论(0) 推荐(0) 编辑
摘要: ---------------------------------------- 超级通用型分页存储过程-- 可对Select 语句进行分页,可带 order 、group 等子句-- KeyField (关键词) 可以为空,也可以由多个,用,间隔-- 使用Keyfield 可以进行缓冲更新模式-- Dcopyboy 义乌科创计算机有限公司 软件部-- 2012-01-08---------------------------------------CREATE proc GetData@SQLSTR varchar(8000),@KeyField varchar(500),@PageNo i 阅读全文
posted @ 2012-01-16 11:38 bingege 阅读(236) 评论(0) 推荐(0) 编辑