更改病人类别为 医保病人

     btnhjsf.Caption :='医保卡收费' ;
     if cblb.ItemIndex <>4 then ChangeSickToYB(edtkh.Text );  //更改病人类别为 医保病人

procedure TGetPatientForm.ChangeSickToYB(ylkh: string);
begin   //刷医保卡后更改其类别

     with UserDM.qryFree do
       begin
        close;
        sql.Clear ;
        sql.Add ('update tblylk set brlb=5 where kh=:kh');
        ParamByName('kh').AsString:=ylkh;
        execsql;
        end;
end;