摘要：procedure TFrmMain.edtKeyPressInPut(Sender: TObject; var Key: Char);begin if not (Key in ['0'..'9', '.', #08]) then begin Key := #0; end;end;主要是['''''''']里面的表达，两者之间用‘,’号隔开，相关的键盘代码是：vk_LButton = $01; vk_RButton = $02; vk_Cancel = $03; vk_MButton 阅读全文

摘要：欲得到 如:SQL: select t.operatoroid 编号 ,t.operatorname||'('||t.rolename||')' 用户 from v_operatorinfo t 阅读全文