wwdbgrid 显示值替换

 object qyResultSTATUS: TFloatField
      FieldName = 'STATUS'
      Origin = 'ASSURE.V_ARCHIVE.STATUS'
      OnGetText = qrMainSTATUSGetText
    end

 

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

 

procedure TfrmMortSearch.qrMainSTATUSGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
     //0=在档案室；1=借证预约；2=借出；3=调证预约；4=调出；5=交客户；6=未归档；-1=注销
     if inttostr(qyResult.FieldbyName('STATUS').AsInteger) <>'' then
      begin
      if  qyResult.FieldbyName('STATUS').AsInteger = 0 then
        Text:='在档案室'
      else if qyResult.FieldbyName('STATUS').AsInteger = 1 then
        Text:='借证预约'
      else if qyResult.FieldbyName('STATUS').AsInteger = 2 then
        Text:='借出'
      else if qyResult.FieldbyName('STATUS').AsInteger = 3 then
        Text:='调证预约'
      else if qyResult.FieldbyName('STATUS').AsInteger = 4 then
        Text:='调出'
      else if qyResult.FieldbyName('STATUS').AsInteger = 5 then
        Text:='交客户'
      else if qyResult.FieldbyName('STATUS').AsInteger = 6 then
        Text:='未归档'
       else if qyResult.FieldbyName('STATUS').AsInteger = -1 then
        Text:='注销'
      end
     else
        Text:='';

end;