有个难度的问题?请看下面

Question

1.我的数据表里有个字段总是负数值,但是我想在Dbgrid中显示成正数值,如何设置?2.我的网络中有几台打印机且都共享为网络打印机,我有段程序是这样的   有一数据表 ID     菜名     数量   厨房名
 1     青菜1     1      1楼厨房
 2     青菜2     1      1楼厨房
 3     炒肉     2      2楼厨房
 4     海鲜     1      3楼厨房备注:1楼厨房有打印机1,2楼厨房有打印机2,3楼厨房有打印机3,
我想实现打印以上记录时候自动按菜名所属的打印机进行打印,就是说
ID=1,2的记录打印在1楼厨房的打印机,
ID=3的记录打印在2楼厨房的打印机,
ID=4的记录打印在3楼厨房的打印机,
问:如何设置某一瞬间正在工作的打印机?

Answer 1

我能给你解决第一个。下面是我的答案，你试一下：procedure TForm1.DataSetNameFieldNameGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text := IntToStr(Sender.Value);//假设你的字段是整型的，如果是浮点，请改用FloatToStr
  if Sender.Value<0 then Text:=Copy(Text,2,Length(Text)-1);
end;注意，上面的DataSetNameFieldNameGetText，比如你的DataSet是Table1，字段是Size那么，这个过程名就是Table1SizeGetText(...)