| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/8/11 11:28:42 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 高各大哥，我又来了。 今天小弟被客户提了一个小要求，我以为很容易。翻了10+n+1本书都找不到答案。 我的DBEDIT里的数比如是：12345678.9， 要输入时和显示时都要用这种格式：12,345,678.90， 不用TMaskEdit构件，只用DBEDIT能做出来吗？ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/8/11 15:14:59 | ||||
| 1楼： | 那就不能设置：dbedit.datasource和 dbedit.datefield因为这样又会和TABLE连在一起 受到TABLE的控制！ 如果要我做直接用edit就可以了！ ----------------------------------------------  
|
|||||
| 作者： |
|
2003/8/11 15:23:08 | ||||
| 2楼： | 可我用的就是数据库的字段内容，不用DBEdit，对记录的更新和移动好麻烦。有好的方法吗？ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/8/11 15:52:27 | ||||
| 3楼： | 12,345,678.90， 不用TMaskEdit构件，只用DBEDIT能做出来吗 我曾經用過........ ---------------------------------------------- |
|||||
| 作者： |
|
2003/8/11 15:59:42 | ||||
| 4楼： | 你可以设置与DBEdit相关联的字段{Field}的DisplayFormat格式,就可以了 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/8/11 16:26:13 | ||||
| 5楼： | 4楼沒錯 Field的DisplayFormat設#0,(空值顯示0,若有小2數#0,.00) ---------------------------------------------- |
|||||
| 作者： |
|
2003/8/11 18:28:55 | ||||
| 6楼： | 能不能说明白点啊。小弟愚昧。 是不是这样： ADOTable1.Field('AAA').DisplayFormat:='##,###,##0.00'; AAA：字段名。 不是这样啊，这样编译不过去的。 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/8/11 20:05:14 | ||||
| 7楼： | TNumericField(DataSet.Fields[I]).DisplayFormat := defFloatFormat; TNumericField(DataSet.Fields[I]).EditFormat := '#.##'; or TFloatField(Query1.FieldByName('Salary')).DisplayFormat := '#,##0';  http://www.elists.org/pipermail/delphi-db/2001-May/003962.html---------------------------------------------- |
|||||
| 作者： |
|
2003/8/11 20:16:28 | ||||
| 8楼： | procedure TForm1.FormActivate(Sender: TObject); var i,j: integer; begin with Application do for i := 0 to ComponentCount -1 do for j := 0 to Components[i].ComponentCount -1 do if Components[i].Components[j] is TIntegerField then if TIntegerField(Components[i].Components[j]).DisplayFormat = ' then TIntegerField(Components[i].Components[j]).DisplayFormat := '#,##0'; end; or http://greatis.com/delphi/databases-dateformat.html---------------------------------------------- |
|||||
| 作者： |
|
2003/8/12 8:34:22 | ||||
| 9楼： | 阿门真强啊！高手！ ----------------------------------------------
|
|||||
| 作者： |
|
2003/8/12 9:18:29 | ||||
| 9楼： | 谢谢楼上的大哥，显示是可以了，但好像输入的时候不能按这种格式输入。 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/8/12 11:10:51 | ||||
| 10楼： | 输入时候还按正常的输入，因为EditFormat := '#.##'; 而输出的时候会自动变化：因为displayformat:='#,#0'; ----------------------------------------------
|
|||||
| 作者： |
|
2003/8/12 16:21:05 | ||||
| 11楼： | 我不是高手 我收集資料用抄的 請問你們都用WIN????系統 D????的程式設計 謝謝 ---------------------------------------------- |
|||||
| 作者： |
|
2003/8/12 18:17:07 | ||||
| 12楼： | win2000advan server d6 ----------------------------------------------
|
|||||
| 作者： |
|
2003/8/14 0:59:46 | ||||
| 13楼： | 我落伍了 WIN98 D5 ---------------------------------------------- |
|||||
| 信息 |
| 登陆以后才能回复 |
